6) Вывод точек

{ *** процедуры работы с точкой *** }

procedure PutPixel (X, Y : integer; Pixel : word); – поставить на экране точку (X,Y) заданным цветом (pixel);

function GetPixel (X, Y : integer) : word; – получить цвет точки с координатами (Х,Y).

7) Вывод линий

{ типы и толщины линий для процедур Get/SetLineStyle: }

SolidLn = 0; { сплошная };

DottedLn = 1; { пунктирная };

CenterLn = 2; { штрих-пунктирная (осевая) };

DashedLn = 3; { штриховая };

UserBitLn = 4; { задаваемая пользователем };

NormWidth = 1; { нормальная (тонкая) } ;

ThickWidth = 3; { толстая }.

{ *** процедуры перемещений и проведения отрезков линий *** }

procedure LineTo (X, Y : integer); – линия из текущей точки в (X, Y);

procedure LineRel (Dx, Dy : integer); – линия из текущей точки в точку, смещенную на (Dx, Dy);

procedure MoveTo (X, Y : integer); – переход в точку (X, Y);

procedure MoveRel (Dx, Dy : integer); – переход из текущей точки в точку, смещенную на (Dx,Dy);

procedure Line (x1, y1, x2, y2 : integer); – линия из точки (x1,y1) в точку (x2,y2);

procedure SetLineStyle (LineStyle : word;

Pattern : word;

Thickness : word); – задать текущие настройки рисования линий.

8) Вывод и закраска контуров

{ *** многоугольники, их закраска и текстуры *** }

procedure Rectangle (x1, y1, x2, y2 : integer); – построить незакрашенный прямоугольник;

procedure Bar (x1, y1, x2, y2 : integer); – построить закрашенный прямоугольник;

procedure DrawPoly (NumPoints : word; var PolyPoints); – построить контур многоугольника из NumPoints точек;

procedure FillPoly (NumPoints : word; var PolyPoints); – построить закрашенный многоугольник из NumPoints точек;

procedure SetFillStyle (Pattern : word; Color : word); – задать характеристики закраски;

procedure FloodFill (X, Y : integer; Border : word); – залить область текущей закраской от заданной точки (X,Y) до границы, заданной цветом (Border).

9) Окружности, эллипсы, дуги

{ *** построение окружностей, эллипсов и их частей *** }

procedure Circle (X, Y : integer; Radius : word); – построение окружности заданного радиуса и центра;

10) Вывод текста

{ константы для процедур Set/GetTextStyle }

DefaultFont = 0; { шрифт по-умолчанию };

HorizDir = 0; { текст слева–направо };

VertDir = 1; { текст снизу–вверх };

{ размещение текста относительно заданной точки }

LeftText = 0; { текст влево от точки };

CenterText = 1; { точка в центре текста };

RightText = 2; { текст вправо от точки };

BottomText = 0; { текст под точкой };

{ CenterText = 1; уже определено выше }

TopText = 2; { текст над точкой };

UserCharSize = 0; { размер шрифта задается программистом }.

{ *** процедуры вывода текста *** }

procedure OutText (TextString : string); – вывести текст относительно текущей точки;

procedure OutTextXY (X, Y : integer; TextString : string); – вывести текст относительно точки (X,Y);

procedure SetTextJustify (Horiz, Vert : word); – установить параметры центровки (размещения) текста;

procedure SetTextStyle (Font, Direction : word; CharSize : word); – выбрать шрифт, его размер и направление вывода текста;