Каквато и да е изображение, което не odilis на екрана, всички те са построени от точките.
PutPixel Процедура (X, Y: цяло число; Цвят: дума); дисплей точка от екрана, където X и Y - координати на екрана. Цвят - цветен E F.
Ето един пример на програмата да бъде изпълнена, което създава интересен визуален дисплей на effektputem apolneniya набор от точки на различни цветове.
Var Driver, режим. цяло число; Цвят: дума;
X, Y: дума; Процедура GrInit;
Ако GraphResult<>0 след това да започне
Writeln ( "Инициализация Грешка!");
Writeln ( "Работната програма прекъсна");
Цвят: = 0; Случаен; повторение
Ако Color = GetMaxColor Тогава Цвят: = 0;
До KeyPressed;
Показване на права линия сегменти
Процедура Line (XI, ил, X2, Y2: цяло число); Тя показва отсечка. Тук (X1, Y1) са координатите на началната точка, а (X2, Y2) - координати на крайните точки на сегмента.
Следната процедура може да се използва за изграждане на сегмента:
LineTo (X. Y); - провеждане на сегмент от текущата точка до точка с координати (х, у);
LineRel (DX, DY |; - провеждане сегмент от текущата точка до точката, отдалечена от него на разстояние () линии DX, DY може да се построява голямо разнообразие от стилове: тънка, широка, пунктирана, осеян и др SetLineStyle процедура (...<тип линии> : Word;
Ако не е UserBitLn типа на линия. параметър "модел (шаблон)" се използва и обикновено се свежда до нула, например SetLineStyle (0,0, 3) - стил линия - твърдо вещество, удебелен шрифт.
програма Елка;
използва графика;
Var
grDriver: цяло число;
grMode: цяло число;
започвам
grDriver: = разпознаване;
InitGraph (grDriver, grMode, '');
setbkcolor (14);
SetColor (0);
lineTo (100,250);
SetColor (6);
lineTo (100,275);
lineTo (150,275);
lineTo (150,250);
SetColor (2);
линия (125,25,75,100);
линия (75100175100);
линия (175,100,125,25);
линия (125,100,50,175);
линия (50175200175);
линия (200,175,125,100);
линия (125,175,25,250);
линия (25250225250);
линия (225,250,125,175);
readln;
край.
Правоъгълник Процедура (XI, ил, X2, Y2: число); Тя се основава на правоъгълник върху равнината на изображението. Има XI, Y1- координатите на горния ляв ъгъл, X2, Y2 - координатите на долния десен ъгъл на правоъгълника. Той използва текущия цвят (SetColOf) и стила на линиите (SetLineStyle). Районът във вътрешността на правоъгълника, а не оцветени в същия цвят като фона.
Бар-процесуалния (XI, ил, X2, Y2: цяло число); Тя ви позволява да се изгради зрелищна правоъгълници. Тя чертае правоъгълник, чийто вътрешен област е пълна с текущия модел. Той обикновено се използва в бизнес графиката, за да барграфът, както и да "запълни" графичен прозорец, така че на фона на прозореца на графиката не се слее с общия фон на екрана.
Помислете как да се произвежда "запълни" затворените райони на екрана с помощта на разнообразни модели, т.е.. Е. Как да изберете модел (образец) и цвета на запълване на форми.
Комбинация от цветен модел се нарича пълнене стил.
SetFillStyle процедура (<шаблон>: Word;<цвет>: Word); задава цвят за запълване и модела на затворена фигура.
Константи засенчване модели са показани в таблицата.
Засенчване дефинирани програмист m
FloodFill Процедура (X, Y: число; Border: дума); изпълва граничи региона и текущия стил цвят за запълване (SetFillStyle). Границата на защрихованата област се показва цветове, посочени в границите.
Ако точка (х, у) е в рамките на региона, този регион е оцветен, и ако се намира извън региона, външната част е изпълнен област.
програма дом;
използва графика;
Var
grDriver: цяло число;
grMode: цяло число;
започвам
grDriver: = разпознаване;
InitGraph (grDriver, grMode, '');
<Рисование прямоугольников>
правоъгълник (25,75,100,150);
правоъгълник (100,75,225,150);
правоъгълник (50,100,75,150);
правоъгълник (150,100,175,125);
Изграждане на дъги, елипси и кръгове
Arc Процедура (X, Y: число; Al, А2, R: дума); изгражда дъга. Тук, (X, Y) център на кръгова дъга, Al, А2 - началните и крайните ъглите измерена от хоризонталната ос на часовниковата стрелка, R-диапазон. Ако Ал = 0 о. и а2 = 360 °, на пълен кръг се изтегля.
Елипса Процедура (X, Y: число; Al, А2, Rx, Ry: дума); предназначен за изграждане на елиптични дъги. Тук, (X, Y) на елипса центъра, Al, А2 - началните и крайните ъглите измерена от хоризонталната ос на часовниковата стрелка, Rx и Ry - хоризонтална и вертикална ос. Ако Ал = 0 °, и а2 = 36 °, след това се изготвя ПЪЛНО ELLIPSE.
FillEllipse Процедура (X, Y: число; Rx, Ry: дума); изгражда изцяло запълнена елипса.
Кръгът Процедура (X, Y: число; R: дума); Това показва изображението на окръжност с център (X, Y) и радиус R. Кръгът изготвен с цвят посочено SetColor.
PieSlice Процедура (X, Y: число; Al, n2, R: дума); Това показва изображение на сектор попълнено кръг от центъра на кръга и точка (х, у), началната ъгъл Al, А2 и радиусът на сектор ъгъл край R. Показва се контура на текущия цвят. При попълване на сектора се използва шаблон и цвят установена процедура SetFillStyle. Ако Ал = 0 °, и а2 = 360 °, след това на екрана се показва сенчести кръг.
Процедура сектор (X, Y: число; Al, А2, Rx, Ry: дума); изгражда сенчеста сектор елипса.
ПРОГРАМА машина;
Използва графика;
Var
grdriver: цяло число;
grmode: цяло число;
да започне;
grdriver: = откриване;
Initgraph (grdriver, grmode, "С");
правоъгълник (120,90,160,120);
setcolor (7);
правоъгълник (160,120,240,160);
setcolor (8);
линия (120,120,70,120);
линия (70,120,80,160);
линия (80160160160);
setcolor (2);
кръг (110,160,25);
setcolor (5);
кръг (200,160,25);
setcolor (5);
линия (50,80,20,120);
линия (20,120,80,120);
линия (80,120,50,80);
линия (50,120,20,160);
линия (20,160,80,160);
линия (80,160,50,120);
readln
Край.
програма snegoviki;
използва графика;
Var
I, J, X, Y: цяло число;
grdriver: цяло число;
grmode: цяло число;
започвам
grdriver: = откриване;
initgraph (grdriver, grmode, "С");
х: = 50; Y: = 30;
защото: = 1 до 10 направи
започвам
за к: = 1 до 10 направи
започвам
setcolor (синьо);
кръг (х, у, 10);
кръг (х, у + 30,20);
кръг (х, у + 80,30);
кръг (х-30, у + 30,10);
кръг (х + 30, у + 30,10);
setcolor (5);
линия (х, у-5, х + 15, у);
линия (х, у + 5 х + 15, у);
setcolor (бял);
линия (х-5, у + 5 х + 5, у + 5);
putpixel (х-5, у-5, бял);
putpixel (х + 5, у-5, бял);
putpixel (х, у + 20, бял);
putpixel (х, у + 30, бял);
putpixel (х, у + 40, бял);
putpixel (х, у + 60, бял);
putpixel (х, у + 70, бял);
putpixel (х, у + 80, бял);
putpixel (х, у + 90, бял);
putpixel (х, у + 100, бял);
setcolor (3);
линия (х-5, Y-10, х + 5, у-10);
линия (х + 5, Y-10, х, у-20);
линия (х, у-20, х-5, у-10);
х: = х + 90;
приключи;
Y: = Y + 160 х: = 50;
приключи;
readln
край.
Свързани статии