[1.4.6] RedPower 2 [Prerelease 6]

Написал 20.05.2012 - 10:17

• Наверх

Написал 20.05.2012 - 10:47

• Наверх

Написал 20.05.2012 - 13:18

Вот с буфером очень нужно:авто-склад на серве несколько раз забивался базальтом (друг + вулкан + динамит/лазер)С нефтью, наверное, на Элорам давили Не удобно будет качать нефть из под земли.А насчёт компа, как я понял, его немного переписали и ФОРТ расширили.Дискеты выкидываем и пишем проги заново.Но зато можно использовать дискеты для хранения данных (а не только ФОРТ).Была идея сделать аналог строителя из БК, но забросил т.к. работать будет медленно и функционал более ограничен. (О да, здания в дискетках :)UPD: Ах да, надеюсь платы будут нормально сидеть на фреймах - слетают также как рычаги.

• Наверх

Написал 20.05.2012 - 16:51

Моё оборудование снова работает и я могу продолжить работу И в первую очередь добавил программки от HitriyLis и продолжил работу над словарем.

• Наверх

Написал 20.05.2012 - 20:40

• Наверх

Написал 20.05.2012 - 20:58

• Наверх

Написал 20.05.2012 - 21:50

Скрытый текст

И не вздумайте пользоваться прохождением

• Наверх

Написал 20.05.2012 - 21:55

• Наверх

Написал 20.05.2012 - 22:43

SSP volcanos now generate properly.

Я ждал этого со второго пререлиза!

• Наверх

Написал 21.05.2012 - 02:54

• Наверх

Написал 21.05.2012 - 03:25

Как-то так:

Скрытый текст

В некоторых чанках вулкан не сгенерировался. Как сейчас, не знаю (не генерировал новый мир еще).

• Наверх

Написал 21.05.2012 - 11:59

• Наверх

Написал 21.05.2012 - 17:23

• Наверх

Написал 21.05.2012 - 18:19

Скоро апдейт, посоны!

Скрытый текст

[youtube'>http://www.youtube.com/watch?v=6pyrTM_aZQI[/youtube]

Видали уже. Очень полезные и удобные функции для компа добавят. Также радует ферма булыжника с мхом

• Наверх

Написал 21.05.2012 - 19:29

: TABLEPAGE256 0 DOI 10 /MODSWAP 7 * 2DUPSWAP AT-XY I [paste][/paste]4 + SWAP AT-XYI EMITLOOP CR ;

• Наверх

Написал 21.05.2012 - 19:42

• Наверх

Написал 21.05.2012 - 20:46

• Наверх

Написал 21.05.2012 - 22:33

• Наверх

Написал 21.05.2012 - 22:51

Окей, по порядку:

Скрытый текст

Код сильно уменьшился за счёт нового слова AT-XY(столбец,строка-->) - устанавливает курсор в нужное место. До этого приходилось подгонять таблицу с помощью пробелов.
Всего в таблице 256 символов (1 байт). 128 различных символов и их инвертированные/выделенные варианты (выделение определяет старший бит).
Вывод символа на терминал осуществляет слово EMIT(номер_символа-->). Если число больше 255, то отсекается старший байт.

Итак, код:

: TABLEPAGE

Нам нужно вывести все 256 символов. Сделаем это с помощью цикла:

256 0 DO

Для удобства будем выводить по 10 на строку.
Нам нужно знать положение выводимых элементов по их номеру. Для этой цели нам подойдёт целочисленное деление: Целое - номер строки, остаток - номер элемента в строке.

I 10 /MOD

Слово /MOD(делимое,делитель-->остаток,целое) делит первое число на второе и заносит в стек остаток и целое (Комментарии в скобках очень удобны и наглядны .
Если сразу использовать слово AT-XY, то выводимые данные будет накладываться, т.к. необходимо вывести строку из 7 символов на 1 элемент (3 символа на номер, пробел, сам символ и ещё 2 пробела). У нас в стеке 2 числа и нужно умножить второе на 7:

(стб,стр)SWAP 7 *(стр,стб*7)

Если сейчас использовать SWAP AT-XY, то курсор переместится на нужное место для нового элемента, но, поскольку номера элементов имеют разную длину, то нам также понадобится знать положение самого символа. Его можно вычислить из положения элемента таблицы просто прибавив 4.
Чтобы не проводить дополнительных, долгих и ненужных вычислений, просто скопируем то, что уже есть:

2DUP (стр,стб*7-->стр,стб*7,стр,стб*7)

Теперь можем вывести номер элемента:

SWAP AT-XY I [paste][/paste]

Вторую пару чисел используем для самого символа:

4 + SWAP AT-XY I EMIT

Стек чист и цикл завершён.

LOOP CR ;

Хм, не знаю как лучше описывать код:
разрывать пояснениями или сначала код, а потом построчно.

Насчёт "Картинка на FORTH" - это просто эксперимент (набираю методы для создания терминального GUI):
Если нужны пояснения, то так и быть, сделаю, но когда-нибудь "потом".

И о словаре:
Можно начать с того, что "и так понятно", но в кратком виде.

Скрытый текст

Математические операции:
+ (A,B-->A+
- (A,B-->A-
* (A,B-->A*
/ (A,B-->целое_от_A/B)
MOD (A,B-->остаток_от_A/B)
/MOD (A,B-->остаток,целое)
1+ (A-->A+1)
1- (A-->A-1)
2* (A-->A*2)
2/ (A-->A/2)
NEGATE (A-->-A)

Побитовые операции:
INVERT (A-->не_A) - НЕ
XOR (A,B-->C) - исключающее ИЛИ
OR (A,B-->C) - ИЛИ
AND (A,B-->C) - И
<< (A,n--> - побитовый сдвиг влево n раз (1 сдвиг равносилен умножению на 2)
u>> (A,n--> - побитовый сдвиг вправо n раз (1 сдвиг равносилен делению на 2)
(Нужно проверить: циклические они или нет)

Логические операции:
Результат - логические константы TRUE или FALSE. (-1 и 0 соответственно)
= (A,B-->Bool) - равно
>= (A,B-->Bool) - больше или равно (не меньше)
<= (A,B-->Bool) - меньше или равно (не больше)
> (A,B-->Bool) - больше
< (A,B-->Bool) - меньше
<> (A,B-->Bool) - не равно
0< (A-->Bool) - меньше нуля
0<> (A-->Bool) - не равно нулю
0= (A-->Bool) - равно нулю

Простые операции с памятью:
Адрес - номер байта в оперативной памяти.
Число - 2 байта.
! (n,addr-->) - заносит число n по адресу addr
+! (addr-->) - увеличивает на единицу число адресу addr
-! (addr-->) - уменьшает на единицу число адресу addr
@ (addr-->n) - число по адресу addr заносится в стек
С! (b,addr-->) - заносит байт b по адресу addr
C@ (addr--> - байт по адресу addr заносится в стек

Далее надоело...

P.S: Чёрд! Снова слишком много букв!

• Наверх

Написал 22.05.2012 - 03:49

• Наверх