+BOX: различия между версиями
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) Нет описания правки |
||
(не показаны 3 промежуточные версии этого же участника) | |||
Строка 1: | Строка 1: | ||
'''+BOX''' (плюс коробка, читается «плюс-бокс») — | '''+BOX''' (плюс коробка, читается «плюс-бокс») — адаптированное слово [[Каллисто]]. | ||
+BOX ( u1 u2 −− ) Нарисовать на индикаторе прямоугольник шириной u1 вышиной u2. | |||
[[Файл:CallistoBox.png|thumb|right|264px|Пример работы слова +BOX]] | [[Файл:CallistoBox.png|thumb|right|264px|Пример работы слова +BOX]] | ||
Закрашивает прямоугольник, начиная с текущей позиции курсора, заданной [[AT]]. u1 и u2 — размер прямоугольника по горизонтали и вертикали. Позиция курсора не меняется. Для выбора цвета прямоугольника предварительно используйте примитив [[LIGHT]] (светлый прямоугольник) или [[DARK]] (тёмный прямоугольник). | Закрашивает прямоугольник, начиная с текущей позиции курсора, заданной [[AT]]. u1 и u2 — размер прямоугольника по горизонтали и вертикали. Позиция курсора не меняется. Для выбора цвета прямоугольника предварительно используйте примитив [[LIGHT]] (светлый прямоугольник) или [[DARK]] (тёмный прямоугольник). | ||
Строка 12: | Строка 11: | ||
Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]]. | Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]]. | ||
== | == Реализация == | ||
В [[Каллисто|Каллисто 1.0]] слово +BOX это обёртка вокруг [[R9013]], но порядок аргументов взят из {{colorForth}}. [[Атрибуты вывода]] берутся из [[R9001]]. | |||
<pre> | |||
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 | |||
</pre> | |||
== История == | == История == | ||
Английское слово [http://www.lingvo-online.ru/ru/Translate/en-ru/box ''box''] означает «коробка, прямоугольник». Знак «плюс» означает, что слову передаются размеры изображаемого объекта. | Английское слово [http://www.lingvo-online.ru/ru/Translate/en-ru/box ''box''] означает «коробка, прямоугольник». Знак «плюс» означает, что слову передаются размеры изображаемого объекта. | ||
Слово +BOX восходит к слову BOX из {{colorForth}}. | |||
== Ссылки == | == Ссылки == | ||
Строка 23: | Строка 44: | ||
{{заготовка}} | {{заготовка}} | ||
[[Категория:Слова Каллисто]] | [[Категория:Слова Каллисто]] | ||
[[Категория:Примитивы]] | [[Категория:Примитивы]] | ||
[[Категория:Терминальный ввод/вывод Каллисто]] | [[Категория:Терминальный ввод/вывод Каллисто]] |
Текущая версия от 09:34, 9 ноября 2017
+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
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |