Работа с точками и графическими примитивами

В модуле graph содержится достаточно большое количество процедур и функций, осуществляющих работу с точками и графическими примитивами. Рассмотрим некоторые из них.

1) процедура putpixel(X,Y,C);

выводит на экран точку цветом C с координатами (X,Y);

2) процедура line(X1,Y1,X2,Y2);

вычерчивает отрезок текущего цвета и типа с концами в точках (X1,Y1), (X2,Y2).

Тип линии можно установить с помощью процедуры

setlinestyle(<вид>,<образ>,<толщина>); (см. контекстную помощь)

3) процедура lineto(X,Y);

вычерчивает отрезок текущего типа и цвета от текущей позиции курсора до точки с координатами (X,Y).

Получить информацию о текущем положении графического курсора можно при помощи функций getx и gety (см. систему помощи).

Переместить графический курсор в точку с заданными координатами можно при помощи процедуры moveto(X,Y);

4) процедура rectangle(X1,Y1,X2,X2);

вычерчивает прямоугольник с диагональными вершинами (X1,Y1) и (X2,Y2) линией текущего типа и цвета

5) процедура bar(X1,Y1,X2,Y2);

аналогична процедуре rectangle, но прямоугольник заполняется текущим узором

Установить тип и цвет узора можно при помощи процедуры

setfillstyle(<тип узора – число от 1 до 12>,<цвет>); (см. систему помощи)

6) процедура bar3d(X1,Y1,X2,Y2,Z,T);

строит параллелепипед текущего цвета с закрашенной текущим узором передней гранью. Параметр Z определяет глубину параллелепипеда, T – параметр логического типа, который определяет, прорисовывать (true) или нет (false) верхнюю грань

7) процедура circle(X,Y,R);

вычерчивает окружность текущего цвета с центром в точке (X,Y) и радиусом R.

8) процедура ellipse(X,Y,A,B,XR,YR);

вычерчивает эллипс (или эллиптическую дугу) текущего цвета с центром в точке (X,Y). Параметры A,B задают значения в радианах начального и конечного углов, ограничивающих дугу; XR и YR – большой и малый радиусы.

9) процедура arc(X,Y,A,B,R);

вычерчивает дугу окружности радиуса R с центром в точке (X,Y) из угла A в угол B. 10) процедура fillellipse(X,Y,XR,YR);

вычерчивает эллипс текущего цвета, заполненный текущим узором

11) процедура pieslice(X,Y,A,B,R);

вычерчивает сектор круга текущего цвета, заполненный текущим узором.

12) процедура sector(X,Y,A,B,XR,YR);

вычерчивает сектор эллипса текущего цвета и заполняет его текущим узором