Процедура CloseGraph
Завершает работу адаптера в графическом режиме и восстанавливает текстовый режим работы экрана.
При использовании графического модуля наиболее часто используют конструкции:
Program…;
Uses Graph,Crt;
Var
GrDriver, GrMode: integer;
Begin
Driver:= Detect;
InitGraph (GrDriver, GrMode, ‘C: |Bp|BGI’);
. . . . .
. . . . . тело программы
. . . . .
Delay (5000);
CloseGraph;
End.
Здесь используется Delay, поскольку процедура CloseGraph не только закрывает работу адаптера, но и стирает изображение на экране монитора.
1.3. Изображение линий и точек
Процедура PutPixel
Выводит заданным цветом точку по указанным координатам.
Заголовок:
Procedure PutPixel (X, Y: Integer: Color: word);
Здесь, X,Y – координаты точки; Color – цвет точки.
Координаты задаются относительно левого верхнего угла экрана, либо текущего окна.
Процедура Line
Вычерчивает линию с указанными координатами начала и конца.
Заголовок:
Procedure Line (X1,Y1,X2,Y2: Integer);
Здесь, X1 и Y1 – координаты начала, X2 и Y2 – координаты конца линии. Линия вычерчивается текущим стилем и текущим цветом.
Процедура LineTo
Вычерчивает линию от текущего положения указателя до положения, заданного его новыми координатами.
Заголовок:
Procedure LineTo (X, Y: Integer);
Здесь, X и Y – координаты нового положения указателя или координаты второго конца линии.
Процедура LineRel
Вычерчивает линию от текущего положения указателя до положения, заданного приращениями его координат
Заголовок:
Procedure LineRel (Dx, Dy: Integer);
Здесь, Dx и Dy – приращение координат нового положения указателя.
В процедурах LineTo и LineRel линия вычерчивается текущим стилем и текущим цветом.
Процедура SetLineStyle
Устанавливает новый стиль вычерчиваемых линий
Заголовок:
Procedure SetLineStyle (Type, Pattern, thick:Word);
Здесь, Type, Pattern, thick –соответственно тип, образец и толщина линии.
Тип линии может быть задан с помощью одной из следующих констант:
const
S
olidLn
=0; (сплошная линия)
D
ottedLn
=1; (точечная линия)
C
enterLn
=2; (штрих пунктирная линия)
D
ashedLn=3;
(пунктирная линия)
UsesBitLn=4; (узор линии определяется пользователем)
Параметр PATTERN учитывается только для линий, вид которых определяется пользователем. При этом два байта параметра PATTERN определяют образец линии: каждый установленный в единицу бит этого слова соответствует светящемуся пикселу в линии, нулевой бит – несветящемуся пикселу.
Таким образом, параметр PATTERN устанавливает отрезок линии длиной в 16 пиксел. Этот образец периодически повторяется по всей длине линии.
Параметр THICK может принимать одно из двух значений:
const
NormWidth =1; (толщина в один пиксел)
ThickWidth =3; (толщина в три пиксела)
Для выбора типа линии удобно использовать программу:
Program DemoPattern;
UsesCRT, Graph:
Var
GrDriver, GpMode, i, j: integer;
Begin
GrDriver: Detect;
InitGraph (GrDriver, GrMode, ‘C |Bp| BGI’);
Line (0, 0, 350, 0);
for i: =1 to 465 do
begin
SetLineStyle (4, i, 1);
j: =j+3;
Line (0, j, 350, j);
end;
Pelay (10000);
CloseGraph;
End.