Процедуры и функции графического режима
Ellipse
Синтаксис:
procedure Ellipse(х,у: integer; УголНачала, УголКонца: word; РадиусХ, РадиусУ: word);
Действие:
Вычерчивает эллипс или дугу эллипса с центром в точке с координатами (x,у). Параметры УголНачала и Уголконца задают угловые координаты начальной и конечной точек линии эллипса, которая вычерчивается против часовой стрелки от начальной точки к конечной. Угловые координаты задаются в градусах, их значения возрастают против часовой стрелки. Параметры РадиусХ и Радиусу определяют горизонтальный и вертикальный радиусы эллипса. Линия эллипса или дуги вычерчивается в соответствии с установками процедуры setcoior.
GetX, GetY
Синтаксис:
function GetX: integer; function GetY: integer;
Действие:
Возвращают координаты х и у указателя вывода.
GraphResult
Синтаксис:
function GraphResult: imteger;
Возвращает результат (код ошибки) последней выполненной графической операции. Если операция выполнена успешно, функция возвращает ноль. Код ошибки выполнения графической операции устанавливают процедуры Bar, Bar3D, InitGraph, PieSlice, SetFillPattern, SetFillStyle, SetLineStyle, SetTextStyle и др.
InitGraph
Синтаксис:
InitGraph(var Driver: integer; var Mode: integer; Path: string)
Действие:
Инициализирует графический режим. Параметр Driver определяет драйвер видеосистемы, параметр Mode – режим работы видеосистемы, параметр Path – каталог, где находится драйвер.
Line
Синтаксис:
procedure Line(x1,y1,x2,y2: integer);
Действие:
Вычерчивает линию между двумя точками экрана, координаты которых указаны при вызове процедуры. Линия вычерчивается стилем, установленным процедурой SetLineStyle. Цвет линии можно задать при помощи процедуры setcolor.
LineTo
Синтаксис:
procedure Line(x2,yl: integer);
Действие:
Вычерчивает линию от текущего положения указателя вывода до точки, координаты которой указаны при вызове процедуры. Линия вычерчивается стилем, установленным процедурой SetLineStyle. Цвет линии можно задать при помощи процедуры SetColor.