Я решил немного поэкспериментировать с консолью: нарисовать квадрат.
Нарисовать сплошной квадрат не так уж сложно и если вы хотите попробовать, то дам вам подсказку: заполните его символом с кодом 160.
Я буду рисовать квадрат рамками и для этого мне понадобиться 6 символов: горизонтальные и вертикальные полоски, а также уголки.
В MineOS v1.0 нет слова
AT-XY, поэтому рисовать квадрат будем построчно.
Опишем слово, которое будет выводить горизонтальные линии:
: LINES (n-->)0 ?DO 0 EMITLOOP ;
Код горизонтальной линии - 0.
Обратите внимание на слово
?DO(до,от-->), в отличии от простого
DO, это слово перед началом цикла проверяет введённые параметры и если они равны, то цикл не исполняется. Например, если ввести
0 LINES, то ничего не произойдёт.
Аналогичным образом будем выводить вертикальные линии (т.к. их нет, использую двоеточие. Его код - 58).
: COLONS (n-->)0 ?DO 58 EMITLOOP ;
Можно начать рисовать. Для удобства разделим картинку на 2 части: верхнюю и нижнюю.
: UP(-->)24 0 DO I COLONS 16 EMIT 23 I - 2* LINES 14 EMIT I COLONS CRLOOP ;
Откуда взялось 24:
Я хотел нарисовать квадрат как можно больше. Размер экрана 50х80 знакомест, но если нарисовать квадрат со стороной 50, то приглашение ФОРТа сдвинет его вверх и уберёт часть квадрата. Чтобы не усложнять код, я взял запас в 2 строки.
Код:
I COLONS выводит вертикальные линии и с каждой строчкой их будет больше.
Далее нужно вставить левый верхний уголок, его код - 16.
23 I - 2* LINES выводит горизонтальные линии и их число уменьшается с каждой строчкой.
Затем следует правый верхний уголок с кодом 14 и снова вертикальные линии.
После того, как нарисовали строчку, переходим на следующую.
Аналогичным образом рисуем нижнюю часть, только количество вертикальных линий с каждой строчкой уменьшается, а горизонтальных - увеличивается.
: DOWN (-->)24 0 DO 23 I - COLONS 13 EMIT I 2* LINES 29 EMIT 23 I - COLONS CRLOOP ;
Осталось только отчистить экран и вызвать 2 вышеописанных слова.
: SQUARES (-->)PAGE CRUPDOWN ;
Главная
Форум
FAQ
Карта 
Статьи 
Wiki 
Галерея
![[bluel]](https://minecrafting.ru/public/style_emoticons/default/lapis-lazuli.png)
![[redstone-line-on]](https://minecrafting.ru/public/style_emoticons/default/redstone-line-on.png)
