Вывод точки и линии

Begin

Var

Gd,Gm:integer;

Gd:=Detect;

InitGraph(Gd,Gm,');

if GraphResult<>grOk then Halt(1);

...

CloseGraph

end.

Графический режим инициализируется с помощью стандартной процедуры InitGraph. При этом переменным Gd и Gm необходимо указать номер адаптера и номер графического режима. Если переменной Gd предварительно присвоить значение константы Detect, описанной в модуле Graph (ее значение 0), то при загрузке драйвера программа выполнит автоматическое распознавание типа адаптера. При этом, если есть выбор графических режимов, устанавливается тот из них, который обеспечивает более высокое качество изображения. Третий параметр процедуры InitGraph - путь до файла с загрузочным модулем драйвера. Если путь отсутствует, то поиск этого файла будет осуществляться в текущем каталоге. Ошибки, которые могут возникать при инициализации графического режима, анализируют с помощью функции GraphResult. Для выхода из графического режима используется стандартная процедура CloseGraph. Эта процедура восстанавливает режим, существовавший до инициализации графики.

Для создания графических изображений модуль Graph предоставляет широкий набор процедур и функций.

PutPixel(X,Y:integer;Color:word) - ставит на экране точку с координатами (X,Y) цвета Color.

Line(X1,Y1,X2,Y2:integer) - выводит на экран линию, соединяющую точки с координатами (X1,Y1) и (X2,Y2).

Rectangle(X1,Y1,X2,Y2:integer) - выводит на экран изображение прямоугольника с координатами диагонали (X1,Y1) и (X2,Y2).

Circle(X,Y:integer;Radius:word) - выводит на экран изображение окружности с координатами центра (X,Y) и радиусом (Radius).

Ellipse(X,Y:integer; StAngle, EndAngle, XRadius, YRadius: word) - выводит на экран изображение эллиптической дуги с центром в точке (X,Y) от начального угла StAngle до конечного угла EndAngle с горизонтальной полуосью XRadius и вертикальной YRadius. Отсчет углов осуществляется относительно горизонтальной оси в направлении против часовой стрелки. (3 часа - 0, 12 часов - 90 и т.д.) Если StAngle=0, а EndAngle=360, то будет выведено изображение полного эллипса.

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

SetLineStyle(LineStyle,Pattern,Thickness:Word) –задает тип (толщину) линии. Первый параметр изменяется от 0 до 4 и определяет тип линии. В модуле Graph описаны следующие константы:

· SolidLn - 0 - непрерывная линия,

· DottedLn - 1 - точечная линия,

· CenterLn - 2 - штрихпунктирная линия,

· DashedLn - 3 - штриховая линия,

· UserBitLn - 4 - тип линии, указываемый пользователем.

Второй параметр задает тип линии, он необходим, если первый параметр равен 4. Третий параметр задает толщину линии.

· NormWidth - 1 - тонкая линия,

· ThickWidth - 3 - толстая линия.

Рассмотрим пример:

uses Graph;

var Gd,Gm:integer;

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