Простейшие графические процедуры и функции

После инициализации графического режима экран очищается и можно использовать процедуры рисования.

SetBkColor(N); - установить цвет "N" для пикселов фона.

По умолчанию установлен черный цвет фона.

SetColor(N); - установить цвет "N" для выводимых линий.

По умолчанию установлен белый цвет линий.

PutPixel(X, Y, N); - высветить цветом "N" пиксел с координатами X, Y.

Наибольшее значение параметра "N" возвращает функция GetMaxColor;. Цвет задается аналогично цветам текста в модуле Crt - мож-но использовать целое число или соответствующую константу, например, при N<16:

0 - Black, 1 - Blue,.. 15 - White. Режим мерцания в графике не предусмотрен.

Circle(X, Y, R); - построить окружность с центром X, Y и радиусом R.

Line(x1, y1, x2, y2); - построить отрезок прямой линии от точки с коорди-

натами x1, y1 к точке с координатами x2, y2.

Rectangle(x1, y1, x2, y2); - построить прямоугольник с левым верхним

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

GetPixel(X, Y); - функция возвращает цвет пиксела с координатами X, Y.

Координаты точек имеют тип Integer, остальные параметры - тип Word.

Значения координат задаются в пределах 0 £X£ GetmaxX; 0 £Y£ GetmaxY;

Перемещение курсора за пределы экрана игнорируется.

Очистить графический экран можно процедурами: ClearDevice; (без изменения установленных параметров), либо GraphDefaults; (устанавливаются параметры, принятые по умолчанию).

Рассмотрим пример фрагмента программы:

Uses Crt, Graph; { раздел описаний для фрагментов программ N1- N8 }

const N= 500;

var X, Y, Vx, Vy, P: array[1..N] of integer; ch: char;

Gd, Gm, Gx, Gy, x1, y1, x2, y2, xc, yc, dx, dy, r: integer;

i1, i2, zx, zy, ax, ay, i, k: integer;

begin { инициализация графики для фрагментов программ N1- N8 }

Gd:=Detect;

InitGraph(Gd,Gm,'C:\tp7\bgi');Randomize; Gx:=GetMaxX; Gy:=GetMaxY;

{-----------------------------------------------------------------

Фрагмент N 1 программы "небо в алмазах" (рисование пикселов).

----------------------------------------------------------------- }

SetColor(0); Repeat i:= 9 + random(7); xc:= random(Gx);

yc:= random(Gy);

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