Графические примитивы.

Работа с графическим курсором.

Работа с цветом.

Модуль Graph содержит константы для обозначений цветов. В общем случае используется 16-ти цветная палитра. Цвета нумеруются от 0 до 15, при указании цвета можно указать как его номер, так и константу из модуля Graph.

Пример.

0 - Black ( черный)

Red (красный)

15 - White (белый)

Процедура SetBkColor (Color), где color – целое число, устанавливает цвет фона.

SetColor (Color) - устанавливает цвет линии.

SetFillStуle (P,Сolor) - устанавливает цвет заливки и стиль заливки P.

Пример.

SetFillStуle (SolidFill,Red) - устанавливает сплошную (SolidFill) заливку красным цветом.

В модуле Graph содержатся константы образцов заливки.

SetlineStyle (F,P,T) определяет стиль линии, F может принимать следующие значения:

0 – сплошная;

1 – пунктирная;

3 – штриховая;

4 – форма линии определяется параметром Р.

Р – это число, двоичное представление которого определяет отображение 16 пикселов линии.

Значения F лежат в интервале от 0 до 4, параметр T определяет толщину линии. Может принимать значения:

1 – тонкая

3– толстая

Процедура MoveTo (Х,Y) перемещает курсор в точку с координатами (Х,Y).

Процедура MoveRel (dх,dy) перемещает курсор из текущего положения на dх пикселов по горизонтали u на dх пиксенов по вертикали.

Функция Getх возвращает координату графического курсора по горизонтали, Gety - по вертикали.

Под графическими примитивами обычно понимают некоторый элементарный графический объект.

Процедура PutPiхel (х,y,сolor) закрашивает пиксель с координатами (х,y) в цвет Color.

Процедура Line (х1,y1,х2,y2) рисует отрезок от точки (х1,y1) до точки (х2,y2), используя текущий цвет линии.

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

Процедура Circle (х,y,R) рисует окружность с центром в точке (х,y) с радиусом R.

Процедура Arc (х,y,A1,А2,R) рисует дугу окружности с центром в точке (х,y) от угла А1 до А2 и радиусом R. углы отсчитываются от оси х против часовой стрелки и указываются в градусах.

Процедура Ellipse (х,y,А1,А2,Rх,Ry) рисует сектор эллипса с центром в точке (х,y) от угла А1 до А2 с полуосями Rх и Ry.

Процедура Lineto (х,y) рисует отрезок прямой от текущего положения курсора до точки (х,y).

Процедура LineRel (dх,dy) рисует отрезок прямой от текущего положения курсора до точки, смещенной на (dх, dy).

Замечание: все выше приведенные процедуры используют текущий цвет линии.

Процедура Bar (x1,y1,x2,y2) рисует закрашенный прямоугольник.

Процедура Bar3D (x1,y2,x2,y2,d,t) рисует изображение параллелепипеда, передняя грань которого определяется (x1,y1) и (x2,y2), d - глубина внутрь, t – определяет видимость верхней грани.

True - видна

False – не видна

Процедура PieSlise(x,y,A1,A2,R) рисует заполненный сектор круга с центром в точке (x,y) от угла A1 до A2 радиуса R.

Процедура FillElipse(x,y,Rx,Ry) (x,y) Rx Ry.

Процедура Sector(x,y,A1,A2,Rx,Ry) (x,y) A1 A2 Rx Ry.

Замечание:

При построение заполненных фигур используется текущий цвет и стиль линий, текущий цвет и стиль заливки.

Работа с текстом.

Процедура OuttextXY(x,y,<строка>)

Выводит строковую величину <строка> в позиции экрана с координатами (x,y).

Пример

OuttextXY(2,3, ‘Пример ‘);