ZX Like Pascal

[Andrew771]

осталось сообразить, как на Паскале реализовать я просто зеркалирование байтов видел в одной деме.

В моем формате надо пробежаться вначале по всем координатам, найти максимальную по X (если отзеркаливание по X), по Y (если отзеркаливание по Y) или по обоим сразу. Затем для каждого знакоместа сначала вычитать координату из найденной максимальной, а потом само изображение зеркалить по таблице. Собстно, из-за первого этапа будет вывод медленнее, но сделаю.

---------- Post added at 21:32 ---------- Previous post was at 21:26 ----------

По хорошему конечно нужны структуры, многомерные массивы и указатели, хоть как то сгладит отсутствие ООП.

для чего?

[Advertiser]

[Andrew771]

Обновил версию до 0.902, в первом посте, качайте заново
Добавил операторы:
WindowGet - запоминание изображения окна в памяти;
WindowPut - вывод изображения окна из памяти;
SpritePutXor - вывод спрайта по методу XOR.

WindowGet и WindowPut хорошо использовать для передвижения спрайтов, не перерисовывая весь экран, а только нужное окно. См. демо в файле demo_move_sprite_get_put.prg

[Andrew771]

Я подумал, пописАл, и решил всё-таки не делать вывод зеркальных спрайтов. Процедура получается очень огромная, более 600 байт (вместе с таблицей зеркальных байтов), универсальная и медленнее в 2 с лишним раза, чем обычный вывод спрайта. Универсальная - потому что, если не делать универсальной, нужна куча операторов Паскаля со всяческими комбинациями - отражение по X, Y, XY; принцип наложения clear, and, or, xor.
Проще сразу сделать зеркальные спрайты, какие надо, и выводить обычной процедурой вывода спрайта. Это и быстрее, и если немного спрайтов, то меньше места займут.

[ALKO]

. Это и быстрее, и если немного спрайтов, то меньше места займут.

ну да. Попсовые спрайты размером 16*16 с двумя кадрами анимации не много места займут.

А если спрайты 48*48 и их штук 30-40 ? Оптимально ли их хранить в памяти сразу в зеркальном виде

[Andrew771]

А если спрайты 48*48 и их штук 30-40 ? Оптимально ли их хранить в памяти сразу в зеркальном виде

Блин, уломал. Ну тогда придумай, как не увеличивая до бесконечности операторы, сделать не совсем универсальной. Универсальность тоже не айс.

[denpopov]

Странно, что компилятор подавился на:

var k,d,m:integer;       << Error: TYPE expected >>

[Andrew771]

Он не поддерживает тип integer, а только byte, word и string[N]

---------- Post added at 12:39 ---------- Previous post was at 12:34 ----------

Byte - Целые числа от 0 до 255.

Word - Целые числа от 0 до 65535.

String[n] - Символьные строки. n – максимальная длина строки от 1 до 255.

ArrayByte[n1]
ArrayByte[n1,n2] - Одномерные и двумерные массивы целых чисел от 0 до 255.
n1,n2 – максимальные индексы от 1 до 65535.

ArrayWord[n1]
ArrayWord[n1,n2] - Одномерные и двумерные массивы целых чисел от 0 до 65535.
n1,n2 – максимальные индексы от 1 до 65535.

ArrayString[n1,n2] - Одномерные массивы символьных строк.
n1 – максимальный индекс от 1 до 65535, n2 – максимальная длина строк от 1 до 255.

[denpopov]

Он не поддерживает тип integer, а только byte, word и string[N]

да, я прочитал документцию

когда заработают процедуры с передачей параметров? а то выходит натуральная оберонщина.

[Andrew771]

когда заработают процедуры с передачей параметров? а то выходит натуральная оберонщина.

Сейчас бьюсь над зеркальным выводом спрайтов, уже заканчиваю, чтобы ALKO нормально игру свою писал.
После этого тогда займусь, по срокам не знаю как...
Кстати, меня самого начинает бесить, что нет записей. Из-за этого многие мои исходники на Паскале пока лежат без дела - долго переписывать под Недопаскаль.
После этого уже можно сунуть исходник компилятора самому компилятору.

[Andrew771]

Обновил сегодня до версии 0903, в первом посте.

Добавил:

- операторы зеркального вывода спрайтов относительно вертикальной оси с разными методами наложения изображения на экран: SpritePutMirrorClear, SpritePutMirrorAnd, SpritePutMirrorOr, SpritePutMirrorXor.
- оптимизировал процедуры вывода на виртуальный экран, чуть быстрее стали работать.