Страница:
зуется регистр маски битов для маскирования тех точек, которые не
должны изменяться. Если бит этого регистра сброшен в 0, то данные
получаемые от процессора для этого бита игнорируются и вместо них
используются данные, хранящиеся в регистрах задвижки. Равен ли
этот бит в данных процессора 0 или 1 - не имеет значения; если Вы
изменяете только бит 2, а все остальные маскированы, то данные,
которые приходят от процессора могут быть 0FFH или 4H, или любое
другое значение, для которого бит 2 установлен. Если бит 2 сьро-
шен, то 0 помещается в этой позиции во всех разрешенных битовых
плоскостях.
Вообще говоря, программа должна сначала прочитать любую ячей-
ку, в которую она собирается записать меньше чем 8 точек. Имеются
два режима чтения (обсуждаемые в [4.4.4]) и безразлично какой из
них выбран. Операция чтения загружает регистры задвижки четырьмя
байтами данных для данного адреса памяти. Данные, возвращаемые
процессору операцией чтения, могут быть отброшены.
До сих пор были рассмотрены самые простые возможности режима
записи 0. При желании Вы можете делать намного более сложные
манипуляции. Одна из возможностей состоит в модификации регистров
задвижки с помощью логических операций перед записью. Для реали-
зации этой возможности регистр вращения данных использует следую-
щие биты:
биты 2-0 число вращений
4-3 00 данные не модифицируются
01 логическое И с регистром задвижки
10 логическое ИЛИ с регистром задвижки
11 исключающее ИЛИ с регистром задвижки
7-5 не используются
Число вращений, которое может быть от 0 до 7, показывает
сколько битов данных должны вращаться перед тем, как поместить их
в регистр задвижки. Обычно это значение равно нулю. Аналогично,
биты 4-3, как правило равны 00, кроме случаев, когда производятся
логические операции. За счет манипуляций с этим регистром одни и
те же данные могут давать различные цвета и изображения без до-
полнительной процессорной обработки. Регистр вращения данных
индексируется посылкой 3 в порт 3CEH; затем данные посылаются в
3CFH.
Наконец, режим записи 0 может работать совсем по-другому если
разрешены установка/сброс. В этом случае определенные цвета в
младших четырех битах регистра установки/сброса (который тоже
имеет адрес порта 3CFH, а индексируется посылкой 0 в 3CEH). Име-
ется соответствующий регистр разрешения установки/сброса, который
разрешает любой из этих четырех битов, устанавливая свои младшие
биты в 1. Когда все 4 бита в регистре установки/сброса разрешены,
то они помещаются во все 8 адресов битовой плоскости при получе-
нии данных от процессора, при этом сами данные процессора отбра-
сываются. Если разрешены не все биты установки/сброса, то данные
процессора помещаются для запрещенных точек. Отметим, что регистр
маски битов запрещает запись данных установки/сброса в определен-
ные точки, но установка регистра маски карты игнорируется при
использовании установки/сброса. BIOS инициализирует регистр раз-
решения установки/сброса в 0, так что он неактивен. Его адрес
порта 3CFH, а индексируется он посылкой 1 в порт 3CEH.
Режим записи 1:
Режим записи 1 предназначен для специальных приложений. В этом
режиме текущее содержимое регистра задвижки записывается по ука-
занному адресу. Напоминаем, что регистры задвижки заполняются
операцией чтения. Этот режим очень полезен для быстрого переноса
данных при операциях сдвига экрана. Регистр маски битов и регистр
маски карты не влияют на эту операцию. Не имеет также значения
какие данные посылает процессор - содержимое регистров задвижки
записывается в память без изменений.
Режим записи 2:
Режим записи 2 предоставляет альтернативный способ установки
отдельных точек. Процессор посылает данные, у которых имеют зна-
чение только 4 младших бита, которые рассматриваются как цвет
(индекс регистра палетты). Можно сказать, что эта цепочка битов
вставляется поперек битовых плоскостей. Цепочка дублируется на
все восемь точек, относящихся к данному адресу, до тех пор пока
регистр маски битов не предохраняет определенные точки от измене-
ния. Регистр маски карты активен, как и в режиме записи 0. Конеч-
но процессор должен послать полный байт, но только младшие 4 бита
существенны.
Высокий уровень.
Бейсик поддерживает EGA в традиционных режимах цветного графи-
ческого адаптора. Ко времени выхода этой книги поддержки дополни-
тельных режимов EGA не существовало. Поэтому у Вас нет другого
выхода, кроме как использовать прямое отображение в видеобуфер,
который начинается с адреса A000:0000. Самая тяжелая проблема
состоит в установке режима дисплея. Для ее решения используйте
следующую процедуру на машинном языке:
10 S$ = CHR$(&H2A)+CHR$(&HE4)+CHR$(&HB0)+CHR$(&H0D)
+CHR$(&HCD)+CHR$(&H10)+CHR$(&HCB)
20 DEF SEG 'установка сегмента
30 Y = VARPTR(S$) 'указатель на строку
40 Z = PEEK(Y+1)+PEEK(Y+2)*256 'вычисление адреса строки
50 CALL Z 'вызов процедуры
Четвертый байт S$ содержит номер режима, в данном случае режим D.
Вы можете выбрать другой режим. В приложении Г объясняется как
эта процедура работает в Бейсике. Она полностью завершенная, не
нужно никакой побочной памяти, в которой содержался бы машинный
код. Не забудьте восстановить режим дисплея после завершения
своих манипуляций.
Затем надо установить соответствующий режим записи. Вот как
устанавливается режим записи 2:
50 OUT &H3CE,5 'индексируем регистр режима записи
60 OUT &H3CF,2 'выбираем режим 2
Режим записи также должен быть восстановлен после завершения
программы.
Наконец, приведем образцы кода, реализующие прямое отображение
в видеобуфер:
Режим записи 0:
100 'рисуем красную точку в левом верхнем углу экрана
110 DEF SEG = &HA000 'указываем на видеобуфер
120 OUT &H3CE,8 'адресуем регистр маски битов
130 OUT &H3CF,128 'маскируем все биты, кроме седьмого
140 X = PEEK(0) 'читаем текущее значение в задвижку
150 POKE 0,0 'чистим
160 OUT &H3C4,2 'адресуем регистр маски карты
170 OUT &H3C5,4 'устанавливаем красный цвет
180 POKE 0,&HFF 'рисуем точку
Режим записи 1:
100 'копируем верхнюю строчку точек в следующую
110 DEF SEG = &HA000 'указываем на видеобуфер
120 FOR N = 0 TO 79 'для всех 80 байтов строки
130 X = PEEK(N) 'заполняем задвижки
140 POKE N+80,Y 'копируем в следующую строку
150 NEXT 'переходим к следующему сегменту
Режим записи 2:
100 'рисуем красную точку в левом верхнем углу экрана
110 DEF SEG = &HA000 'указываем на видеобуфер
120 OUT &H3CE,8 'адресуем регистр маски битов
130 OUT &H3CF,128 'маскируем все биты, кроме седьмого
140 X = PEEK(0) 'читаем текущее значение в задвижку
150 POKE 0,4 'посылаем красный цвет
Средний уровень.
EGA поддерживает стандартные графические функции BIOS. Можно
вывести точку с помощью функции CH прерывания 10H, так же как для
цветного дисплея или PCjr. При входе DX должен содержать номер
строки, а CX - номер столбца, и то и другое отсчитывается от 0.
Код цвета помещается в AL. Содержимое AX меняется при выполнении
прерывания.
;---рисуем точку по адресу 50,100
MOV AH,0CH ;функция вывода точки
MOV AL,12 ;выбираем регистр палетты 12
MOV CX,100 ;номер строки
MOV DX,50 ;номер столбца
INT 10H ;рисуем точку
Низкий уровень.
Ниже приведены примеры для трех режимов записи. Перед их ис-
пользованием необходимо установить режим дисплея, использующий
видеобуфер с адреса A000:0000. Для этого можно использовать стан-
дартную функцию BIOS, например, для установки режима D:
MOV AH,0 ;функция установки режима
MOV AL,0DH ;выбираем режим D
INT 10H ;устанавливаем режим
Не забудьте восстановить режим перед завершением программы. Кроме
того, Вам необходимо установить требуемый режим записи. Вот при-
мер установки режима записи 2:
MOV DX,3CEH ;указываем на регистр адреса
MOV AL,5 ;инедксируем регистр 5
OUT DX,AL ;посылаем индекс
INC DX ;указываем на регистр режима
MOV AL,2 ;выбираем режим записи 2
OUT DX,AL ;устанавливаем режим
И, наконец, примеры трех режимов записи:
Режим записи 0:
;---рисуем красную точку в левом верхнем углу экрана
MOV AX,0A000H ;указываем на видеобуфер
MOV ES,AX ;
MOV BX,0 ;указываем на первый байт буфера
;---маскируем все биты, кроме седьмого
MOV DX,3CEH ;указываем на адресный регистр
MOV AL,8 ;номер регистра
OUT DX,AL ;посылаем его
INC DX ;указываем на регистр данных
MOV AL,10000000B ;маска
OUT DX,AL ;посылаем данные
;---чистим текущее содержимое задвижки
MOV AL,ES:[BX] ;читаем содержимое в задвижку
MOV AL,0 ;готовимся к очистке
MOV ES:[BX],AL ;чистим задвижку
;---установка регистра маски карты для красного цвета
MOV DX,3C4H ;указываем на адресный регистр
MOV AL,2 ;индекс регистра маски карты
OUT DX,AL ;установка адреса
INC DX ;указываем на регистр данных
MOV AL,4 ;код цвета
OUT DX,AL ;посылаем код цвета
;---рисуем точку
MOV AL,0FFH ;любое значение с установленным 7 битом
MOV ES:[BX],AL ;выводим точку
Режим записи 1:
;---копируем строку в следующую строку
MOV CX,80 ;число байтов в строке
MOV BX,0 ;начинаем с 1-го байта буфера
MOV AX,0A000H ;адрес буфера
MOV ES,AX ;
NEXT_BYTE: MOV AL,ES:[BX] ;заполняем задвижку
MOV ES:[BX]+80,AL ;выводим в следующую строку
INC BX ;переходим к следующему байту
LOOP NEXT_BYTE ;
Режим записи 2:
;---рисуем красную точку в левом верхнем углу экрана
MOV AX,0A000H ;адрес буфера
MOV ES,AX ;
MOV BX,0 ;указываем на первый байт буфера
;---установка регистра маски битов
MOV DX,3CEH ;указываем на адресный регистр
MOV AL,8 ;регистр маски битов
OUT DX,AL ;адресуем регистр
INC DX ;указываем на регистр данных
MOV AL,10000000B ;маскируем все биты, кроме 7-го
OUT DX,AL ;посылаем данные
;---рисуем красную точку
MOV AL,ES:[BX] ;заполняем регистры задвижки
MOV AL,4 ;красный цвет
MOV ES:[BX],AL ;рисуем точку
Для графических режимов цветного адаптора или PCjr определение
цвета точки на низком уровне состоит в обращении процедуры вывода
точки: программа читает из видеобуфера и выделяет интересующие
биты. Однако для EGA этот метод непригоден, поскольку в режимах
DH - 10H каждому адресу памяти соответствует два или четыре бай-
та. EGA имеет два режима чтения, чтобы преодолеть эту трудность.
Имейте ввиду, что для PCjr и EGA, после того, как Вы определили
код цвета точки, необходимо еще проверить установку текущего ре-
гистра палетты для этого кода, чтобы определить какой цвет ему
приписан.
Любой язык программирования имеет доступ к двум режимам чтения
EGA. В режиме 0 возвращается байт, содержащийся во всех четырех
битовых плоскостях, по указанному адресу. Режим 1 ищет указанный
код цвета и возвращает байт, в котором бит установлен в 1, когда
соответствующая точка имеет данный цвет. Бит 3 регистра режима
определяет какой режим чтения установлен (0 = режим 0). Доступ к
этому регистру осуществляется через порт 3CFH и Вы должны предва-
рительно послать 5 в порт 3CEH, чтобы выбрать этот регистр. Обыч-
но все остальные биты этого регистра, который можно только пи-
сать, сброшены в 0, кроме битов 0 и 1, которые определяют режим
записи. Поскольку при инициализации BIOS устанавливает эти биты в
режим записи 0 (так что они оба равны 0), то обычно Вам нужно
просто послать в этот регистр 0, чтобы установить режим чтения 0
и послать 8, чтобы установить режим чтения 1.
Режим чтения 0 требует, чтобы Вы предварительно установили
регистр выбора карты. Единственная задача этого регистра - уста-
новить, какая из карт битов должна быть прочитана. Поэтому в него
надо послать число от 0 до 3. Этот регистр имеет адрес порта 3CFH
и надо предварительно послать 4 в порт 3CEH, чтобы указать этот
регистр.
Режим чтения 1 более сложен. Сначала регистр сравнения цветов
должен быть заполнен цепочкой битов для кода цвета, который Вы
ищете. Этот код помещается в младшие 4 бита регистра; старшие 4
бита - несущественны. Этот регистр имеет адрес порта 3CFHи указы-
вается предварительной засылкой 2 в порт 3CEH. После чтения ячей-
ки памяти возвращается байт, который имеет биты установленные в 1
для каждой точки, имеющей нужный цвет. Однако за счет использова-
ния регистра безразличия цвета (color don't care register) один
или более битов кода цвета могут при сравнении игнорироваться.
Обычно 4 младших бита этого регистра установлены в 1; обнуление
одного из этих битов приведет к тому, что содержимое соответст-
вующей битовой плоскости будет игнорироваться. Например, если
цепочка битов для точки 3 (бит 3) по указанному адресу равна 0110
и регистр сравнения цветов содержит значение 0010, то при сравне-
нии будет возвращен байт, у которого бит 3 равен 0, если в ре-
гистре безразличия цветов все биты равны 1. Но если регистр без-
различия цветов содержит 1011, то в байте, возвращаемом процессо-
ру бит 3 будет равен 1.
Регистр безразличия цветов имеет адрес порта 3CFH и индекси-
руется засылкой 7 в порт 3CEH. Старшие 4 его бита не играют ника-
кой роли. Отметим, что документация IBM (от 2 августа 1984 г.)
утверждает что регистр действует обратным образом, т.е., что 1 в
регистре заставляет операцию сравнения игнорировать соответствую-
щую битовую плоскость. Эксперимент показывает обратное.
Ни один из этих двух режимов чтения не может дать быстрый
ответ на вопрос о цвете определенной точки. В режиме чтения 0
необходимы 4 отдельных чтения, по одному для каждой битовой плос-
кости, после чего надо еще выделить соответствующие биты из каж-
дого байта. В режиме чтения 1, с другой стороны, может потребо-
ваться до 16 чтений, прежде чем для требуемой точки будет возвра-
щен установленный бит, указывающий что эта точка имеет данный
цвет. Но хотя EGA относительно медленно выполняет данную задачу,
зато для других целей он работает очень быстро.
Высокий уровень.
Бейсик предоставляет функцию POINT, которая возвращает цвет
точки. Цвет палетты точки, находящейся в столбце 200 и строке 100
находится путем Q = POINT(200,100). Значение, возвращаемое в Q -
это обычный кодовый номер цвета. Если указана точка, находящаяся
за пределами экрана, то функция POINT возвращает значение -1.
Когда координатная система экрана изменяется оператором WINDOW
[4.4.2], то функция POINT переходит к новой системе.
POINT может также сообщить позицию последней выведенной точки.
При использовании обычной координатной системы, в которой 0,0
соответствует левому верхнему углу экрана, Q = POINT(1) возвра-
щает в Q x-координату точки, а Q = POINT(2) - y-координату. Если
действует оператор WINDOW, то Q = POINT(3) и Q = POINT(4) возвра-
щает x- и y-координаты в новой системе. Когда нет активного опе-
ратора WINDOW, то последние два оператора действуют так же, как и
первые два.
К моменту выхода этой книги Бейсик не поддерживал улучшенные
графические режимы EGA (D-10H). В этих режимах программа должна
прямо читать содержимое видеобуфера. Вот пример использования
режима чтения 1 для поиска кодов цветов 0001 и 1001:
100 OUT &H3CE,5 'адрес регистра режима
110 OUT &H3CF,8 'устанавливаем режим чтения 0
120 OUT &H3CE,2 'адрес регистра сравнения цветов
130 OUT &H3CF,1 'ищем цвет 0001
140 OUT &H3CE,7 'адрес регистра безразличия цветов
150 OUT &H3CF,7 '7 = 0111B, поэтому м. б. 0001 и 1001
160 DEF SEG = &HA000 'адрес видеобуфера для EGA
170 X = PEEK(0) 'читаем первый байт
180 IF X <> 0 THEN... '..то цвет 0001 или 1001 найден
Средний уровень.
Функция D прерывания 10H возвращает код цвета указанной точки.
BIOS имеющийся на плате EGA обеспечивает, что эта функция рабо-
тает в любом режиме дисплея. Надо поместить номер строки (отсчи-
тываемый от 0) в DX, а номер столбца (также отсчитываемый от 0) -
в CX. Результат возвращается в AL.
;---определяем код палетты точки 100,200
MOV AH,0DH ;номер функции чтения цвета точки
MOV DX,100 ;номер строки
MOV CX,200 ;номер столбца
INT 10H ;теперь код цвета в AL
Низкий уровень.
Для графических режимов цветного адаптора и PCjr надо просто
обратить процесс прямого отображения в память, которым устанавли-
вается цвет точки, как показано в [4.4.2]. Можно испоьзовать
приведенный там пример, который надо завершить следующим кодом:
;---изменение битов (место для вставки изменений)
MOV AH,ES:[BX] ;берем байт из нужной позиции
ROR AH,CL ;сдвигаем 2 нужных бита вниз
AND AH,00000011B ;выключаем остальные биты
RET ;теперь в AH - код палетты
Для режимов EGA от DH до 10H надо пользоваться регистрами,
которые были описаны выше. В следующем примере режим чтения 0
испоьзуется для чтения битовой плоскости 2 по адресу A000:0012.
;---установка режима чтения
MOV DX,3CEH ;индексный регистр
MOV AL,5 ;сначала адресуем регистр режима
OUT DX,AL ;посылаем индекс
INC DX ;указываем на сам регистр
MOV AL,0 ;устанавливаем режим чтения 0
OUT DX,AL ;
;---установка битовой плоскости, которую будем читать
DEC DX ;назад к индексному регистру
MOV AL,4 ;адрес регистра выбора карты
OUT DX,AL ;посылаем индекс
INC DX ;указываем на сам регистр
MOV AL,2 ;запрос битовой плоскости 2
OUT DX,AL ;посылаем значение
;---чтение битовой плоскости
MOV AX,0A000H ;адрес видеобуфера
MOV ES,AX ;
MOV BX,12 ;смещение в буфере
MOV AL,ES:[BX] ;читаем из битовой плоскости 2
И, наконец, пример поиска кодов цвета 0010 и 1010 с использова-
нием режима чтения 1:
;---установка режима чтения
MOV DX,3CEH ;регистр индекса
MOV AL,5 ;адресуем сначала регистр режима
OUT DX,AL ;посылаем индекс
INC DX ;указываем на сам регистр
MOV AL,8 ;устанавливаем бит 3 для режима 1
OUT DX,AL ;устанавливаем режим
;---установка регистра сравнения цветов
DEC DX ;возвращаемся к индексному регистру
MOV AL,2 ;адрес регистра сравнения цветов
OUT DX,AL ;посылаем индекс
INC DX ;указываем на сам регистр
MOV AL,0010B ;код цвета
OUT DX,AL ;посылаем код
;---установка регистра безразличия цветов
DEC DX ;возвращаемся к индексному регистру
MOV AL,7 ;адрес регистра безразличия цветов
OUT DX,AL ;посылаем индекс
INC DX ;указываем на сам регистр
MOV AL,0111B ;принимаем коды 1010 или 0010
OUT DX,AL ;посылаем данные
;---поиск цвета
MOV AX,0A000H ;адрес видеобуфера
MOV ES,AX ;
MOV BX,12 ;смещение в буфере
MOV AL,ES:[BX] ;читаем позицию буфера
CMP AL,0 ;установлены биты?
JNZ FOUND_IT ;если да, то ищем у какой точки
Простейший способ нарисовать линию на экране состоит в том,
чтобы вычислить следующую точку этой линии и изменить биты соот-
ветствующего байта. Такие операции очень медленны, хотя иногда их
нельзя избежать. Если это возможно, то лучше вычислить область
точек экрана, которые имеют одинаковый цвет. Тогда требуемые
операции над битами можно проделать только над одним байтом, а
затем этот байт может быть помещен в область соответствующих
позиций видеобуфера.
Высокий уровень.
Бейсик позволяет рисовать прямые линии с помощью оператора
LINE. LINE (20,10)-(40,30) рисует линию от столбца 20 и строки 10
к столбцу 40 и строке 30. И строки и столбцы нумеруются от нуля.
Вы можете опустить координаты первой точки, в этом случае линия
будет начинаться с последней точки, которая была ранее выведена
графическим оператором. Вторая пара координат может задаваться
также относительно первой, с помощью конструкции LINE -STEP(xoff-
set,yoffset).
Оператор LINE может указывать также цвет и стиль линии. Код
цвета следует сразу за списком координат; LINE (50,50)-(60,60),2
выводит линию цветом 2. Когда цвет не указан, то по умолчанию
берется цвет 3. Возможность выбора стиля линии предполагает ука-
зание чередования ее точек. Образец может даваться как в десятич-
ной, так и в шестнадцатиричной форме. Например, образец
1010101010101010, который соответствует &HAAAA, дает линию, точки
которой имеют по очереди данный цвет и фоновый. Стиль линии опре-
деляется третьим параметром после координат. Например, LINE
(30,30)-(40,40),3,,&HAAAA выводит линию с указанным стилем цветом
3.
Бейсик предоставляет также процедуры для рисования прямоуголь-
ников и окружностей. Прямоугольники выводятся с помощью оператора
LINE. В данном случае координаты должны описывать левый верхний и
правый нижний угол рамки. Надо просто указать B (box - т.е. рам-
ка) в качестве второго параметра за координатами. LINE
(50,50)-(100,100),1,B,&HAAAA рисует квадрат со стороной 50 точек
цветом 1 палетты, используя вышеописанный стиль. Для вывода пря-
моугольника, заполненного определенным цветом надо использовать
параметр BF (при этом стиль линии указывать не надо).
Окружности рисуются оператором CIRCLE. Их вывод основывается
на формуле CIRCLE (x,y),r,цвет,нач-угол,кон-угол,аспект. Коорди-
наты x,y дают адрес центра окружности на экране, а r - радиус
окружности в точках; вся остальная информация необязательна. Цвет
- это код цвета, который по умолчанию берется равным 3. Если
необходимо вывести только дугу окружности, то можно указать
нач-угол и кон-угол (когда они опущены, то выводится целая окруж-
ность). Углы измеряются как положительные или отрицательные ве-
личины, отсчитываемые от направления по горизонтали вправо. Они
измеряются в радианах (в 360 градусах содержится 6.292 радиан, а
один градус = 0.0174532 радиан). Аспект это отношение горизон-
тальных и вертикальных размеров. Круглая окружность получается на
дисплее, когда Вы укажете его равным 5/6 для умеренного разреше-
ния и 5/12 для высокого разрешения. Меньшие значения приводят к
эллипсам, вытянутым по горизонтали, а большие - по вертикали. Для
примера PI=3.14159: CIRCLE(200,50),30,2,PI/2,PI,6 выводит дугу,
центр которой находится в точке 50,200, с радиусом 30 точек цве-
том 2, причем будет выведен только левый верхний квадрант верти-
кально вытянутого эллипса.
Более сложные линии могут выводиться с помощью оператора DRAW,
который необычайно гибок. За оператором DRAW следует строка (зак-
люченная в скобки), в которой закодирована последовательность
ориентаций и длин сегментов, составляющих линию. Например, DRAW
"E12F12G12H12" выводит бубну. Начальная точка устанавливается
оператором PSET (обсуждаемым в [4.4.2]); в противном случае, по
умолчанию берется центр экрана. Основные коды состоят из буквы,
за которой следует длина сегмента в точках. Коды следующие:
Ux вверх (на x точек)
Dx вниз
Rx вправо
Lx влево
Ex по диагонали вверх и вправо
Fx по диагонали вниз и вправо
Gx по диагонали вниз и влево
Hx по диагонали вверх и влево
При умеренном разрешении 100 точек по горизонтали и 100 точек по
вертикали дают отрезки примерно одинаковой длины (на самом деле
отношение y к x равно 5/6). При высоком разрешении горизонтальная
линия будет приблизительно вдвое меньше, чем вертикальная. Из-за
большего расстояния между точками диагональ прямоугольника содер-
жит ровно столько же точек, сколько и максимальная сторона пря-
моугольника, хотя сам отрезок длиннее.
Для рисования диагоналей с углами, отличными от 45 градусов,
используется кодовая буква M. Этот код рисует следующий сегмент
линии в абсолютную или относительную позицию экрана. Чтобы ука-
зать абсолютную позицию надо указать координаты x и y. DRAW
"M50,60" проведет линию в точку, имеющую координаты столбца 50 и
строки 60. Для указания относительных координат добавьте знаки +
или - перед числами. Если текущее значение координаты x равно
100, то +50 продолжит линию до столбца 150, а -50 - до столбца
50. Чтобы сдвинуться из 100,100 в 120,70 напишите DRAW
"M+20,-30".
Линия не обязана быть непрерывной. Когда перед кодом указана
буква B, то указатель перемещается как указано, но сегмент линии
при этом не рисуется. Например, DRAW "L10BU5R10" рисует две пара-
ллельные горизонтальные линии. Чтобы из одной точки начиналось
несколько сегментов надо указать перед кодом букву N. В этом
случае указатель будет возвращаться в начальную точку после выво-
да сегмента.
Имеется ряд специальных кодов, которые будучи помещенными
внутри строки, действуют на все последующие коды (пока следующий
аналогичный код не укажет другое действие). Цвет сегмента линии
устанавливается буквой C, за которой следует код цвета. DRAW
"C2D5" рисует линию, направленную вниз цветом 2. Установка масш-
табного фактора меняет масштаб, в котором будет выводиться фигура
или ее часть. Надо добавить к строке букву S, за которой следует
фактор. Фактор это число, которое для получения масштаба делится
на 4. Обычно фактор равен 4, что соответствует масштабу 1:1.
Изменение фактора на 8 приведет к тому, что размер выводимой
фигуры будет вдвое больше. Для этого напишите DRAW "S8U12D12" и
т.д.
Используя один их двух кодов Вы можете вращать оси координат-
ной системы. Кодовая буква A вращает оси против часовой стрелки с
90-градусными инкриментами. A0 не вращет оси вообще. A1 - повора-
чивает их на 90 градусов, A2 - на 180 градусов и A3 - на 270
градусов. Аналогично, код TA поворачивает оси на указанное число
градусов от 0 до 360 (против часовой стрелки) и от 0 до -360 (по
часовой стрелке). DRAW "A1L10" и DRAW "TA90L10" приведут к тому,
что линия, которая должна была быть направленной влево будет
вместо этого нарисована повернутой на 90 градусов и направлена
вниз.
Оператор DRAW может включать строковые переменные, которые
состоят из набора допустимых кодов. Это свойство позволяет прог-
рамме повторно использовать части фигур в различных рисунках. В
операторе DRAW имя строки должно быть помещено за буквой X и за
ним должны следовать точка с запятой. Например:
100 S$ = "U12R15U45L32"
110 DRAW "XS$;"
В одном операторе DRAW может содержаться несколько строк, переме-
жаемых другими кодами. Отметим, что любые числа, используемые с
кодами в операторах DRAW могут сами быть переменными. Таким обра-
зом с помощью одного оператора DRAW могут выводиться фигуры,
отличающиеся по форме, цвету, масштабу и ориентации. Надо помес-
тить знак равенства между буквенным кодом и именем переменной, а
за именем поместить точку с запятой. Например, чтобы установить
код цвета, определяемый переменной, напишите DRAW "C=PCOLOR;".
Компилятор Бейсика требует, чтобы ссылка на эти переменные осу-
ществлялась с помощью функции VARPTR$. В этом случае такой опера-
должны изменяться. Если бит этого регистра сброшен в 0, то данные
получаемые от процессора для этого бита игнорируются и вместо них
используются данные, хранящиеся в регистрах задвижки. Равен ли
этот бит в данных процессора 0 или 1 - не имеет значения; если Вы
изменяете только бит 2, а все остальные маскированы, то данные,
которые приходят от процессора могут быть 0FFH или 4H, или любое
другое значение, для которого бит 2 установлен. Если бит 2 сьро-
шен, то 0 помещается в этой позиции во всех разрешенных битовых
плоскостях.
Вообще говоря, программа должна сначала прочитать любую ячей-
ку, в которую она собирается записать меньше чем 8 точек. Имеются
два режима чтения (обсуждаемые в [4.4.4]) и безразлично какой из
них выбран. Операция чтения загружает регистры задвижки четырьмя
байтами данных для данного адреса памяти. Данные, возвращаемые
процессору операцией чтения, могут быть отброшены.
До сих пор были рассмотрены самые простые возможности режима
записи 0. При желании Вы можете делать намного более сложные
манипуляции. Одна из возможностей состоит в модификации регистров
задвижки с помощью логических операций перед записью. Для реали-
зации этой возможности регистр вращения данных использует следую-
щие биты:
биты 2-0 число вращений
4-3 00 данные не модифицируются
01 логическое И с регистром задвижки
10 логическое ИЛИ с регистром задвижки
11 исключающее ИЛИ с регистром задвижки
7-5 не используются
Число вращений, которое может быть от 0 до 7, показывает
сколько битов данных должны вращаться перед тем, как поместить их
в регистр задвижки. Обычно это значение равно нулю. Аналогично,
биты 4-3, как правило равны 00, кроме случаев, когда производятся
логические операции. За счет манипуляций с этим регистром одни и
те же данные могут давать различные цвета и изображения без до-
полнительной процессорной обработки. Регистр вращения данных
индексируется посылкой 3 в порт 3CEH; затем данные посылаются в
3CFH.
Наконец, режим записи 0 может работать совсем по-другому если
разрешены установка/сброс. В этом случае определенные цвета в
младших четырех битах регистра установки/сброса (который тоже
имеет адрес порта 3CFH, а индексируется посылкой 0 в 3CEH). Име-
ется соответствующий регистр разрешения установки/сброса, который
разрешает любой из этих четырех битов, устанавливая свои младшие
биты в 1. Когда все 4 бита в регистре установки/сброса разрешены,
то они помещаются во все 8 адресов битовой плоскости при получе-
нии данных от процессора, при этом сами данные процессора отбра-
сываются. Если разрешены не все биты установки/сброса, то данные
процессора помещаются для запрещенных точек. Отметим, что регистр
маски битов запрещает запись данных установки/сброса в определен-
ные точки, но установка регистра маски карты игнорируется при
использовании установки/сброса. BIOS инициализирует регистр раз-
решения установки/сброса в 0, так что он неактивен. Его адрес
порта 3CFH, а индексируется он посылкой 1 в порт 3CEH.
Режим записи 1:
Режим записи 1 предназначен для специальных приложений. В этом
режиме текущее содержимое регистра задвижки записывается по ука-
занному адресу. Напоминаем, что регистры задвижки заполняются
операцией чтения. Этот режим очень полезен для быстрого переноса
данных при операциях сдвига экрана. Регистр маски битов и регистр
маски карты не влияют на эту операцию. Не имеет также значения
какие данные посылает процессор - содержимое регистров задвижки
записывается в память без изменений.
Режим записи 2:
Режим записи 2 предоставляет альтернативный способ установки
отдельных точек. Процессор посылает данные, у которых имеют зна-
чение только 4 младших бита, которые рассматриваются как цвет
(индекс регистра палетты). Можно сказать, что эта цепочка битов
вставляется поперек битовых плоскостей. Цепочка дублируется на
все восемь точек, относящихся к данному адресу, до тех пор пока
регистр маски битов не предохраняет определенные точки от измене-
ния. Регистр маски карты активен, как и в режиме записи 0. Конеч-
но процессор должен послать полный байт, но только младшие 4 бита
существенны.
Высокий уровень.
Бейсик поддерживает EGA в традиционных режимах цветного графи-
ческого адаптора. Ко времени выхода этой книги поддержки дополни-
тельных режимов EGA не существовало. Поэтому у Вас нет другого
выхода, кроме как использовать прямое отображение в видеобуфер,
который начинается с адреса A000:0000. Самая тяжелая проблема
состоит в установке режима дисплея. Для ее решения используйте
следующую процедуру на машинном языке:
10 S$ = CHR$(&H2A)+CHR$(&HE4)+CHR$(&HB0)+CHR$(&H0D)
+CHR$(&HCD)+CHR$(&H10)+CHR$(&HCB)
20 DEF SEG 'установка сегмента
30 Y = VARPTR(S$) 'указатель на строку
40 Z = PEEK(Y+1)+PEEK(Y+2)*256 'вычисление адреса строки
50 CALL Z 'вызов процедуры
Четвертый байт S$ содержит номер режима, в данном случае режим D.
Вы можете выбрать другой режим. В приложении Г объясняется как
эта процедура работает в Бейсике. Она полностью завершенная, не
нужно никакой побочной памяти, в которой содержался бы машинный
код. Не забудьте восстановить режим дисплея после завершения
своих манипуляций.
Затем надо установить соответствующий режим записи. Вот как
устанавливается режим записи 2:
50 OUT &H3CE,5 'индексируем регистр режима записи
60 OUT &H3CF,2 'выбираем режим 2
Режим записи также должен быть восстановлен после завершения
программы.
Наконец, приведем образцы кода, реализующие прямое отображение
в видеобуфер:
Режим записи 0:
100 'рисуем красную точку в левом верхнем углу экрана
110 DEF SEG = &HA000 'указываем на видеобуфер
120 OUT &H3CE,8 'адресуем регистр маски битов
130 OUT &H3CF,128 'маскируем все биты, кроме седьмого
140 X = PEEK(0) 'читаем текущее значение в задвижку
150 POKE 0,0 'чистим
160 OUT &H3C4,2 'адресуем регистр маски карты
170 OUT &H3C5,4 'устанавливаем красный цвет
180 POKE 0,&HFF 'рисуем точку
Режим записи 1:
100 'копируем верхнюю строчку точек в следующую
110 DEF SEG = &HA000 'указываем на видеобуфер
120 FOR N = 0 TO 79 'для всех 80 байтов строки
130 X = PEEK(N) 'заполняем задвижки
140 POKE N+80,Y 'копируем в следующую строку
150 NEXT 'переходим к следующему сегменту
Режим записи 2:
100 'рисуем красную точку в левом верхнем углу экрана
110 DEF SEG = &HA000 'указываем на видеобуфер
120 OUT &H3CE,8 'адресуем регистр маски битов
130 OUT &H3CF,128 'маскируем все биты, кроме седьмого
140 X = PEEK(0) 'читаем текущее значение в задвижку
150 POKE 0,4 'посылаем красный цвет
Средний уровень.
EGA поддерживает стандартные графические функции BIOS. Можно
вывести точку с помощью функции CH прерывания 10H, так же как для
цветного дисплея или PCjr. При входе DX должен содержать номер
строки, а CX - номер столбца, и то и другое отсчитывается от 0.
Код цвета помещается в AL. Содержимое AX меняется при выполнении
прерывания.
;---рисуем точку по адресу 50,100
MOV AH,0CH ;функция вывода точки
MOV AL,12 ;выбираем регистр палетты 12
MOV CX,100 ;номер строки
MOV DX,50 ;номер столбца
INT 10H ;рисуем точку
Низкий уровень.
Ниже приведены примеры для трех режимов записи. Перед их ис-
пользованием необходимо установить режим дисплея, использующий
видеобуфер с адреса A000:0000. Для этого можно использовать стан-
дартную функцию BIOS, например, для установки режима D:
MOV AH,0 ;функция установки режима
MOV AL,0DH ;выбираем режим D
INT 10H ;устанавливаем режим
Не забудьте восстановить режим перед завершением программы. Кроме
того, Вам необходимо установить требуемый режим записи. Вот при-
мер установки режима записи 2:
MOV DX,3CEH ;указываем на регистр адреса
MOV AL,5 ;инедксируем регистр 5
OUT DX,AL ;посылаем индекс
INC DX ;указываем на регистр режима
MOV AL,2 ;выбираем режим записи 2
OUT DX,AL ;устанавливаем режим
И, наконец, примеры трех режимов записи:
Режим записи 0:
;---рисуем красную точку в левом верхнем углу экрана
MOV AX,0A000H ;указываем на видеобуфер
MOV ES,AX ;
MOV BX,0 ;указываем на первый байт буфера
;---маскируем все биты, кроме седьмого
MOV DX,3CEH ;указываем на адресный регистр
MOV AL,8 ;номер регистра
OUT DX,AL ;посылаем его
INC DX ;указываем на регистр данных
MOV AL,10000000B ;маска
OUT DX,AL ;посылаем данные
;---чистим текущее содержимое задвижки
MOV AL,ES:[BX] ;читаем содержимое в задвижку
MOV AL,0 ;готовимся к очистке
MOV ES:[BX],AL ;чистим задвижку
;---установка регистра маски карты для красного цвета
MOV DX,3C4H ;указываем на адресный регистр
MOV AL,2 ;индекс регистра маски карты
OUT DX,AL ;установка адреса
INC DX ;указываем на регистр данных
MOV AL,4 ;код цвета
OUT DX,AL ;посылаем код цвета
;---рисуем точку
MOV AL,0FFH ;любое значение с установленным 7 битом
MOV ES:[BX],AL ;выводим точку
Режим записи 1:
;---копируем строку в следующую строку
MOV CX,80 ;число байтов в строке
MOV BX,0 ;начинаем с 1-го байта буфера
MOV AX,0A000H ;адрес буфера
MOV ES,AX ;
NEXT_BYTE: MOV AL,ES:[BX] ;заполняем задвижку
MOV ES:[BX]+80,AL ;выводим в следующую строку
INC BX ;переходим к следующему байту
LOOP NEXT_BYTE ;
Режим записи 2:
;---рисуем красную точку в левом верхнем углу экрана
MOV AX,0A000H ;адрес буфера
MOV ES,AX ;
MOV BX,0 ;указываем на первый байт буфера
;---установка регистра маски битов
MOV DX,3CEH ;указываем на адресный регистр
MOV AL,8 ;регистр маски битов
OUT DX,AL ;адресуем регистр
INC DX ;указываем на регистр данных
MOV AL,10000000B ;маскируем все биты, кроме 7-го
OUT DX,AL ;посылаем данные
;---рисуем красную точку
MOV AL,ES:[BX] ;заполняем регистры задвижки
MOV AL,4 ;красный цвет
MOV ES:[BX],AL ;рисуем точку
Для графических режимов цветного адаптора или PCjr определение
цвета точки на низком уровне состоит в обращении процедуры вывода
точки: программа читает из видеобуфера и выделяет интересующие
биты. Однако для EGA этот метод непригоден, поскольку в режимах
DH - 10H каждому адресу памяти соответствует два или четыре бай-
та. EGA имеет два режима чтения, чтобы преодолеть эту трудность.
Имейте ввиду, что для PCjr и EGA, после того, как Вы определили
код цвета точки, необходимо еще проверить установку текущего ре-
гистра палетты для этого кода, чтобы определить какой цвет ему
приписан.
Любой язык программирования имеет доступ к двум режимам чтения
EGA. В режиме 0 возвращается байт, содержащийся во всех четырех
битовых плоскостях, по указанному адресу. Режим 1 ищет указанный
код цвета и возвращает байт, в котором бит установлен в 1, когда
соответствующая точка имеет данный цвет. Бит 3 регистра режима
определяет какой режим чтения установлен (0 = режим 0). Доступ к
этому регистру осуществляется через порт 3CFH и Вы должны предва-
рительно послать 5 в порт 3CEH, чтобы выбрать этот регистр. Обыч-
но все остальные биты этого регистра, который можно только пи-
сать, сброшены в 0, кроме битов 0 и 1, которые определяют режим
записи. Поскольку при инициализации BIOS устанавливает эти биты в
режим записи 0 (так что они оба равны 0), то обычно Вам нужно
просто послать в этот регистр 0, чтобы установить режим чтения 0
и послать 8, чтобы установить режим чтения 1.
Режим чтения 0 требует, чтобы Вы предварительно установили
регистр выбора карты. Единственная задача этого регистра - уста-
новить, какая из карт битов должна быть прочитана. Поэтому в него
надо послать число от 0 до 3. Этот регистр имеет адрес порта 3CFH
и надо предварительно послать 4 в порт 3CEH, чтобы указать этот
регистр.
Режим чтения 1 более сложен. Сначала регистр сравнения цветов
должен быть заполнен цепочкой битов для кода цвета, который Вы
ищете. Этот код помещается в младшие 4 бита регистра; старшие 4
бита - несущественны. Этот регистр имеет адрес порта 3CFHи указы-
вается предварительной засылкой 2 в порт 3CEH. После чтения ячей-
ки памяти возвращается байт, который имеет биты установленные в 1
для каждой точки, имеющей нужный цвет. Однако за счет использова-
ния регистра безразличия цвета (color don't care register) один
или более битов кода цвета могут при сравнении игнорироваться.
Обычно 4 младших бита этого регистра установлены в 1; обнуление
одного из этих битов приведет к тому, что содержимое соответст-
вующей битовой плоскости будет игнорироваться. Например, если
цепочка битов для точки 3 (бит 3) по указанному адресу равна 0110
и регистр сравнения цветов содержит значение 0010, то при сравне-
нии будет возвращен байт, у которого бит 3 равен 0, если в ре-
гистре безразличия цветов все биты равны 1. Но если регистр без-
различия цветов содержит 1011, то в байте, возвращаемом процессо-
ру бит 3 будет равен 1.
Регистр безразличия цветов имеет адрес порта 3CFH и индекси-
руется засылкой 7 в порт 3CEH. Старшие 4 его бита не играют ника-
кой роли. Отметим, что документация IBM (от 2 августа 1984 г.)
утверждает что регистр действует обратным образом, т.е., что 1 в
регистре заставляет операцию сравнения игнорировать соответствую-
щую битовую плоскость. Эксперимент показывает обратное.
Ни один из этих двух режимов чтения не может дать быстрый
ответ на вопрос о цвете определенной точки. В режиме чтения 0
необходимы 4 отдельных чтения, по одному для каждой битовой плос-
кости, после чего надо еще выделить соответствующие биты из каж-
дого байта. В режиме чтения 1, с другой стороны, может потребо-
ваться до 16 чтений, прежде чем для требуемой точки будет возвра-
щен установленный бит, указывающий что эта точка имеет данный
цвет. Но хотя EGA относительно медленно выполняет данную задачу,
зато для других целей он работает очень быстро.
Высокий уровень.
Бейсик предоставляет функцию POINT, которая возвращает цвет
точки. Цвет палетты точки, находящейся в столбце 200 и строке 100
находится путем Q = POINT(200,100). Значение, возвращаемое в Q -
это обычный кодовый номер цвета. Если указана точка, находящаяся
за пределами экрана, то функция POINT возвращает значение -1.
Когда координатная система экрана изменяется оператором WINDOW
[4.4.2], то функция POINT переходит к новой системе.
POINT может также сообщить позицию последней выведенной точки.
При использовании обычной координатной системы, в которой 0,0
соответствует левому верхнему углу экрана, Q = POINT(1) возвра-
щает в Q x-координату точки, а Q = POINT(2) - y-координату. Если
действует оператор WINDOW, то Q = POINT(3) и Q = POINT(4) возвра-
щает x- и y-координаты в новой системе. Когда нет активного опе-
ратора WINDOW, то последние два оператора действуют так же, как и
первые два.
К моменту выхода этой книги Бейсик не поддерживал улучшенные
графические режимы EGA (D-10H). В этих режимах программа должна
прямо читать содержимое видеобуфера. Вот пример использования
режима чтения 1 для поиска кодов цветов 0001 и 1001:
100 OUT &H3CE,5 'адрес регистра режима
110 OUT &H3CF,8 'устанавливаем режим чтения 0
120 OUT &H3CE,2 'адрес регистра сравнения цветов
130 OUT &H3CF,1 'ищем цвет 0001
140 OUT &H3CE,7 'адрес регистра безразличия цветов
150 OUT &H3CF,7 '7 = 0111B, поэтому м. б. 0001 и 1001
160 DEF SEG = &HA000 'адрес видеобуфера для EGA
170 X = PEEK(0) 'читаем первый байт
180 IF X <> 0 THEN... '..то цвет 0001 или 1001 найден
Средний уровень.
Функция D прерывания 10H возвращает код цвета указанной точки.
BIOS имеющийся на плате EGA обеспечивает, что эта функция рабо-
тает в любом режиме дисплея. Надо поместить номер строки (отсчи-
тываемый от 0) в DX, а номер столбца (также отсчитываемый от 0) -
в CX. Результат возвращается в AL.
;---определяем код палетты точки 100,200
MOV AH,0DH ;номер функции чтения цвета точки
MOV DX,100 ;номер строки
MOV CX,200 ;номер столбца
INT 10H ;теперь код цвета в AL
Низкий уровень.
Для графических режимов цветного адаптора и PCjr надо просто
обратить процесс прямого отображения в память, которым устанавли-
вается цвет точки, как показано в [4.4.2]. Можно испоьзовать
приведенный там пример, который надо завершить следующим кодом:
;---изменение битов (место для вставки изменений)
MOV AH,ES:[BX] ;берем байт из нужной позиции
ROR AH,CL ;сдвигаем 2 нужных бита вниз
AND AH,00000011B ;выключаем остальные биты
RET ;теперь в AH - код палетты
Для режимов EGA от DH до 10H надо пользоваться регистрами,
которые были описаны выше. В следующем примере режим чтения 0
испоьзуется для чтения битовой плоскости 2 по адресу A000:0012.
;---установка режима чтения
MOV DX,3CEH ;индексный регистр
MOV AL,5 ;сначала адресуем регистр режима
OUT DX,AL ;посылаем индекс
INC DX ;указываем на сам регистр
MOV AL,0 ;устанавливаем режим чтения 0
OUT DX,AL ;
;---установка битовой плоскости, которую будем читать
DEC DX ;назад к индексному регистру
MOV AL,4 ;адрес регистра выбора карты
OUT DX,AL ;посылаем индекс
INC DX ;указываем на сам регистр
MOV AL,2 ;запрос битовой плоскости 2
OUT DX,AL ;посылаем значение
;---чтение битовой плоскости
MOV AX,0A000H ;адрес видеобуфера
MOV ES,AX ;
MOV BX,12 ;смещение в буфере
MOV AL,ES:[BX] ;читаем из битовой плоскости 2
И, наконец, пример поиска кодов цвета 0010 и 1010 с использова-
нием режима чтения 1:
;---установка режима чтения
MOV DX,3CEH ;регистр индекса
MOV AL,5 ;адресуем сначала регистр режима
OUT DX,AL ;посылаем индекс
INC DX ;указываем на сам регистр
MOV AL,8 ;устанавливаем бит 3 для режима 1
OUT DX,AL ;устанавливаем режим
;---установка регистра сравнения цветов
DEC DX ;возвращаемся к индексному регистру
MOV AL,2 ;адрес регистра сравнения цветов
OUT DX,AL ;посылаем индекс
INC DX ;указываем на сам регистр
MOV AL,0010B ;код цвета
OUT DX,AL ;посылаем код
;---установка регистра безразличия цветов
DEC DX ;возвращаемся к индексному регистру
MOV AL,7 ;адрес регистра безразличия цветов
OUT DX,AL ;посылаем индекс
INC DX ;указываем на сам регистр
MOV AL,0111B ;принимаем коды 1010 или 0010
OUT DX,AL ;посылаем данные
;---поиск цвета
MOV AX,0A000H ;адрес видеобуфера
MOV ES,AX ;
MOV BX,12 ;смещение в буфере
MOV AL,ES:[BX] ;читаем позицию буфера
CMP AL,0 ;установлены биты?
JNZ FOUND_IT ;если да, то ищем у какой точки
Простейший способ нарисовать линию на экране состоит в том,
чтобы вычислить следующую точку этой линии и изменить биты соот-
ветствующего байта. Такие операции очень медленны, хотя иногда их
нельзя избежать. Если это возможно, то лучше вычислить область
точек экрана, которые имеют одинаковый цвет. Тогда требуемые
операции над битами можно проделать только над одним байтом, а
затем этот байт может быть помещен в область соответствующих
позиций видеобуфера.
Высокий уровень.
Бейсик позволяет рисовать прямые линии с помощью оператора
LINE. LINE (20,10)-(40,30) рисует линию от столбца 20 и строки 10
к столбцу 40 и строке 30. И строки и столбцы нумеруются от нуля.
Вы можете опустить координаты первой точки, в этом случае линия
будет начинаться с последней точки, которая была ранее выведена
графическим оператором. Вторая пара координат может задаваться
также относительно первой, с помощью конструкции LINE -STEP(xoff-
set,yoffset).
Оператор LINE может указывать также цвет и стиль линии. Код
цвета следует сразу за списком координат; LINE (50,50)-(60,60),2
выводит линию цветом 2. Когда цвет не указан, то по умолчанию
берется цвет 3. Возможность выбора стиля линии предполагает ука-
зание чередования ее точек. Образец может даваться как в десятич-
ной, так и в шестнадцатиричной форме. Например, образец
1010101010101010, который соответствует &HAAAA, дает линию, точки
которой имеют по очереди данный цвет и фоновый. Стиль линии опре-
деляется третьим параметром после координат. Например, LINE
(30,30)-(40,40),3,,&HAAAA выводит линию с указанным стилем цветом
3.
Бейсик предоставляет также процедуры для рисования прямоуголь-
ников и окружностей. Прямоугольники выводятся с помощью оператора
LINE. В данном случае координаты должны описывать левый верхний и
правый нижний угол рамки. Надо просто указать B (box - т.е. рам-
ка) в качестве второго параметра за координатами. LINE
(50,50)-(100,100),1,B,&HAAAA рисует квадрат со стороной 50 точек
цветом 1 палетты, используя вышеописанный стиль. Для вывода пря-
моугольника, заполненного определенным цветом надо использовать
параметр BF (при этом стиль линии указывать не надо).
Окружности рисуются оператором CIRCLE. Их вывод основывается
на формуле CIRCLE (x,y),r,цвет,нач-угол,кон-угол,аспект. Коорди-
наты x,y дают адрес центра окружности на экране, а r - радиус
окружности в точках; вся остальная информация необязательна. Цвет
- это код цвета, который по умолчанию берется равным 3. Если
необходимо вывести только дугу окружности, то можно указать
нач-угол и кон-угол (когда они опущены, то выводится целая окруж-
ность). Углы измеряются как положительные или отрицательные ве-
личины, отсчитываемые от направления по горизонтали вправо. Они
измеряются в радианах (в 360 градусах содержится 6.292 радиан, а
один градус = 0.0174532 радиан). Аспект это отношение горизон-
тальных и вертикальных размеров. Круглая окружность получается на
дисплее, когда Вы укажете его равным 5/6 для умеренного разреше-
ния и 5/12 для высокого разрешения. Меньшие значения приводят к
эллипсам, вытянутым по горизонтали, а большие - по вертикали. Для
примера PI=3.14159: CIRCLE(200,50),30,2,PI/2,PI,6 выводит дугу,
центр которой находится в точке 50,200, с радиусом 30 точек цве-
том 2, причем будет выведен только левый верхний квадрант верти-
кально вытянутого эллипса.
Более сложные линии могут выводиться с помощью оператора DRAW,
который необычайно гибок. За оператором DRAW следует строка (зак-
люченная в скобки), в которой закодирована последовательность
ориентаций и длин сегментов, составляющих линию. Например, DRAW
"E12F12G12H12" выводит бубну. Начальная точка устанавливается
оператором PSET (обсуждаемым в [4.4.2]); в противном случае, по
умолчанию берется центр экрана. Основные коды состоят из буквы,
за которой следует длина сегмента в точках. Коды следующие:
Ux вверх (на x точек)
Dx вниз
Rx вправо
Lx влево
Ex по диагонали вверх и вправо
Fx по диагонали вниз и вправо
Gx по диагонали вниз и влево
Hx по диагонали вверх и влево
При умеренном разрешении 100 точек по горизонтали и 100 точек по
вертикали дают отрезки примерно одинаковой длины (на самом деле
отношение y к x равно 5/6). При высоком разрешении горизонтальная
линия будет приблизительно вдвое меньше, чем вертикальная. Из-за
большего расстояния между точками диагональ прямоугольника содер-
жит ровно столько же точек, сколько и максимальная сторона пря-
моугольника, хотя сам отрезок длиннее.
Для рисования диагоналей с углами, отличными от 45 градусов,
используется кодовая буква M. Этот код рисует следующий сегмент
линии в абсолютную или относительную позицию экрана. Чтобы ука-
зать абсолютную позицию надо указать координаты x и y. DRAW
"M50,60" проведет линию в точку, имеющую координаты столбца 50 и
строки 60. Для указания относительных координат добавьте знаки +
или - перед числами. Если текущее значение координаты x равно
100, то +50 продолжит линию до столбца 150, а -50 - до столбца
50. Чтобы сдвинуться из 100,100 в 120,70 напишите DRAW
"M+20,-30".
Линия не обязана быть непрерывной. Когда перед кодом указана
буква B, то указатель перемещается как указано, но сегмент линии
при этом не рисуется. Например, DRAW "L10BU5R10" рисует две пара-
ллельные горизонтальные линии. Чтобы из одной точки начиналось
несколько сегментов надо указать перед кодом букву N. В этом
случае указатель будет возвращаться в начальную точку после выво-
да сегмента.
Имеется ряд специальных кодов, которые будучи помещенными
внутри строки, действуют на все последующие коды (пока следующий
аналогичный код не укажет другое действие). Цвет сегмента линии
устанавливается буквой C, за которой следует код цвета. DRAW
"C2D5" рисует линию, направленную вниз цветом 2. Установка масш-
табного фактора меняет масштаб, в котором будет выводиться фигура
или ее часть. Надо добавить к строке букву S, за которой следует
фактор. Фактор это число, которое для получения масштаба делится
на 4. Обычно фактор равен 4, что соответствует масштабу 1:1.
Изменение фактора на 8 приведет к тому, что размер выводимой
фигуры будет вдвое больше. Для этого напишите DRAW "S8U12D12" и
т.д.
Используя один их двух кодов Вы можете вращать оси координат-
ной системы. Кодовая буква A вращает оси против часовой стрелки с
90-градусными инкриментами. A0 не вращет оси вообще. A1 - повора-
чивает их на 90 градусов, A2 - на 180 градусов и A3 - на 270
градусов. Аналогично, код TA поворачивает оси на указанное число
градусов от 0 до 360 (против часовой стрелки) и от 0 до -360 (по
часовой стрелке). DRAW "A1L10" и DRAW "TA90L10" приведут к тому,
что линия, которая должна была быть направленной влево будет
вместо этого нарисована повернутой на 90 градусов и направлена
вниз.
Оператор DRAW может включать строковые переменные, которые
состоят из набора допустимых кодов. Это свойство позволяет прог-
рамме повторно использовать части фигур в различных рисунках. В
операторе DRAW имя строки должно быть помещено за буквой X и за
ним должны следовать точка с запятой. Например:
100 S$ = "U12R15U45L32"
110 DRAW "XS$;"
В одном операторе DRAW может содержаться несколько строк, переме-
жаемых другими кодами. Отметим, что любые числа, используемые с
кодами в операторах DRAW могут сами быть переменными. Таким обра-
зом с помощью одного оператора DRAW могут выводиться фигуры,
отличающиеся по форме, цвету, масштабу и ориентации. Надо помес-
тить знак равенства между буквенным кодом и именем переменной, а
за именем поместить точку с запятой. Например, чтобы установить
код цвета, определяемый переменной, напишите DRAW "C=PCOLOR;".
Компилятор Бейсика требует, чтобы ссылка на эти переменные осу-
ществлялась с помощью функции VARPTR$. В этом случае такой опера-