Использование модуля Graph

procedure PutPixel (x, y: Integer; color : Word)

Выводит графическую точку (пиксель) в положении, заданном графическими координатами x и y, и с указанным цветом color

procedure Line (xstart, ystart, xend, yend : Integer)

Выводит отрезок прямой линии из точки (xstart, ystart) в точку (xend, yend)

procedure LineRel (xshift, yshift : Integer)

Выводит отрезок прямой линии из текущего положения указателя в точку, заданную сдвигами по x-координате (xshift) и y- координате (yshift)

procedure LineTo (xend, yend : Integer)

Выводит отрезок прямой линии из текущего положения указателя в точку, заданную координатами (xend, yend)

procedure Circle (x, y : Integer; radius: Word)

Выводит окружность с центром в точке (x ,y) и радиусом radius

procedure Rectangle (x1, y1, x2, y2 : Integer)

Выводит прямоугольник, у которого координаты левого верхнего и правого нижнего углов составляют соответственно (x1,y1) и (x2,y2)

procedure Ellipse (x, y : Integer; Start_ Angle, End_Angle, xradius, yradius : Word)

Выводит эллиптическую дугу с центром в точке (x,y), начальным и конечным углами Start_ Angle и End_Angle и радиусами вдоль осей координат xradius и yradius. Углы отсчитываются от положительного направления оси x в градусах

procedure Arc (x, y : Integer; Start_Angle, End_Angle, radius : Word)

Выводит дугу окружности с центром в точке (x,y), начальным и конечным углами Start_ Angle и End_Angle и радиусом radius. Углы отсчитываются от положительного направления оси x в градусах

procedure OutText (Text_String : String)

Выводит строку текста, начиная с текущего положения указателя

procedure OutTextXY (x, y : Integer; Text_String : String)

Выводит строку текста, начиная с точки с координатами (x, y)

procedure FloodFill (x, y : Integer; border : Word)

Закрашивает замкнутую область, в которой содержится точка (x, y) согласно заданным параметрам. Если точка находится вне области, закрашивается внешняя часть рисунка. Параметр border задает цвет границы

Процедура (функция)

Описание

function GetMaxX : Integer

Возвращает разрешение по горизонтали для текущего графического режима

function GetMaxY : Integer

Возвращает разрешение по вертикали для текущего графического режима

function GetX : Integer

Возвращает текущую x-координату указателя

function GetY : Integer

Возвращает текущую y-координату указателя

function GetColor : Word

Возвращает текущий цвет рисунка

function GetBkColor : Word

Возвращает текущий цвет фона

function GetPixel (x, y : Integer) : Word

Возвращает цвет графической точки с указанными координатами

procedure MoveTo (x, y : Integer)

Устанавливает указатель в точку с графическими координатами (x, y)

procedure MoveRel (xshift, yshift : Integer)

Смещает указатель в точку согласно заданным смещениям относительно текущего положения по горизонтали и по вертикали

procedure SetColor (color: Word)

Устанавливает цвет рисунка

procedure SetBkColor (color : Word

Устанавливает цвет фона

procedure SetFillStyle (pattern, color : Word)

Устанавливает тип закраски (pattern) и ее цвет (color)

procedure SetTextStyle (font, directon, charsize : Word)

Устанавливает параметры вывода текста в графическом режиме:

font – шрифт;

direction – направление (HorizDir, VertirDir);

charsize –размер символов

Цвет

Константы

Код

Черный

Black

0

Синий

Blue

1

Зеленый

Green

2

Бирюзовый

Cyan

3

Красный

Red

4

Розовый

Magenta

5

Коричневый

Brown

6

Светло-серый

LightGray

7

Темно-серый

DarkGray

8

Светло-синий

LightBlue

9

Светло-зеленый

LightGreen

10

Светло-бирюзовый

LightCyan

11

Светло-красный

LightRed

12

Светло-розовый

LightMagenta

13

Желтый

Yellow

14

Белый

White

15