Programovací jazyk Turbo Pascal umožňuje graficky kreslit různé tvary na obrazovce. Libovolný grafický objekt lze sestrojit pomocí bodů, čar, oblouků. Pascal používá režim rastrové grafiky s rozlišením obrazovky 640 x 480. Kreslení spočívá v nastavení souřadnic počátečního a koncového bodu objektu, který má být zobrazen podle grafických postupů. Jako parametry grafických postupů se nastaví také barva objektu, tloušťka čar a jejich styl. Chcete-li kreslit pomocí softwaru, musíte připojit grafický modul Pascal.
Nezbytné
Programovací prostředí Turbo Pascal
Instrukce
Krok 1
Demontujte zadaný nakreslený objekt na jeho základní prvky. Vyberte jednotlivé čáry, oblouky, kruhy, obdélníky a body. Jedná se o tvary, které lze nakreslit pomocí procedur Turbo Pascal.
Krok 2
Na samém začátku programového kódu připojte grafický modul. Chcete-li to provést, napište řádek takto: používá graf. Dále vytvořte celočíselné proměnné pro inicializaci grafického režimu: var gdet, gm: integer.
Krok 3
V těle programu po klíčovém slově begin inicializujte proměnné tak, že jedné z nich přiřadíte nulovou hodnotu a druhému hodnotu detekce. Dále označte začátek grafického režimu kreslení, zadejte řádek formuláře: initgraph (gdet, gm, ''). Vymažte zobrazovací zařízení: cleardevice.
Krok 4
Nastavte barvu pozadí pro kreslení a barvu čáry nakreslených objektů. K tomu použijte postupy SetBkColor (bílá) a SetColor (8). Barva, která má být nastavena, je uvedena v závorkách. Celkově Pascal používá 16 barev a každá z nich je specifikována buď číslem, nebo slovem ze speciální tabulky barev.
Krok 5
Představte si mřížku obrazovky s osou x zleva doprava a osou y shora dolů. Na počátku tohoto souřadného systému, tj. V levém horním rohu obrazovky, je souřadnice (0, 0). Vypočítejte souřadnice požadované polohy prvního grafického objektu. Zadejte všechny souřadnice pro kreslení obrázků v tomto konkrétním systému.
Krok 6
Nakreslete čáru pomocí procedurální čáry (x, y, x1, y1), kde souřadnice x, y jsou počátečním bodem čáry a x1, y1 je její konec. V případě potřeby změňte tloušťku nebo typ čáry. Chcete-li to provést, použijte postup SetLineStyle (0, 0, NormWidth). První parametr procedury může změnit čáru tím, že z ní bude čárka nebo tečkovaná čára - toto číslo změňte na 1 nebo 2. Třetí parametr nastavuje tloušťku čar. Ve výchozím nastavení je vždy nastaven parametr NormWidth - tenké čáry, pro tlusté čáry nastavte ThickWidth. Po vyvolání tohoto postupu bude změněn typ čáry.
Krok 7
Umístěte bod na obrazovku pomocí procedury PutPixel (x, y, barva), zde x a y jsou také souřadnice bodu a barva je jeho barva. Před nakreslením uzavřeného tvaru můžete nastavit jeho výplň. Chcete-li to provést, zavolejte proceduru SetFillStyle (EmptyFill, 0), kde první parametr určuje plnou výplň tvaru a druhý určuje barvu výplně.
Krok 8
Obdélníkový tvar je nakreslen pomocí procedury Obdélník (x, y, x2, y2) - souřadnice nastavují levý horní a pravý dolní roh tvaru. Chcete-li nakreslit kruh, napište čáru Kruh (x, y, R), kde x, y, R jsou souřadnice středu a poloměru kruhu, také v pixelech. Elipsa se kreslí obtížněji, k tomu se používá mnohem více parametrů: Elipsa (x, y, BegA, EndA, RX, RY). Zde x, y je stejný střed elipsy a BegA a EndA označují úhel, od kterého se má začít a ukončit eliptický oblouk. Proměnné RX, RY nastavují poloměr elipsy podél os x a y.
Krok 9
Pokud máte daný tvar, který je nejjednodušší kreslit v samostatných segmentech, použijte k tomu postupy MoveTo a LineTo. Nejprve přesuňte aktuální kurzor na požadovaný bod: MoveTo (x, y). Potom z něj nakreslete čáru do dalšího bodu LineTo (x1, y1) a znovu nakreslete přímku LineTo (x2, y2) atd., Dokud nezískáte původní tvar.
Krok 10
Na konci kreslení v kódu programu zavřete grafický režim pomocí line: closegraph. Ukončete tělo programu, jako obvykle, slovem end. Nyní lze kód zkompilovat a spustit pro spuštění.
