Turbo Pascali programmeerimiskeel võimaldab ekraanile joonistada erinevaid kujundeid. Punkte, jooni, kaari kasutades saab konstrueerida mis tahes graafilise objekti. Pascal kasutab rastergraafika režiimi, mille ekraani eraldusvõime on 640 x 480. Joonistamine seisneb kuvatava objekti algus- ja lõpp-punkti koordinaatide seadistamises graafilistele protseduuridele. Graafiliste protseduuride parameetriteks on seatud ka objekti värv, joonte paksus ja stiil. Tarkvara abil joonistamiseks peate ühendama Pascali graafikamooduli.
Vajalik
Turbo Pascali programmeerimiskeskkond
Juhised
Samm 1
Lahutage määratud joonistusobjekt selle koostisosadeks. Valige üksikud jooned, kaared, ringid, ristkülikud ja punktid. Need on kujundid, mida saab joonistada Turbo Pascali protseduuride abil.
2. samm
Programmikoodi alguses ühendage graafikamoodul. Selleks kirjutage selline rida: kasutab graafikut. Järgmisena looge graafikarežiimi lähtestamiseks täisarvumuutujad: var gdet, gm: integer.
3. samm
Initsialiseerige programmi põhiosas pärast märksõna algus muutujad, määrates ühele neist nullväärtuse ja teisele tuvastamise väärtuse. Järgmisena märkige graafilise joonistamisrežiimi algus, sisestage vormi rida: initgraph (gdet, gm, ''). Tühjendage kuvaseade: cleardevice.
4. samm
Määrake joonistamise taustavärv ja joonistatavate objektide joone värv. Selleks kasutage protseduure SetBkColor (valge) ja SetColor (8). Määratav värv on märgitud sulgudes. Kokku kasutab Pascal 16 värvi ja igaüks neist on määratud kas numbri või spetsiaalse värvitabeli sõnaga.
5. samm
Kujutage ette ekraanivõrku, mille x-telg on vasakult paremale ja y-telg ülevalt alla. Selle koordinaatsüsteemi alguspunktis ehk ekraani vasakus ülanurgas on koordinaat (0, 0). Arvutage esimese graafilise objekti soovitud asukoha koordinaadid. Määrake kõik koordinaadid jooniste joonistamiseks selles konkreetses süsteemis.
6. samm
Joonistage joon, kasutades protseduurijooni (x, y, x1, y1), kus koordinaadid x, y on joone alguspunkt ja x1, y1 on selle lõpp. Vajadusel muutke joone paksust või tüüpi. Selleks kasutage protseduuri SetLineStyle (0, 0, NormWidth). Protseduuri esimene parameeter võib muuta joont, muutes selle kriipsuks või punktiirjooneks - muutke see arv väärtuseks 1 või 2. Kolmas parameeter määrab joonte paksuse. Vaikimisi on parameeter NormWidth alati määratud - õhukesed jooned, paksude joonte korral ThickWidth. Muudetud liini tüüp joonistatakse pärast selle protseduuri kutsumist.
7. samm
Pange ekraanile punkt PutPixeli (x, y, värv) protseduuri abil, siin on x ja y ka punkti koordinaadid ning värv on selle värv. Enne suletud kuju joonistamist saate määrata selle täitmise. Selleks kutsuge protseduur SetFillStyle (EmptyFill, 0), kus esimene parameeter määrab kuju kindla täitmise ja teine - täitevärvi.
8. samm
Ristküliku (x, y, x2, y2) protseduuri abil joonistatakse ristkülikukujuline kuju - koordinaadid määravad kuju ülemise vasaku ja parema alumise nurga. Ringi joonistamiseks kirjutage sirge Ring (x, y, R), kus x, y, R on ringi keskpunkti ja raadiuse koordinaadid, ka pikslites. Ellipsi on raskem joonistada, selleks kasutatakse palju rohkem parameetreid: Ellipse (x, y, BegA, EndA, RX, RY). Siin on x, y sama ellipsi keskpunkt ning BegA ja EndA tähistavad nurka, mille alusel elliptilist kaarti alustada ja lõpetada. Muutujad RX, RY määravad ellipsi raadiuse vastavalt piki x- ja y-telge.
9. samm
Kui teil on antud kuju, mida on kõige lihtsam eraldi segmentidena joonistada, kasutage selleks protseduure MoveTo ja LineTo. Kõigepealt liigutage praegune kursor soovitud punkti: MoveTo (x, y). Seejärel tõmmake sellest joon järgmise punktini LineTo (x1, y1) ja tõmmake uuesti sirge LineTo (x2, y2) ja nii edasi, kuni saate algse kuju.
10. samm
Programmikoodis joonistamise lõpus sulgege graafikarežiim reaga: closegraph. Lõpeta programmi sisu, nagu tavaliselt, sõnaga lõpp. Nüüd saab koodi kompileerida ja käivitada.
