+BOX
+BOX (плюс коробка, читается «плюс-бокс») — адаптированное слово Каллисто.
+BOX ( u1 u2 −− ) Нарисовать на индикаторе прямоугольник шириной u1 вышиной u2.
Закрашивает прямоугольник, начиная с текущей позиции курсора, заданной AT. u1 и u2 — размер прямоугольника по горизонтали и вертикали. Позиция курсора не меняется. Для выбора цвета прямоугольника предварительно используйте примитив LIGHT (светлый прямоугольник) или DARK (тёмный прямоугольник).
Пример: 10 50 AT 108 10 DARK +BOX − рисует тёмный прямоугольник с углами в точках (10,50) и (117,59).
Ввод слова +BOX
В режиме NUM последовательно нажмите клавиши + Р-ГРД-Г В/О 5 0
Для возврата в режим NUM нажмите синюю клавишу P .
Реализация
В Каллисто 1.0 слово +BOX это обёртка вокруг R9013, но порядок аргументов взят из colorForth. Атрибуты вывода берутся из R9001.
1088 JPL0: 9 EE 3 + M8 ; В железном МК−161 после БП не нужен ENT 1089 RM3 MB M5 2 + M3 1090 KRMB KRM5 KM8 1091 KGOTO9 … 1093 JJPL0: PGOTO JPL0 ; 9000 AT Установить курсор … 1095 JBOX: 13 GOTO JJPL0 ; 9013 +BOX Вывод прямоугольника … 1109 ;#PlusBOX 1110 ; +BOX ( c1 c2 −− ) Нарисовать на индикаторе прямоугольник шириной c1 высотой c2. 1111 ; dX dY +BOX рисует прямоугольник, dX и dY − размер прямоугольника 1112 ; Прямоугольник начинается от текущей позиции курсора, заданной AT 1113 ; Атрибут из R9001. Обёртка вокруг R9013, но порядок аргументов взят из colorForth. 1114 LBOX: .DB 4 1115 .TEXT "+BOX" ; ( dX dY −− ) 1116 .DW LDRAW 1117 BOX: .DW JBOX
История
Английское слово box означает «коробка, прямоугольник». Знак «плюс» означает, что слову передаются размеры изображаемого объекта.
Слово +BOX восходит к слову BOX из colorForth.
Ссылки
- Исходный текст слова +BOX в Каллисто Классик 1.0
- См. слова +FRAME, DOT! и BAR
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |