Другие процедуры
ClearDevice - Очищает экран в графическом режиме.
CloseGraph - Закрывает графический режим.
SetColor(Color:Word) - Устанавливает новый цвет для рисования.
SetLineStyle(LineStyle:Word; Pattern:Word; Thickness:Word) - Устанавливает стиль и толщину линий. Если Thickness равно ThickWidth, то линии будут толстыми, если NormWidth, то обычными.
SetFillStyle(Pattern:Word; Color:Word) - Устанавливает стиль и цвет заливки. Если Pattern равно UserFill, то используется определенный пользователем стиль, описанный процедурой SetFillPattern.
SetFillPattern(Pattern:FillPatternType; Color:Word) - Устанавливает определяемый пользователем стиль и цвет заливки. FillPatternType=Array [1..8] of Byte;
FloodFill(X, Y:Integer; Border:Word) - Заливает область вокруг точки (X, Y) до линии цвета Border, используя текущий стиль и цвет заливки.
SetTextStyle(Font, Direction:Word; CharSize:Word) - Устанавливает используемый шрифт, его направление и размер. Направление соответствует значению переменной Direction и может быть горизонтальным (Direction=0) или вертикальным (Direction=1). Шрифт может быть как одним из стандартных, так и определенный пользователем (с помощью функции InstallUserFont).
SetUserCharSize(MultX, DivX, MultY, DivY:Word) - Устанавливает ширину букв используемого шрифта в MultX/DivX раз больше, а высоту в MultY/DivY раз больше.
OutTextXY(X, Y:Integer; TextString:String) - Выводит текст TextString на экран от точки (X, Y).
Процедуры для рисования фигур
PutPixel(X, Y:Integer; Pixel:Word) - Рисует на экране точку с координатами (X, Y) цветом Pixel.
Line(X1, Y1, X2, Y2:Integer) - Рисует на экране отрезок прямой от точки (X1, Y1) до точки (X2, Y2).
Rectangle(X1, Y1, X2, Y2:Integer) - Рисует на экране прямоугольник с верхним левым углом в точке (X1, Y1) и нижним правым углом в точке (X2, Y2).
Bar(X1, Y1, X2, Y2:Integer) - Рисует на экране залитый прямоугольник с верхним левым углом в точке (X1, Y1) и нижним правым углом в точке (X2, Y2). Стиль и цвет заливки задаются процедурой SetFillStyle.
Окружности и сектора
Circle(X, Y:Integer; Radius:Word) -
Рисует на экране окружность с центром в точке (X, Y) радиусом Radius.
Ellipse(X, Y:Integer; StAngle, EndAngle:Word; XRadius, YRadius:Word) - Рисует на экране эллиптическую дугу с центром в точке (X, Y), радиусами XRadius, YRadius. StAngle, EndAngle - начальный и конечный углы.
Arc(X, Y:Integer; StAngle, EndAngle:Word; Radius:Word) - Рисует на экране дугу окружности с центром в точке (X,Y), радиусом Radius. StAngle, EndAngle - начальный и конечный углы.
FillEllipse(X, Y:Integer; XRadius,YRadius:Word) - Рисует на экране залитый эллипс с центром в точке (X, Y), радиусами XRadius, YRadius. Стиль и цвет заливки задаются процедурой SetFillStyle.
Sector(X, Y:Integer; StAngle, EndAngle:Word; XRadius, YRadius:Word) - Рисует на экране закрашенный сектор эллипса с центром в точке (X, Y), радиусами XRadius, YRadius. StAngle, EndAngle - начальный и конечный углы. Стиль и цвет заливки задаются процедурой SetFillStyle.
PieSlice(X, Y:Integer; StAngle, EndAngle:Word; Radius:Word) - Рисует на экране закрашенный сектор круга с центром в точке (X, Y), радиусом Radius. StAngle, EndAngle - начальный и конечный углы. Стиль и цвет заливки задаются процедурой SetFillStyle.
Графика в языке программирования Паскаль
