Построение простейших геометрических образов

Вывод точки: PutPixel (x, y: integer; Color: word);

Вывод линии:

Line ( x₁, y₁, x₂, y₂: integer); (цвета нет, он задаётся Set Color!).

LineTo (x, y: integer) – от текущего указателя до точки (x, y).

LineRel (dx, dy: integer) – от точки (x, y) до х+dx и y+dy.

SetLineStyle (TYP: word; Obr: word; T: word) устанавливается тип линии

TYP – тип линии (0 – непрерывная, 1 – линия из точек, 2 – линия из точек и штрихов, 3 – штриховая, 4 – тип пользователя);

Obr – образец (0 для стандартных типов);

Т – толщина линии (1 – 1 пиксель, 3 – 3 пикселя).

Например: SetLineStile (3, 0, 1)

Set Line Stile (0, 0, 3)

Построение прямоугольников Rectangle (x₁, y₁, x₂, y₂: integer). Область внутри прямоугольника не закрашена и совпадает по цвету с фоном. Можно использовать для построения диаграмм.

Bar (x₁, y₁, x₂, y₂) – рисует закрашенный прямоугольник. Цвет закраски устанавливает SetFillStyle.

Например: SetFillStyle (1, 3); Bar (10, 10, 50, 100);

Bar3D (x₁, y₁, x₂, y₂: integer; G: word; V: boolean);

где G – глубина контура (число пикселей);

V – строить вершину или нет.

Например: Bar3D (10, 20, 170, 80, 40, TRUE);

Построение многоугольников DrawPoly (NumPoints: word; var Points); – произвольный многоугольник (текущего цвета и толщины);

NumPoints: word – число вершин + 1.

Points (переменная типа PointType = record x, y: word end;) – координаты каждого узла (могут быть заданы, например, массивом).

Построение дуги и окружности

Circle (x, y, Radius: word);

Arc (x, y: integer; ND, KD, Rad: word);

ND, KD – начальная и конечная дуги в радианах.

Ellipse (x, y: integer; ND, KD; XR, YR: word);

XR, YR – горизонтальная и вертикальная оси.

FloodFill (x, y: integer; Border: word); – заполняет («заливает») произвольную замкнутую фигуру, используя текущий стиль заполнения (узор и цвет); задает цвет граничной линии, до которой следует выполнять «заливку».