ZX Like Pascal

Обновил версию Паскаля до 0.901 в первом сообщении темы, перекачайте:

- ошибку с циклом repeat/until исправил;
- переименовал команды вывода спрайтов, так логичнее - SpritePutClear, SpritePutAnd, SpritePutOr;
- добавил флажки включения/отключения атрибутов спрайтов, карты и текста, флажок проверки краев спрайтов, флажки вывода на виртуальный экран спрайтов, карты и текста;
- добавил команды очистки и вывода виртуального экрана из памяти - VirtScreenClear, VirtScreenPut; применяются для полной перерисовки экрана в памяти, а потом быстрого вывода на экран (чтоб не было мерцания).

Теперь нужно внимательно смотреть при компиляции, какие спрайты заданы - с атрибутами или без, и будет ли использоваться вывод на обычный экран или на виртуальный экран. Формат спрайтов и спрайтов карт с атрибутами и без них немного отличается. Без атрибутов и/или проверки краев вывод спрайтов работает немного быстрее, и сами спрайты меньше занимают места в памяти примерно на 10%.

А зеркалки спрайтов ещё нет?

Цитата:

---

Сообщение от ALKO

А зеркалки спрайтов ещё нет?

---

пока нет, но будет в ближайшее время.
У тебя много зеркальных спрайтов, места жалко? Просто, вывод зеркалок медленнее, чем обычных.

Зеркалка хороша для отрисовки заднего фона на статичном экране. Это позволяет в некоторых случаях порядочно места сэкономить.

Цитата:

---

Сообщение от Руслан

Зеркалка хороша для отрисовки заднего фона на статичном экране. Это позволяет в некоторых случаях порядочно места сэкономить.

---

буду делать.
Сейчас на подходе WindowGet и WindowPut - запоминание в памяти окна на экране и вывод его из памяти в любое знакоместо. Т.е., можно куски экрана запоминать, например фон под движущимся спрайтом, а потом выводить обратно. Это будет быстрее, чем вирт.экран использовать, но нужно отслеживать все перемещения спрайтов.

Цитата:

---

Сообщение от Andrew771

У тебя много зеркальных спрайтов, места жалко? Просто, вывод зеркалок медленнее, чем обычных

---

Одна табличка в 256 байт, и ты в шоколаде:)

Цитата:

---

Сообщение от denpopov

Одна табличка в 256 байт, и ты в шоколаде

---

Это да. А координаты вывода как быстро посчитать? Ведь в исходном спрайте они заданы для "прямого" (формат спрайта приведен выше на этой странице).

Цитата:

---

Сообщение от Andrew771

А координаты вывода как быстро посчитать? Ведь в исходном спрайте они заданы для "прямого" (формат спрайта приведен выше на этой странице)

---

я бы отложил Паскаль в сторону:)

Цитата:

---

Сообщение от Andrew771

буду делать.

---

Зеркалирование байта сделать несложно и не торомзно.

Цитата:

---

Сообщение от denpopov

Одна табличка в 256 байт, и ты в шоколаде

---

Воистину, в Саботере я это оптимизировал так (в A - номер тайла, тайл выводится в буфер PaintedChar):

Код:

---

        ld l,a
        ld h,#00
        add hl,hl
        add hl,hl
        add hl,hl
        ld de,Game.Sprites.Saboteur - #08  ; tile number was incremented
        add hl,de
        ex de,hl
        ld bc,PaintedChar
        ld h,high MaskTable
        ld iyl,#08
.out_saboteur_loop:       
        ld a,(de)
        ld l,a
        dec h
.saboteur_mirroring_command:
        ld l,(hl)
        inc h
        ld a,(bc)
        and (hl)
        or l
        ld (bc),a
        inc bc
        inc de
        dec iyl
        jp nz,.out_saboteur_loop

---

Там тока еще и автомаскирование применяется, табличка зеркалирования находится перед табличкой маскирования, зеркалирование отключается засылкой nop'а в .saboteur_mirroring_command.
А вот отзеркалить тайлы при выводе спрайта сложнее. Особенно, если спрайт частично может выходить за границы экрана. Надо либо в обратном порядке идти по тайломапу, либо по тайловому слою. Поскольку в Саботере эта процедура занимается четырьмя вещами одновременно (заполняет слой маски, копирует тайлы из фона в буфер, предотвращает вывод тайла поверх непреодолимого препятствия и, собственно, копирует тайлмап в нужный слой), ее переписывание я отложил до 128-й версии.

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