InitGraph (DriverVar, ModeVar:integer, Gol:string);
Мұндағы DriverVar – графикалық адаптердің типі; ModeVar – оның жұмыс режимі; Gol – GRAPH модулінің маршрутын көрсетеді.
Программаның бас жағына мынадай жолдар жаза аламыз:
Uses graph;
Var
d, m: integer;
begin
d:=detect;
initgraph(d,m,’’);
Геометриялық объектілерді құру процедуралары.
PutPixel(x,y : integer; color : word); - нүкте салу операторы.
x,y – нүкте координаталары, color оның түсін анықтайды. Мысалы: for i:=1 to 60do PuPixel(I,1, red);операторы бірінші қатарға 60 қызыл нүктеден тұратын сызық салады.
Line(x1,y1,x2,y2: integer); - түзу сызық салу процедурасы.
Ағымдағы түс бойынша координаталары x1, y1, нүктесінен x2,y2 нүктесіне дейін кесінді сызылады, мысалы, – Line (1,1,600,1);
Бастапқы нүкте көрсетілмесе, онда мына процедура:
LineTo (x,y:integer); - курсор тұрған орыннан бастап координаталары x,y болатын нүктеге дейін түзу сызық сызады.
SetLineStyle(t,p,th:word);- сызық қалыңдығы мен стилін орнату, t – сызық түрі, p – сызық үлгісі, th – сызық қалыңдығы.
Сызық стилдері
Тұрақты Оның Сипаттамасы
мәні
solidLn 0 үздіксіз сызық
dottedLn 1 нүктелерден тұратын сызық
ctnterLn 2 нүктелер мен тиреден тұратын сызық
dashedLn 3 штрихті пункитрлі сызық
userBitLn 4 орындаушы тағайындайтын сызық типі
Түрлі түстер
Тұрақты Нөмірі Экран түсі
Black 0қара
Blue 1көк
Green 2жасыл
Cyan 3 көгілдір
Red 4 қызыл
Magenta 5 күлгін
Brown 6 қоңыр
LightGray 7 боз
LightBlue 57 көкшіл
LightCyan 59 ақшыл көк
Достарыңызбен бөлісу: |