Процедуры модуля graph

arc(x, y:integer; stangle, endangle, radius:word) – Рисует дугу от начального угла stangle к конечному endangle с центром (x, y) и радиусом radius.

ü bar(x1, y1, x2, y2:integer) – Рисует закрашенный прямоугольник, используя текущий стиль и цвет. x1, y1, x2, y2 – координаты левого верхнего и правого нижнего углов прямоугольника.

bar3d(x1, y1, x2, y2:integer; d:word; top:boolean) – Рисует параллелепипед, используя текущий стиль и цвет. x1, y1, x2, y2 - координаты левого верхнего и правого нижнего углов передней грани; d - ширина боковой грани;

top – если true, верхняя грань вычерчивается, в противном случае не отображается.

ü circle(x, y:integer; radius:word) – Рисует текущим цветом окружность, с центром (x, y) и радиусом radius.

cleardevice – Очищает экран и устанавливает текущий указатель (CP) в начало.

clearviewport – Очищает выделенное окно графического экрана, закрашивает его в цвет фона, устанавливает указатель текущей позиции в левый верхний угол окна с координатами (0, 0).

closegraph – Закрывает графическую систему.

ellipse(x, y:integer; stangle, endangle, xradius, yradius:word) – Рисует текущим цветом эллиптическую дугу от начального угла stangle к конечному endangle с центром (x, y) и горизонтальной xradius и вертикальной yradius полуосями.

ü fillellipse(x, y:integer; xradius, yradius:word) – Рисует заполненный эллипс, используя (x, y) как центр и xradius и yradius как горизонтальные и вертикальные оси.

ü floodfill(x, y:integer; border:word) – Заполняет ограниченную линией цвета border область, содержащую точку (x, y), используя текущий шаблон и цвет заполнения.

getpixel(x, y:integer):word – возвращает цвет пиксела с координатами x, y.

initgraph(graphdriver, graphmode:integer; driverpath:string) – Инициализирует графическую систему и устанавливает устройство в графический режим.

ü line(x1, y1, x2, y2:integer) – Рисует линию от (x1, y1) к (x2, y2).

linerel(dx, dy:integer) – Рисует линию от текущего указателя (CP) к точке, полученной из данной смещением координат на dx и dy.

lineto(x, y:integer) – Рисует линию от текущего указателя к (x, y).

moverel(dx, dy:integer) – Передвигает текущий указатель (CP) к точке, полученной из данной смещением координат на dx и dy.

moveto(x, y:integer) – Передвигает текущий указатель (CP) в (x,y).

outtext(t:string) – Выводит текст t на экран от текущего указателя.

outtextxy(x, y:integer; t:string) – Выводит текст t на экран, начиная с точки (x, y).

pieslice(x, y:integer;stangle, endangle, radius:word) – Рисует и заполняет сектор с центром (x, y) и радиусом radius, рисуя от начального угла stangle к конечному endangle.

putpixel(x, y:integer; p:word) – Рисует цветом p точку (пиксел) в (x, y).

rectangle(x1, y1, x2, y2:integer) – Рисует контур прямоугольника, используя текущий стиль и цвет. x1, y1, x2, y2 – координаты левого верхнего и правого нижнего углов прямоугольника.

restorecrtmode – Восстанавливает видеорежим, который был до инициализации графики.

sector(x, y:integer; stangle, endangle, xradius, yradius:word) – Рисует сектор эллипса, закрашенный текущим орнаментом и цветом, используя (x, y) как центр и xradius и yradius как горизонтальные и вертикальные оси.

ü setbkcolor(color:word) – Устанавливает цвет фона.

ü setcolor(color:word) – Устанавливает основной цвет, которым будет осуществляться рисование.

ü setfillstyle(p:word; color:word) – Устанавливает шаблон заполнения p и цвет color.

setgraphmode(graphmode) – Переводит систему в графический режим graphmode и очищает экран.

setlinestyle(l, p, t:word) – Устанавливает текущие стиль l, шаблон p и толщину t линии.

settextjustify(horiz, vert:word) – Устанавливает выравнивание текста, используемое outtext и outtextxy.

settextstyle(f, d, c:word) – Устанавливает текущий шрифт, направление текста и размер символов.

setviewport(x1, y1, x2, y2:integer; clip:boolean) – Задает размеры окна для вывода графической информации и перемещает указатель текущей позиции в левый верхний угол с координатами (0, 0). x1, y1 - координаты левого верх него угла окна; x2, y2 - координаты правого нижнего угла окна. Если clip= true, то все построения проводятся только в пределах окна, иначе могут выходить за пределы окна.

Пример программы:

uses crt,graph;

var a, b: integer;

begin

a:= detect;

initgraph(a, b,'');

{Солнце}

setcolor(14);

setfillstyle(1,14);

fillellipse(500,100,50,50);

{Дом}

setcolor(5);

rectangle(200,250,350,400);

setfillstyle(3,5);

bar(201,251,349,399);

{Крыша дома}

setcolor(1);

line(200,249,350,249);

line(275,165,355,255);

line(275,165,195,255);

{Закрасим крышу дома}

setfillstyle(1,1);

floodfill(275,170,1);

{Ствол дерева}

setfillstyle(1,6);

bar(95,270,105,380);

{Крона}

setcolor(2);

setfillstyle(11,2);

fillellipse(100,200,30,70);

readkey; {Задержка}

closegraph; {Закрытие графической системы}

end.

Дата добавления: 2015-05-10