Использование графических средств

Цель работы - ознакомление с основными возможностями графических средств систем программирования Turbo Basic и Turbo Pascal.

Необходимые исходные сведения

Система Turbo Basic. Для установки режима работы дис­плея используется оператор SCREEN, имеющий следующий фор­мат записи

SCREEN [режим] [, [флаг цвета]] [, [активная страница]] [,[видимая страница]]

где режим - целочисленное выражение со значением в диапазо­не от 0 до 13, действие которого определяется табл. 9; флаг цвета - признак цветности (0 - для цветного, 1 - для мо­нохромного режима); активная страница - целочисленное выражение с значением в диапазоне от 0 до 7, которое управляет номером видеостраницы, куда записываются данные, форми­руемые операторами вывода; видимая страница — определяет, какая из видеостраниц (от 0 до 7) выводится на экран в данный момент.

Оператор COLOR устанавливает цвет переднего плана и фона экрана при выводе символов. Синтаксис:

COLOR [Plan] [,Phon]

где Plan, Phon - номера цветов переднего плана и фона, воз­можные значения которых даны в табл. 10.

Количество допустимых цветов определяется режимом эк­рана из табл. 9. После установки нового цвета фона рекоменду­ется применить оператор CLS.

Для вывода точек (пикселей) в графическом режиме исполь­зуется система экранных координат, начало которой расположе­но в верхнем левом углу дисплея (ось X направлена вправо, ось Y - вниз). Координаты измеряются целыми числами от нуля домаксимальных значений, соответствующих параметрам уста­новленного оператором SCREEN графического режима.

Таблица 9

Режим	Действие
0	Текстовый режим
1	Графический режим с разрешением 320x200 с 4 цветами
2	Черно-белый режим с разрешением 640x200
7	Для адаптеров EGA и VGA режим с разрешением 320x200 с 16 цветами
8	Для адаптера EGA режим с разрешением 640x200, для VGA-640x350 с 16 цветами
9	Для адаптеров EGA и VGA режим с разрешением 640x350 с 4 цветами для EGA и 16 цветами для VGA
10	Режим с разрешением 640x350 для адаптера EGA с мо­нохромным дисплеем
11	Черно-белый режим с разрешением 640x480 для адапте­ров VGA
12	Режим с разрешением 640x480 для VGA, допускает 16 цветов
13	Режим с разрешением 320x200 для VGA, допускает 256 цветов

Таблица 10

Номер цвета	Цвет	Номер цвета	Цвет
0	Черный	8	Серый
1	Синий	9	Г олубой
2	Зеленый	10	Яоко-зеленый
3	Бирюзовый	И	Ярко-бирюзовый
4	Красный	12	Ярко-красный
5	Лиловый	13	Ярко-лиловый
6	Коричневый	14	Желтый
7	Белый	15	Ярко-белый

Операторы графического режима. Оператор LINE позволя­ет построить отрезок прямой или прямоугольник. Синтаксис: LINE {(xl, yl) - (x2, y2) }, [цвет] , [B[F]]

Где xl, yl, x2, у2 - координаты начала и конца отрезка, либо противоположных вершин прямоугольника; цвет - номер цвета, которым будут производиться построения (см. „ табл. 10); В - строится прямоугольник (Box); BF (Box Fill) - построенный прямоугольник закрашивается текущим цветом переднего плана.

Оператор PSET позволяет вывести в указанное место экрана точку (пиксел). Синтаксис:

PSET { (х, у) } [, цвет]

где х, у - координаты точки; цвет - целое число, определяющее цвет точки (см. в табл. 10).

Оператор PAINT позволяет закрасить ограниченную область цветом фона. Синтаксис:

PAINT { (х, у) }

где х, у - координаты любой точки внутри области. Перед ис­пользованием paint необходимо убедиться в непрерывности границ области, в противном случае будет закрашен весь экран дисплея.

Оператор CIRCLE предназначен для построения окружно­стей, эллипсов или их фрагментов. Синтаксис:

CIRCLE {(х, у),R}[,цвет],[Al], [А2 ], [к]

где х, у - координаты центра; R - радиус окружности или мень­шая полуось эллипса; Al, А2 - начальный и конечный углы по­строения, отсчитывающиеся против часовой стрелки относи­тельно оси Ох в радианах (по умолчанию равны 0 и 2л); k = Rx/Ry - отношение полуосей (по умолчанию равно едини­це). Для построения окружности параметры Al, А2, к можно не задавать.

Пример программы построения графика функции sin (х).

SCREEN 12 'Переход в графический режим

Pi=4*Atn(1.0) 'Определяем число П

'Рисуем белым цветом ось Ох посередине экрана

LINE (220,240) - (420,240), 7

FOR X=0 TO 2*Pi STEP Pi/180 Y=Sin(X)

'Координата точки по оси Ох с учетом масштаба Хр=220+200*Х/(2 * Pi)

'Координата точки по оси Оу с учетом масштаба Yp=240-100*Y

PSET (Xp,Yp),4 'Выводим точку красным цветом

NEXT X

SCREEN 0 'Возврат в текстовый режим

END

3