Лабораторная работа №12 Простейшие графические построения

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

Модуль Graph представляет собой мощную библиотеку графических подпрограмм универсального назначения, рассчитанную на работу с графическими адаптерами IBM –совместимых ПК. Подпрограммы модуля Graph обеспечивают различные режимы работы многорежимных адаптеров, полностью используют их цветовые возможности и разрешающую способность. Во время выполнения программы процедура InitGraph автоматически распознает графический адаптер, установленный на ПК, загружает и инициализирует соответствующий графический драйвер, переводит адаптер в графический режим и возвращает управление вызывающей программе. Процедура CloseGraph выгружает драйвер из памяти и восстанавливает текстовый режим работы адаптера. Программы модуля Graph позволяют адресоваться к любому элементу (пикселю) растрового графического экрана и управлять светимостью этого элемента. Для указания пикселя используется следующая система координат: верхний левый угол графического экрана имеет координаты 0,0; горизонтальная координата Х увеличивается слева направо, вертикальная координата Y увеличивается сверху вниз. Например, в режиме 640 х 480 (адаптер VGA) правый нижний угол экрана имеет координаты 639; 479, а центр экрана – координаты 319; 239.

Некоторые графические программы используют понятие текущего указателя. Указатель содержит координаты того пикселя, начиная с которого будет строиться изображение подпрограммами LineTo, LineBel, OutText и др. В этом смысле указатель подобен текстовому курсору, но в отличие от него, не имеет видимого изображения на экране.

В модуле Graph имеются процедуры для рисования элементарных графических фигур – точек, линий, окружностей, дуг и т.д.

При необходимости замкнутые фигуры могут быть закрашены различными цветами и стилями (образцами закраски).

Простейшие процедуры

PutPixel (x, y: integer; K: Word) – рисует точку с координатами x и y цвета К.

Line (x1, y1, x2, y2: integer) – рисует линию от точки с координатами х1; у1 – до точки с координатами х2; у2.

Circle (х, у; integer; R: Word) – рисует окружность радиуса R, используя х; у как координаты центра.

Ellipse (х, y: integer; StAngle, EndAngle, XR, yR: Word) – рисует эллиптическую дугу от начального угла StAngle к конечному углу EndAngle, используя х, у как координаты центра и XR, YR – как горизонтальный и вертикальный радиусы.

Arc (x, y: integer; StAngle, R: Word) - рисует дугу с радиусом R от начального угла StAngle к конечному EndAngle, используя х и у как координаты центра.

Bar (x1, y1, x2, y2: integer) – рисует полосу заданного размера, используя текущий стиль и цвет.

Rectangle (x1, y1, x2, y2: integer) – рисует прямоугольник, используя текущий цвет и тип линии.

Outtext XY (x, y: integer; Textstring: string) – выводит текст в заданное место экрана.