Grafika a Pascal
Bármi kép odilis nem látható a képernyőn, ők minden épült a pontokat.
PutPixel Eljárás (X, Y: integer; Szín: szó); kijelző pontot a képernyőn, ahol X és Y - koordinátáit a képernyőn. Color - E F színe.
Itt egy példa, hogy a program végrehajtható, amely létrehoz egy érdekes vizuális megjelenítését effektputem apolneniya pontok halmaza különböző színekben.
Var Driver módban. integer; Szín: szó;
X, Y: szó; Eljárás GrInit;
Ha GraphResult<>0 akkor kezdődik
Writeln ( „inicializálási hiba!„);
Writeln ( „A munkaprogram megszakított„);
Szín: = 0; Véletlenszerű; ismétlés
Ha Color = GetMaxColor Aztán Szín: = 0;
Amíg keyPressed;
A következő egyenes szakaszokkal
Eljárás Vonal (xl, yl, X2, Y2: integer); Ez megjeleníti egy vonal szegmenst. A leírásban (X1, Y1) a koordinátáit a kiindulási pont, egy (X2, Y2) - koordinátáit a végpontok a szegmens.
A következő eljárást is lehet használni az építési szegmensek:
LineTo (X. Y); - vezető szegmenst a jelenlegi pont az a pont koordinátái (X, Y);
LineRel (dX, dY |; - vezető szegmens az aktuális ponttól a attól távol olyan távolságra (dX, dy) vonalak Kirajzolni lehet a legkülönbözőbb stílusok: vékony, széles, szaggatott, pontozott, stb SetLineStyle eljárás (...<тип линии> : Szó;
Ha a vonal típusát nem UserBitLn. A paraméter „minta (sablon)” kifejezést használjuk, és jellemzően nulla, például SetLineStyle (0,0, 3) - stílus vonal - szilárd, félkövér.
programot elka;
használja grafikon;
var
grDriver: integer;
grMode: integer;
kezdődik
grDriver: = Detect;
InitGraph (grDriver, grMode, '');
setbkcolor (14);
SetColor (0);
lineTo (100.250);
SetColor (6);
lineTo (100.275);
lineTo (150.275);
lineTo (150.250);
SetColor (2);
vonal (125,25,75,100);
vonal (75100175100);
vonal (175,100,125,25);
vonal (125,100,50,175);
vonal (50175200175);
vonal (200.175.125.100);
vonal (125,175,25,250);
vonal (25250225250);
vonal (225.250.125.175);
readln;
végén.
Téglalap Eljárás (xl, yl, X2, Y2: integer); Ez egy téglalapot rajzol a kép síkján. Ott XI Y1- koordinátáit a bal felső sarokban, X2, Y2 - a koordinátákat a jobb alsó sarokban a téglalap. Akkor az aktuális szín (SetColOf) és a vonal stílusát (SetLineStyle). A terület a négyszög belsejében, és nem színezett ugyanolyan színű, mint a háttér.
Bar Eljárás (xl, yl, X2, Y2: integer); Ez lehetővé teszi, hogy építsenek egy látványos téglalapok. Ő egy téglalapot rajzol, amelynek belső régió tele van a jelenlegi mintát. Ez gyakran használják az üzleti grafikon az Oszlopdiagramhoz, hogy „töltse ki” a grafikus ablakban, így a háttérben a grafikus ablakban nem egyesíti az általános hátteret a képernyőn.
Fontolja meg, hogy termelni „töltse ki” a lezárt területeken a képernyő segítségével a különböző minták, azaz a. E. Hogyan válasszuk ki a minta (minta) és a színes töltse formák.
Kombinációja szín-minta az úgynevezett töltő stílusban.
SetFillStyle eljárás (<шаблон>: Szó;<цвет>: Word); beállítja a kitöltés színe és mintázata zárt alakzatú.
Állandók árnyékoló minták jelennek meg a táblázatban.
Árnyékolástechnika meghatározott programozó m
FloodFill Eljárás (X, Y: integer; Border: szó); kitölti a korlátos régió és a jelenlegi szín kitöltési stílust (SetFillStyle). A határ, az árnyékolt terület jelenik megadott színt Border.
Ha egy pont (X, Y) a régión belül, ez a régió színű, és ha ez található a régión kívül, a külső rész van töltve a területen.
programot dom;
használja grafikon;
var
grDriver: integer;
grMode: integer;
kezdődik
grDriver: = Detect;
InitGraph (grDriver, grMode, '');
<Рисование прямоугольников>
téglalap (25,75,100,150);
téglalap (100,75,225,150);
téglalap (50,100,75,150);
téglalap (150.100.175.125);
Építése ívek, ellipszisek és körök
Arc Eljárás (X, Y: integer; al, a2, R: szó); épít egy ív. Itt, (X, Y) központja a körív, al, a2 - a kezdeti és a végső szögek mért, a vízszintes tengely az óramutató járásával ellentétes, R-tartományban. Ha al = 0 o. és a2 = 360 °, a teljes kör látható.
Ellipszis Eljárás (X, Y: integer; al, a2, Rx, Ry: szó); célja, hogy építsen elliptikus íveket. Itt, (X, Y) az ellipszis központja, al, a2 - a kezdeti és a végső szögek mért, a vízszintes tengely az óramutató járásával ellentétes, Rx és Ry - vízszintes és függőleges tengely körül. Ha al = 0 °, és a2 = 36 °, akkor húzott FULL ellipszis.
FillEllipse Eljárás (X, Y: integer; Rx, Ry: szó); épít teljes töltött ellipszis.
Kör Eljárás (X, Y: integer; R: szó); Ez megjeleníti a kép egy kör közepén (X, Y) és egy R sugarú kört rajzolt a szín megadott SetColor.
PieSlice Eljárás (X, Y: integer; al, n2, R: szó); Ez megjeleníti egy kép egy kitöltött kör szektort a közepén a kör és egy pont (X, Y), a kezdeti szöget al, a2 és a végén szögtartományban sugara R. A kontúrja az aktuális szín jelenik meg. Kitöltése során az ágazatban alkalmazott sablon és a szín megállapított eljárás SetFillStyle. Ha al = 0 °, és a2 = 360 °, akkor a képernyőn megjelenik árnyékos kört.
Eljárás Sector (X, Y: integer; al, a2, Rx; Ry: szó); épít egy árnyékos ellipszis ágazatban.
PROGRAM Mashina;
Felhasználás grafikon;
var
grdriver: integer;
grmode: integer;
kezdődik;
grdriver: = észlelni;
Initgraph (grdriver, grmode, 'c');
téglalap (120,90,160,120);
setcolor (7);
téglalap (160.120.240.160);
setcolor (8);
vonal (120,120,70,120);
vonal (70,120,80,160);
vonal (80160160160);
setcolor (2);
kör (110,160,25);
setcolor (5);
kör (200,160,25);
setcolor (5);
vonal (50,80,20,120);
vonal (20,120,80,120);
vonal (80,120,50,80);
vonal (50,120,20,160);
vonal (20,160,80,160);
vonal (80,160,50,120);
readln
Vége.
programot snegoviki;
használja grafikon;
var
i, j, x, y: integer;
grdriver: integer;
grmode: integer;
kezdődik
grdriver: = észlelni;
initgraph (grdriver, grmode, 'c');
X: = 50; y: = 30;
i: = 1-től 10 do
kezdődik
j: = 1-től 10 do
kezdődik
setcolor (kék);
kör (x, y, 10);
kör (x, y + 30,20);
kör (x, y + 80,30);
körhöz (X-30, y + 30,10);
kör (x + 30, y + 30,10);
setcolor (5);
vonal (x, y-5, x + 15, y);
vonal (x, y + 5, x + 15, y);
setcolor (fehér);
vonal (x-5, y + 5, x + 5, y + 5);
putpixel (X-5, y-5, fehér);
putpixel (x + 5, y-5, fehér);
putpixel (x, y + 20, fehér);
putpixel (x, y + 30, fehér);
putpixel (x, y + 40, fehér);
putpixel (x, y + 60, fehér);
putpixel (x, y + 70, fehér);
putpixel (x, y + 80, fehér);
putpixel (x, y + 90, fehér);
putpixel (x, y + 100, fehér);
setcolor (3);
vonal (x-5, y-10, X + 5, y-10);
vonal (x + 5, y-10, X, Y-20);
vonal (x, y-20, X-5, y-10);
X: = x + 90;
végén;
y: = y + 160; X: = 50;
végén;
readln
végén.