Работа с графикой

Основные процедуры модуля GRAPH

Заголовок процедуры	Геометрический смысл
putpixel(x,y,c)	построить точку (x,y) цветом c
setlinestyle(a,b,t)	установить стиль, образец и толщину линий
line(x1,y1,x2,y2)	соединить две точки отрезком
rectangle(x1,y1,x2,y2)	прямоугольник с заданными концами диагонали и сторонами, параллельными осям координат
circle(x,y,r)	построить окружность с центром (x,y) и радиусом R
arc(x,y,a,b,r)	построить дугу окружности: a, b — начальный и конечный углы в градусах
ellipse(x,y,a,b,rx,ry)	построить эллиптическую дугу: rx, ry — полуоси эллипса
setfillstyle(t,c)	установить стиль закраски и ее цвет
fillellipse(x,y,rx,ry)	построить закрашенный эллипс, используя цвет рисунка
floodfill(x,y,cg)	закрасить фигуру до границы с цветом cg; (x,y) — внутренняя точка фигуры
bar(x1,y1,x2,y2)	построить столбец, используя тип и цвет закраски
pieslice(x,y,a,b,r)	построить и закрасить сектор круга: a, b — начальный и конечный углы дуги в градусах
sector(x,y,a,b,rx,ry)	построить и закрасить эллиптический сектор
settextstyle(f,n,d)	установить шрифт, направление вывода, размер символов текста
outtextxy(x,y,st)	вывести строку st, начиная с точки (x,y)
outtext(st)	вывести строку, начиная с точки расположения текущего указателя
setlinestyle(a,b,t)	стиль линии

Значения первого аргументa процедуры setlinestyle(a,b,t)

Значение стиля	Смысл
0 solidln	непрерывная линия
1 dotteln	пунктирная линия
2 centerln	штрихпунктирная линия
3 dashedln	штриховая линия
4 userbitln	определенная пользователем

Второй параметр b, «образец», имеет значение 4, если a=4, в остальных случаях b=0.

Третий параметр t, толщина линии, может иметь значение 1 (нормальная толщина) или 3 (жирная линия).

Первый аргумент процедуры setfillstyle(t,c) — тип закраски t — принимает значения из интервала 0..12. Наиболее употребителен тип t=1 — заполнение фигуры текущим цветом.

Для вывода текста на графический экран сначала выполняется процедура settextstyle(f,n,d), устанавливающая шрифт f, направление вывода n и размер символов (параметр d). При f=0 используется стандартный точечный шрифт, встроенный в систему Турбо-Паскаль.

Пример. Построение графика функции.

Program grafik;

uses crt,graph;

var k,u,,gm,gd:integer;

x,y:real;

BEGIN gd:=detect;

initgraph(gd,gm,' '); setlinestyle(0,0,3);

setcolor(9); line(320,10,320,400);line(10,240,620,240);

x:=-12; y:=cos(x);

u:=320+round(20*x); t:=240-round(20*y);

setcolor(12); moveto(u,t);

for k:=1 to 240 do

begin

x:=x+0.1;

y:=cos(x);

u:=320+round(20*x); t:=240-round(20*y);

lineto(u,t);

end;

setcolor(14);

settextstyle(0,0,1);outtextxy(330,10,'y'); outtextxy(610,245,'x');

settextstyle(0,0,2);

outtextxy(90,430,'y=cos(x)');

repeat until keypressed;

closegraph

END.

Назад

Далее