Рисование линий и точек

Рассмотрим несколько процедур для рисования линий и точек. С их помо­щью можно выводить на экран, например, оси координат (процедурой Line) и кривые изменения переменных (процедурой PutPixel).

Процедура Line вычерчивает линию с указанными координатами ее начала и конца. Обращение к процедуре Line:

Line (XI,..VI, Х2, Y2);

где XI, Y1 - выражения типа Integer, задающие координаты начала линии (в пикселях);

Х2, Y2 - выражения типа Integer, задающие координаты конца линии (в пикселях).

Процедура LineTo вычерчивает линию от текущего положения указателя до положения, заданного его новыми координатами. Обращение к процедуре

LineTo:

LineTo (X, Y);

где X, Y - выражения типа Integer, которые определяют координаты нового положения указателя (в пикселях).

Процедура LineRel вычерчивает линию от текущего положения указателя до положения, заданного приращениями его координат. Обращение к процедуре

LineRel:

LineRel.(DX, DY);

Где DX, DY - выражения типа Integer, задающие приращения координат для получения нового положения указателя (в пикселях).

Линии вычерчиваются текущим стилем и текущим цветом (установленными в последний раз) с помощью процедуры SetLineStyle.

Процедура SetLineStyle устанавливает новый стиль вычерчивания линий. Она влияет на все линии, вычерчиваемые процедурами Line, LineTo, DrawPoly и др. Формат обращения к процедуре SetLineStyle:

SetLineStyle (вид, образец, толщина);

где все параметры - выражения типа Word; вид - вид линии; образец - образец линии; толщина - толщина линии.

Вид линии определяется следующими значениями констант:

CONST SolidLn =0; { сплошная линия }

DottedLn =1; { точечная линия }

CenterLn =2; { штрихпунктирная линия }

DashedLn =3; { пунктирная линия }

UserBitLn =4; { вид линии определяется пользователем}

Образец учитывается только для линий, вид которых определяется пользова­телем.

Параметр толщина линий может принимать одно из двух значений:

CONST NormWidth = 1; { толщина в 1 пиксель: нормальная } ThickWidth = 3; { толщина в.3 пикселя: жирная }

Установленный процедурой SetLineStyle стиль линий используется также при построении многоугольников.

Процедура PutPixel выводит на экран заданным цветом пиксель (точку) по указанным координатам. Формат обращения к процедуре PutPixel: PutPixel (X, Y, цвет);

где X, Y - выражения типа Integer, определяющие координаты точки (в пикселях); цвет - выражение типа Word, определяющее цвет точки.

Координаты задаются относительно левого верхнего угла окна пли, если окно не установлено, относительно левого верхнего угла экрана. Для вывода ряда точек кривой надо многократно вызвать процедуру PutPixel, каждый раз с новыми координатами.

Пример вычерчивания кривых (синусоиды и косинусоиды) процедурой PutPixel.

PROGRAM RIS;

USES GRAPH, CRT;

VAR Ga, Gm, Error: INTEGER;

I, X, Y: REAL;

BEGIN

Ga:= DETECT; Gm:= DETECT;

INITGRAPH (Ga, Gm, ' '); Error:= GraphResult;

IF Error <> GrOK THEN

BEGIN

WRITELN (GraphErrorMsg (Error));

Halt(l)

END;

X:= - 2 *PI; SetColor(4);

Line(0, 175, 640, 175); { - горизонтальная ось }

Line(320, 0, 320, 350); { - вертикальная ось }

WHILE X < 2 * PI DO

BEGIN

Y:= Sin(X); { - формирование ординаты Sin(X) }

PutPixel(Round(X*50)+320, Round(Y*80)+175, 2); { - вывод точки }

Y:= Cos(X); { - формирование ординаты Cos(X) }

PutPixel(Round(X*50)+320, Round(Y*80)+175, 3); { - вывод точки }

X:= X + 0.1;

END; { Установка цвета и стиля текста: }

SetColor(5); SetTextStyleU, 0, 5);

OutTextXY(20, 20, 'TURBO PASCAL 7.0 (GRAPH)1); { - вывод текста }

SetTextStyle(3, 0, 3); { - установка стиля текста }

OutTextXY(20, 60, 'TURBO PASCAL 7.0 (GRAPH)'); { - вывод текста }

READLN; { - приостановка до нажатия клавиши Enter }

CLOSEGRAPH; { - закрыть графический режим }

END.

Процедура SetColor устанавливает текущий цвет выводимых линий и симво­лов. Формат обращения к процедуре SetColor:

SetColor (цвет);

где цвет - выражение типа Word, задающее текущий цвет символов и линий.

Значения цветов могут быть от 0 до 15 и приведены ранее. Пример рисование линий случайным образом со случайным выбором их цвета.

program RNDLINE; Uses Graph, Crt;

var Driver, Regim, Error: integer;

begin

Driver:= Detect; InitGraph(Driver, Regim, ' ');

Error:= GraphResult; if Error <> grOk then

begin

write (GraphErrorMsg (Error));

Exit

end;

Randomize; SetTextStyle (1, 0, 5);

OutTextXY (О, О, 'СЛУЧАЙНЫЕ ЛИНИИ');

repeat SetColor (Random (16));

LineTo (Random (GetMaxX), 60 + Random (GetMaxY));

Delay(100); { - задержка программы }

until KeyPressed; { - выполнять до нажатия любой клавиши }

CloseGraph { - закрыть графический режим }

end.

Дата добавления: 2014-01-06