+BOX

Материал из ПМК вики
Перейти к: навигация, поиск

+BOX (плюс коробка, читается «плюс-бокс») — адаптированное слово Каллисто.

+BOX           ( u1 u2 −− )                    Нарисовать на индикаторе прямоугольник шириной u1 вышиной u2.
Пример работы слова +BOX

Закрашивает прямоугольник, начиная с текущей позиции курсора, заданной 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.

Ссылки[править]


  Stub-icon-48px.png Это заготовка статьи. Вы можете помочь проекту, дополнив её.