2.7.2. Задание палитры ‑ Palette (qb)

Palette{[<атрибут палитры>,<цвет>]|Using<имя массива>[(<индекс>)]}

<атрибут палитры> - порядковый номер изменяемого цвета в палитре(1-3);

<цвет>-номер цвета, присваиваемый атрибуту палитры: 0 (черный), 1 (си­ний), 2 (зеленый), 3 (голубой), 4 (красный), 5 (пурпурный), 6 (корич­не­вый), 7 (бе­лый), 8 (серый), 9 (светло-синий), 10 (светло-зеленый), 11 (свет­ло-го­лу­бой), 12 (розовый), 13 (светло-пупурный), 14 (желтый), 15 (яр­ко-бе­лый).

Номер цвета, увеличенный на 16, вызывает мерцание этого цвета;

<имя массива> - массив значений цвета, который присваивается текущей группе атрибутов цвета;

<индекс> - индекс первого элемента массива, который присваивается атрибуту экрана.

2.7.3. Задание цвета ‑ Color (qb)

Для Screen=0 ‑ текстовый режим:

Color [<передний план>][,[<фон>][,<окаймление>]]

<передний план> ‑ цвет выводимого текста (0-31);

<фон> ‑ цвет фона экрана (0-15);

<окаймление>-цвет окаймления экрана (0-15).

Для Screen=1 ‑ графические режимы:

Color [<фон>][,<палитра>]

<фон> - цвет фона экрана (0-15);

<палитра> - номер палитры (0-1):

0 - равносильна: Palette 1,2 Palette 2,4 Palette 3,6

1 - равносильна: Palette 1,3 Palette 2,5 Palette 3,7

2.7.4. Очистка экрана- Cls (QB)

Команда Cls [{0|1|2}]выполняет очистку всего экрана (0), графичес­кой (1) или текстовой (2) информации.

2.8. Графические средства (QB)

2.8.1. Отображение точки ‑ Pset (QB)

Вид команды: Pset [Step] (x,y)[,<цвет>]

Step ‑ относительные координаты (смещение относительно последней вы­ве­денной точки);

(x,y) - координаты точки (колонка, строка);

<цвет> - номер атрибута палитры (номер цвета в палитре).

2.8.2. Отображение отрезка и прямоугольника ‑ Line (QB)

Line [[Step](x1,y1)]-[Step](x2,y2)[,[<цвет>][,[B[F]][,<маска>]]]

Step ‑ относительные координаты;

(x1,y1),(x2,y2) - координаты отрезка;

<цвет> ‑ номер цветовой палитры изображения отрезка;

B ‑ вывод прямоугольника с указанной диагональю;

F ‑ закрашивание прямоугольника;

<маска> - четырехзначное шестнадцатеричное число-маска: если бит ра­вен 0, то точка не выводится. Когда просмотрен последний бит, процесс пов­торяется. Маска используется для вычерчивания пунктирных линий (Screen 1:Line (110,70)-(190,120),, B : Line (0, 0)-(320, 200),3, , &HFF00).

2.8.3. Изображение окружности и эллипса ‑ Circle (qb)

Circle [Step](x,y), <радиус> [, [<цвет>]

[, [<начало>] [, [<конец>] [, <сжатие>]]]]

Step ‑ относительные координаты центра (x,y);

<радиус>, <цвет> ‑ размер большой полуоси и номер цвета;

<начало>,<конец> - высвечиваемый угол в радианах;

<сжатие> ‑ параметр сжатия (5/6).

Пример. Screen 1: Pi = 3.14: Circle (160, 00), 60, , ‑Pi, Pi / 2

2.8.4. Вычерчивание произвольного изображения ‑ Draw (qb)

Команда имеет вид: Draw <строка команд>

Команды перемещения курсора:

Un ‑ вверх на N шагов, Dn ‑ вниз, Ln ‑ влево, Rn ‑ вправо,

En ‑ диагональ вверх и вправо, Fn - диагональ вниз и вправо,

Gn ‑ диагональ вниз и влево, Hn ‑ диагональ вверх и влево.

B ‑ перемещение курсора без высвечивания точек;

N ‑ перемещение с последующим возвратом в начальную точку.

M(x,y) ‑ абсолютные координаты или смещение (если указаны знаки плюс или минус перед X или Y)

Команды управления:

An ‑ установить угол поворота сформированного изображения, кратным 90n, где n=0, 1, 2, 3. Указывается перед командами вычерчивания;

Tan - установить угол поворота изображения равным n градусам;

Sn ‑ установить размер шага перемещения n (1-255);

Cn ‑ установить номер цвета в палитре;

P<цвет закраски фигуры>,<цвет границы>:

“X”+Varptr(X$) - выполнение подстроки команд из строки.

Пример. Screen 1: Draw “U20 R20 D20 L20” 'квадрат