ZX Like Pascal

[Andrew771]

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

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

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

[ALKO]

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

[Andrew771]

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

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

[Руслан]

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

[Andrew771]

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

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

[denpopov]

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

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

[Andrew771]

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

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

[denpopov]

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

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

[Alex Rider]

буду делать.

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

Одна табличка в 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-й версии.

[denpopov]

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