Grafika a Pascal, a tartalom platform
GRAFIKA Pascal
INITIALIZATION és lezárása grafikus mód
Eljárások és függvények, lehetővé téve, hogy a munka grafikus módban koncentrálódik Graph Library.
A munka megkezdése előtt a grafikus mód, meg kell határozni, hogy mely mappát a számítógépen elhelyezett vezető grafikus módban.
Pilóta grafikus üzemmód - olyan fájl, amely lehetővé teszi, hogy a program megfelelően működik, és gyorsan grafikus módban.
Alapértelmezésben a program tartalmazza egy sor Pascal vezető grafikus mód «EgaVga. BGI», amely lehetővé teszi, hogy működik a mód kiterjesztése 640x480 pixel, paletta 16 szín.
Aktiválásához (inicializálás) grafikus módban kell használni az eljárás InitGraph.
InitGraph (Nomer_Drayvera, mode_number, Put_k_drayveru);
· Nomer_drayvera - egész típusú változó, amely a járművezetők számát a vezető táblázatban. Ha a változó értéke 0, akkor a számítógép ki a drivert. Ha nagyobb pontosságot automatikus kiválasztása vezetők, akkor jobb, ha hozzá egy változó értékét 0 helyett, az érték észlelése.
· Mode_number - egész változó számát tartalmazó mód áll rendelkezésre az adott vezető. A szabványos vezető, csak egy mód 640h480h16 használt üzemmód szám = 0 érte.
· Put_k_drayveru - line ami meg van írva a mappa elérési útját, ahol tárolni a vezető.
Ahhoz, hogy zárja be a grafikus mód CloseGraph alkalmazott eljárást.
CloseGraph; - az eljárás bezárja a grafikus mód.
A program tartalmaz egy grafikus üzemmódban a vezető a mappában található „c: \ BP \ BGI”, és azonnal zárjuk le.
Var Gdriver, GMode: integer;
InitGraph (Gdriver, Gmode, 'c: \ BP \ BGI');
Fill a felhasználó által megadott (12 - UserFill) SetFillPattern meghatározott eljárás (template szín);
ahol a sablon - típusú változó FillPatternType (lásd a "Fill Pattern.");
- a szín a jövő öntés által meghatározott száma 0-15
· Szín - kitöltőszínt határozza meg számos 0-15.
Sablonok 0 és 12 kitöltőszínének előre meghatározott, és ezért ezeket a mintákat, ezt a paramétert figyelmen kívül hagyja.
Emlékezzünk, fekete színű grafikus módban, és nincs fekete kitöltő szín (0) törli a tartalmát a képernyőn.
A program megjeleníti a négyzetek a képernyő, a különböző töltési
const dg: integer = észlelni; dm: integer = 0;
var x, y, dx, dy, i: integer;
InitGraph (dg, dm, 'c: \ bp \ bgi'); X: = 50; y: = 50; dx: = 30; dy: = 30;
FILLING tetszőleges zárt ÁBRÁK
FloodFill (x, y, határ szín) - kitölti a kitöltési stílust (csapat SetFillStyle) az egész teret a pont koordinátái x, y, hogy egy adott határon színe.
A program felhívja egy doboz piros stroke és más töltelék minden arc, a képernyő is tele van szürke kitöltés.
const DriverG: integer = Detect; DriverM: integer = 0;
Minta: FillPatternType = (204,204,204,204,204,204,204,204);
Rajz tetszőleges sokszög
A poligon lehet levonni segítségével néhány parancs Line, és lehetséges, egyetlen paranccsal DrawPoly.
DrawPoly (Kolichestvo_tochek, Massiv_Koordinat) - hívja fel a szaggatott vonal adott koordinátáit
· A pontok száma - azt jelzi, hogy hány pontot részt vesznek a vonallánc. Ha kell sokszöget, a vonal kell zárni, ezért az első és az utolsó pont kell, hogy egyezzen a koordinátákat.
· Koordináta array - a tömb a pár egész számok (integer), minden pár szám - a koordinátái X, Y GCP
Az egyszerűség kedvéért a munka a pontokat a Graph modul létrehoz egy adat típus
Így, hogy meghatározza egy sor pontok lehet használni, vagy egy tömb típusú változókat PointType, vagy egy sor változó egész szám jellegű.
A program felhívja két háromszög, az egyik segítségével massivaPointType második keresztül massivaInteger.
const DG: integer = Detect; DM: Egész = 0;
kezdődik InitGraph (Dg, Dm 'c: \ Bp \ BGI');