TURBO PASCAL

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Гостевая книга

Благодарности

От автора

procedure Arc(x,у: integer; УголНачала, УголКонца: integer; Радиус: integer);

Вычерчивает дугу с центром в точке с координатами (х,у). Параметры УголНачала и УголКонца задают угловые координаты начальной и конечной точек линии дуги, которая вычерчивается против часовой стрелки от начальной точки к конечной. Угловые координаты задаются в градусах. Значение угловой координаты возрастает против часовой стрелки. Параметр Радиус задае" радиус дуги. Дуга вычерчивается цветом, заданным процедурой setcoior.

procedure Bar(xl,yl,x2,y2: integer);

Вычерчивает закрашенный прямоугольник. Параметры xi и yi задают положение левого верхнего угла прямоугольника, х2 и _{У2 — правого нижнего. Используемый стиль и цвет заливки задается Процедурой SetFillStyle.}

procedure Bar3D(xI,yJ,x2,y2: integer; Глубина: word; Граница: boolean);

Вычерчивает параллелепипед. Параметры xi и yi задают положение левого верхнего, а х2 и у2 — правого нижнего угла ближней грани параллелепипеда. Параметр глубина задает расстояние между передней и задней гранями. Параметр граница определяет, нужно ли вычерчивать верхнюю фаницу задней грани параллелепипеда.

Procedure Circle(х,у: integer; r: word);

Вычерчивает окружность радиуса г с центром в точке с координатами (х,у).

Цвет окружности можно задать при помощи процедуры setcoior.

DetectGraph(var Драйвер, Режим: integer);

procedure Ellipse(х,у: integer; УголНа чала,УголКонца: word;

Вычерчивает эллипс или дугу эллипса с центром в точке с координатами (х,у). Параметры Уголначала и УголКонца задают угловые координаты начальной и конечной точек линии эллипса, которая вычерчивается против часовой стрелки от начальной точки к конечной. Угловые координаты задаются в градусах, их значения возрастают против часовой стрелки. Параметры РадиусХ и Радиусу определяют горизонтальный и вертикальный радиусы эллипса. Линия эллипса или дуги вычерчивается в соответствии с установками процедуры setcoior.

function GetX: integer; function GetY: integer;

function GraphResult: imteger;

Инициализирует графический режим. Параметр Driver определяет драйвер видеосистемы, параметр Mode — режим работы видеосистемы, параметр Path — каталог, где находится драйвер.

procedure Line(xl,yl,x2,y2: integer); Действие:

Вычерчивает линию от текущего положения указателя вывода До точки, координаты которой указаны при вызове процеду-Ры. Линия вычерчивается стилем, установленным процедурой setLineStyle. Цвет линии можно задать при помощи процедуры

Устанавливает указатель вывода в точку с координатами (х,у) и выводит строку символов Текст, при этом указатель вывода своего положения не меняет, остается в точке с координатами

procedure PieSlice(x,y: integer; УголНачала, УголКонца, Радиус: word);

Вычерчивает сектор радиуса Радиус с центром в точке с координатами (х,у). Параметры УголНачала и УголКонца задают угловые координаты начальной и конечной точек линии окружности (в градусах), которая вычерчивается против часовой стрелки от начальной к конечной точке. Значение угловой координаты возрастает против часовой стрелки. Нулевому углу соответствует горизонтальный отрезок, проведенный из точки (х,у) в сторону возрастания координаты х. Если УголНачала равен 0°, а УголКонца равен 360°, то процедура PieSlice вычерчивает круг.

procedure PutPixel(x,у: integer; Цвет: word);

Окрашивает пиксел, точку с координатами (х,у), цветом Цвет. В качестве параметра Цвет обычно используют именованную

КОНСТаНТу (CM. SetColor) .

Вычерчивает прямоугольник. Параметры xi и yi задают положение левого верхнего угла прямоугольника, х2 и у2 — правого нижнего угла прямоугольника.

procedure Sector(x,у: integer; Угол1,Угол2, РадиусХ, РадиусУ: word);

Вычерчивает эллиптический (РадиусХ * Радиусу) или круговой (РадиусХ = Радиусу) сектор. Параметры х и у задают положение центра сектора, угол! и угол2 - углы прямых, ограничивающих сектор, а РадиусХ и Радиусу — радиусы эллипса по осям X и Y, из которого "вырезается" отображаемый сектор. Нулевому углу соответствует горизонтальный отрезок, проведенный из точки (х,у) в сторону возрастания координаты х. Если угол! равен 0°, а Угол2 равен 360°, то процедура sector вычерчивает полный круг (эллипс).

procedure SetColor(Цвет:word);

procedure SetFillStyle(Стиль, Цвет: word);

Действие:

Устанавливает стиль и цвет заливки (закрашивания), используемый процедурами вывода областей (ваг, вагзп, sector и др.). В качестве параметра стиль обычно используют одну из именованных констант, список которых приведен ниже. Параметр Цвет также задается именованной константой (см. Setcolor).

EmptyFill Без заливки (сплошная заливка цветом фона)

SolidFill Сплошная заливка текущим цветом

LineFill Горизонтальная штриховка

procedure SetLineStyle(ТилЛинии: word; Образец: word; Толщина: word) ;

Параметр гилЛинии, в качестве которого обычно используется одна из именованных констант, определяет вид линии.

Константа Тип линии

SolidLn Сплошная, непрерывная

DottedLn Пунктирная, с постоянной длиной штрихов

CenterLn Штрих-пунктирная линия

DashedLn Пунктирная, длина штрихов чуть больше, чем у линии

типа DottedLn

UserBitLn Определенный программистом тип линии

(КОНСТанта ThickWidth).

Параметр образец используется в том случае, если процедура SetLineStyle устанавливает тип линии, определяемый программистом. Значением параметра образец должна быть четырехразрядная шестнадцатеричная константа, кодирующая отрезок линии длиной в 16 пикселов.

procedure SetTexStyle(Дрифт, Ориентация, Размер: word);

Параметр Ориентация задает ориентацию выводимого процедурами OutText и OutTextXY текста. Текст может быть ориентирован обычным образом (значение параметра ориентация в этом случае равно именованной константе Normal) или вертикально, т. е.

снизу вверх (в этом случае значение параметра ориентация равно

Vertical).

На первую страницу

(с)Все права защищены

По всем интересующим вопросам прошу писать на электронный адрес