LASER BASIC 2

[Bedazzle]

Хотя piotr433 же переписал его на Си

Скорее так

[Advertiser]

[Smalovsky]

Oleg N. Cher, редакторы вроде есть, только они редактируют экран, а не спрайты. Нужен редактор для спрайтов.

[Bedazzle]

Oleg N. Cher, редакторы вроде есть, только они редактируют экран, а не спрайты. Нужен редактор для спрайтов.

Такое есть. Вот чего реально не хвает - возможности делать анимированные спрайты.

[Alex Rider]

Учитываю критику, пусть будет без слова Basic, просто пакет графических процедур Laser 2. Кстати, сам модуль и называется Laser2 изначально, просто комменты поправлю.

Переименовать тему чтобы больше не было претензий к названию?

[Reobne]

Alex Rider, Предлагаю: "LASER SPRITES LIBRARY 2 для ZXDev"

- - - Добавлено - - -

Или для SDCC ?

[Oleg N. Cher]

Но Laser это не только спрайты, это же вообще графический движок. Пусть тема называется как есть, я же вас на неё ловлю. ;-) Есть мысль сделать для Бейсик-людей таблицу соответствия операторов ZX-Basic процедурам и операторам Оберона. Не завалялась ни у кого табличка операторов ZX-Basic в Excel или Word, на основе которой можно это сделать?

Тогда все увидят, что Оберон - это правильный Бейсик, с веткой ELSE, с циклом WHILE, с процедурами и т.п. Чего я и добиваюсь, потому что люди очень цепляются за слова, иногда скрадывая за ними суть.

- - - Добавлено - - -

Reobne, и для ZXDev, и для SDCC.

[Smalovsky]

Игровое меню. Лень заполнять служебное окно. Пока от спрайтов отказываюсь в пользу UDG, так как нет редактора спрайтов.
Pr.7z

[goodboy]

Лень заполнять служебное окно

сделай его одним цветом с бордюром,
будет не-так бросаться в глаза

[Oleg N. Cher]

Реализовал AWLV, SL8V, SR8V, WL8V, WR8V и PTNV. Осталось сделать зеркалирование, горизонтальные сдвиги на 1 и 4 бита, вертикальные сдвиги и вывод спрайта за пределами экрана. На чём план-минимум будем считать выполненным. Остальное по запросу.

PTNV - это новая операция: инверсный вывод спрайта. Ранее в Лазере приходилось сначала инвертировать спрайт в памяти, выводить и инвертировать опять, чтобы вернуть в исходное состояние. Теперь вывод инверсного спрайта так же эффективен, как и обычного (4 такта на CPL против 4-х на NOP).

Насчёт зеркалирования. Уверен, что буфер не нужен. Логика такая: есть зеркалируемая область, построчно берём первый и последний байт картинки, зеркалим и меняем местами, т.е. на место первого записываем зеркальный последний, на место последнего зеркальный первый, далее берём два следующих байта и т.д. Последний (средний) байт может оказаться один, если длина строки непарная, тогда мы его просто зеркалим.

В связи с чем вопрос: чтобы поменять в байте порядок битов на обратный (отзеркалить) можно ли действовать эффективнее, чем в этой процедурке?

; Подпрограмма зеркального отображения байта в аккумуляторе
MIRV0  RLA
       RR    B           ;отображенный байт получится в B
       RLA
       RR    B
       RLA
       RR    B
       RLA
       RR    B
       RLA
       RR    B
       RLA
       RR    B
       RLA
       RR    B
       RLA
       RR    B
       RET

[drbars]

В связи с чем вопрос: чтобы поменять в байте порядок битов на обратный (отзеркалить) можно ли действовать эффективнее, чем в этой процедурке?

Да, таблицей...