BAR

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

BAR (полоса, читается «бар») — встроенное слово Каллисто.

BAR            ( u1 u2 −− )                    Прочертить линию на индикаторе до точки (x,y)=(u1,u2).
Пример работы слова DRAW, раннего варианта BAR

Рисует прямые линии, начиная с текущей позиции курсора, заданной AT. X и Y - координаты конца линии. Позиция курсора не меняется. Для выбора цвета линии предварительно используйте примитив LIGHT (светлая линия) или DARK (тёмная линия).

Пример:  10 50 AT 118 50 DARK BAR  − чертит тёмную горизонтальную линию от точки (10,50) до точки (118,50).

Ввод слова BAR[править]

В режиме ЛАТ последовательно нажмите три клавиши  В/О  $\mathrm{\overset{\leftarrow}{ШГ}}$  × 

Реализация[править]

В Каллисто 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 (англ. линия) уже используется для обозначения строки на экране.

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


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