A Turbo Pascal programozási nyelv lehetővé teszi különböző alakzatok grafikus rajzolását a képernyőn. Bármely grafikai objektum elkészíthető pontok, vonalak, ívek segítségével. A Pascal raszteres grafikai módot használ, 640 x 480 képpontos felbontással. A rajz a megjelenítendő objektum kezdő és végpontjának koordinátáinak beállításából áll a grafikus eljárásokhoz. Az objektum színét, a vonalak vastagságát és stílusát szintén a grafikus eljárások paramétereként állítják be. A szoftveres rajzoláshoz csatlakoztatnia kell a Pascal grafikus modult.
Szükséges
Turbo Pascal programozási környezet
Utasítás
1. lépés
Szedje szét a megadott rajzobjektumot alkotó elemeire. Válassza ki az egyes vonalakat, íveket, köröket, téglalapokat és pontokat. Ezek az alakzatok rajzolhatók ki a Turbo Pascal eljárásokkal.
2. lépés
A programkód legelején csatlakoztassa a grafikus modult. Ehhez írjon egy ilyen sort: gráfot használ. Ezután hozzon létre egész változót a grafikus mód inicializálásához: var gdet, gm: integer.
3. lépés
A program törzsében a start kulcsszó után inicializálja a változókat, az egyikhez nulla, a másodikhoz a detektálás értéket rendelve. Ezután jelölje meg a grafikus rajzolás kezdetét, írja be az űrlap vonalát: initgraph (gdet, gm, ''). Törölje a megjelenítő eszközt: cleardevice.
4. lépés
Állítsa be a rajz háttérszínét és a rajzolni kívánt objektumok vonalszínét. Ehhez használja a SetBkColor (fehér) és a SetColor (8) eljárásokat. A beállítandó szín zárójelben van feltüntetve. Összesen Pascal 16 színt használ, és mindegyiket vagy egy szám, vagy egy speciális színtáblán szereplő szó adja meg.
5. lépés
Képzeljen el egy képernyőrácsot, amelyen az x tengely balról jobbra, az y tengely pedig felülről lefelé helyezkedik el. Ennek a koordinátarendszernek az origójánál, vagyis a képernyő bal felső sarkában található a koordináta (0, 0). Számítsa ki az első grafikus objektum kívánt pozíciójának koordinátáit. Adja meg az összes koordinátát az ábrák rajzolásához ebben a rendszerben.
6. lépés
Rajzoljon egy vonalat az eljárási vonallal (x, y, x1, y1), ahol az x, y koordináták a vonal kiindulópontja, és x1, y1 a vége. Szükség esetén változtassa meg a vonal vastagságát vagy típusát. Ehhez használja a SetLineStyle (0, 0, NormWidth) eljárást. Az eljárás első paramétere megváltoztathatja a vonalat kötőjelgé vagy szaggatott vonallá téve - változtassa meg ezt a számot 1-re vagy 2-re. A harmadik paraméter állítja be a vonalak vastagságát. Alapértelmezés szerint a NormWidth paraméter mindig be van állítva - vékony vonalak, vastag vonalak esetén a ThickWidth. A megváltozott vonaltípust az eljárás meghívása után rajzoljuk ki.
7. lépés
Helyezzen el egy pontot a képernyőn a PutPixel (x, y, color) eljárás segítségével, itt x és y a pont koordinátái is, a szín pedig a színe. Zárt alakzat rajzolása előtt beállíthatja annak kitöltését. Ehhez hívja meg a SetFillStyle (EmptyFill, 0) eljárást, ahol az első paraméter az alakzat szilárd kitöltését, a második pedig a kitöltési színt adja meg.
8. lépés
Téglalap alakú alakzatot rajzolunk a Téglalap (x, y, x2, y2) eljárással - a koordináták megadják az alakzat bal felső és jobb alsó sarkát. Kör rajzolásához írja be a Kör (x, y, R) egyeneset, ahol x, y, R a kör koordinátái és a kör sugara, szintén pixelben. Az ellipszist nehezebb megrajzolni, ehhez sokkal több paramétert használnak: Ellipszis (x, y, BegA, EndA, RX, RY). Itt x, y az ellipszis azonos középpontja, BegA és EndA pedig azt a szöget jelöli, amelynél az elliptikus ívet el kell kezdeni és befejezni. Az RX, RY változók az ellipszis sugarát az x, illetve az y tengely mentén állítják be.
9. lépés
Ha van egy adott alakja, amelyet a legkönnyebb külön szegmensekben megrajzolni, ehhez használja a MoveTo és a LineTo eljárásokat. Először vigye az aktuális kurzort a kívánt pontra: MoveTo (x, y). Ezután húzzon belőle egy vonalat a következő LineTo (x1, y1) ponthoz, és ismét rajzoljon egyenes vonalat LineTo (x2, y2) és így tovább, amíg meg nem kapja az eredeti alakot.
10. lépés
A programkódban történő rajzolás végén zárja be a grafikus módot a következővel: closegraph. A program törzsét a szokásos módon fejezze be a vég szóval. Most a kód lefordítható és futtatható.
