BAR
BAR (полоса, читается «бар») — встроенное слово Каллисто.
BAR ( u1 u2 −− ) Прочертить линию на индикаторе до точки (x,y)=(u1,u2).
Рисует прямые линии, начиная с текущей позиции курсора, заданной AT. X и Y - координаты конца линии. Позиция курсора не меняется. Для выбора цвета линии предварительно используйте примитив LIGHT (светлая линия) или DARK (тёмная линия).
Пример: 10 50 AT 118 50 DARK BAR − чертит тёмную горизонтальную линию от точки (10,50) до точки (118,50).
Ввод слова BAR[править]
В режиме ЛАТ последовательно нажмите три клавиши В/О ШГ← ×
Реализация[править]
В Каллисто 1.0 слово BAR это обёртка вокруг R9012, но порядок аргументов взят из colorForth. Атрибуты вывода берутся из R9001.
1088 JPL0: 9 EE 3 + M8 ; В железном МК−161 после БП не нужен ENT 1089 RM3 MB M5 2 + M3 1090 KRMB KRM5 KM8 1091 KGOTO9 1092 JFIX: 0 1093 JJPL0: PGOTO JPL0 ; 9000 AT Установить курсор 1094 JDRAW: 12 GOTO JJPL0 ; 9012 BAR Вывод линии … 1097 1098 ;#BAR 1099 ; BAR ( c1 c2 −− ) Прочертить линию на индикаторе до точки (x,y)=(c1,c2). 1100 ; x y BAR рисует прямые линии (R9012), x и y − координаты конца линии 1101 ; Линия начинается из текущей позиции курсора, заданной AT 1102 ; Позиция курсора не меняется. 1103 ; Атрибут из R9001. Обёртка вокруг R9012, но порядок аргументов взят из colorForth. 1104 LDRAW: .DB 3 1105 .TEXT "BAR" ; ( X Y −− ) 1106 .DW LPLOT 1107 DRAW: .DW JDRAW
История[править]
Английское слово bar означает «полоса». Короткое слово из трёх английских букв выбрано, т.к. более распространённое английское слово line (англ. линия) уже используется для обозначения строки на экране.
Ссылки[править]
- Исходный текст слова BAR в Каллисто Классик 1.0
- См. слова DOT!, +BOX и +FRAME
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |