Magnets stretching
Alone Coder
Расскажу про эффект в гритсах демы
The Board II, основного названия которого
я нигде не нашёл, то ли он "стретч", то ли
"магниты". Пусть будут "магниты".
Идея у него такая:есть две летающих то─
чки со своими системами полярных коорди─
нат:U1, V1 и U2, V2 (может быть и U3, V3,
если точек не две, а три); для каждого эк─
ранного пикселя(x,y) находим координаты в
каждой из систем полярных координат, соот─
ветствующие координаты складываем(U1+U2,
V1+V2), читаем по ним пиксель из текстуры
и выводим на экран.
Казалось бы, просто,но обычно на Speccy
этот эффект был очень медленным, даже в
низком разрешении. А я решил сделать его
чанками 2x2.
Дема писалась под ATM Turbo 2+, но пос─
кольку компомашина на том пати была ZX Evo
с прошивкой baseconf (основная прошивка
этого компьютера-конструктора реализует
ATM Turbo 2+ на 14 MHz,наряду с тремя -
тогда одной - другими известными моделями
Спектрума и одной виртуальной под названи─
ем "ATMЗ", которую сейчас разводит Zorel),
то был стимул даже попытаться сделать этот
эффект фреймовым на компомашине, с обычной
автоподстройкой демы под скорость машины.
У меня уже были данные по скорости выпол─
нения команд там: основная идея в том, что
машинный цикл с чтением округляется до чё─
тного такта,если ячейка не считана заранее
в 16-битный буфер; буфер всегда читается с
чётного адреса памяти. Но поскольку дли─
тельности команд в таких "турботактах"
непривычны и нестандартны,буду писать при─
меры с обычными тактами и считать, что в
кадре их примерно 220000 (примерно 100000
на ATM Turbo 2/2+ @ 7 MHz ). Конечно, это
число зависит от кода, но в любом случае,
если бы расчёты не сходились, всегда была
возможность уменьшить окошко.И всегда надо
помнить, что мы пишем под ретромашину,а не
под какую-то прошивку компьютера-конструк─
тора или ещё какой эмулятор с "новыми воз─
можностями" (которые реально нельзя под─
ключить к Спектруму). Ибо какой смысл ухо─
дить со Спектрума на липовые "новые возмо─
жности на базе Спектрума", если кругом по─
лно настоящих платформ с приличными людь─
ми? Смысл только для тех, кому лень писать
под настоящее ретро, а раскрутиться хочет─
ся (они даже объединяются для восхваления
друг друга и травли тех,кто не любит фейки
и прочее пускание пыли в глаза).
Напомню, какие экранные режимы у нас
есть на ATM Turbo 2/2+ и его современных
реализациях:
-6912;
-"EGA" 320x200, 16 цветов на точку.В
каждом байте 2 пикселя, которые кодируются
как атрибуты на 6912. Экран в памяти раз─
делён на 4 слоя по 8000 байт, которые че─
редуются через каждые 2 пикселя по горизо─
нтали. Внутри слоя адрес растёт линейно.
Слои лежат в разных страницах и половинках
страниц;
-мультиколор 640x200, hires. Пиксели
лежат в одной странице, атрибуты в другой.
Причём как пиксели, так и атрибуты разде─
лены на 2 чередующихся слоя каждый;
-текстмод 80x25.
Режимы Timex Sinclair 2068 не поддержа─
ны.
Первая идея, конечно,была с использова─
нием чанков и процедуры c2p. Но легко ви─
деть, что результат не достигается даже
близко: c2p через pop hl:ldd:ld a,(hl):
ld (bc),a, скажем, в окне320x96, займёт
40*160*48 = 307200 тактов - не считая са─
мого эффекта, который явно будет не с дву─
мя командами.
Тем более, зачем нам c2p,если можно вы─
водить только каждую вторую строчку (про─
межуточные строчки отдать под надписи) -
то есть по сути гонять целые байты из тек─
стуры прямо в экран?
После этих рассуждений эффект виделся
таким (на EGA экране):
Этап 1: складываем координаты по двум
таблицам полярных координат:
ld a,(de):inc e ;U1
add a,(hl):inc l ;U2
push af
:33 t/чанк на одну координату
ld a,(de):inc e ;V1
add a,(hl):inc l ;V2
ld c,N:ld (bc),a
:36 t/чанк на вторую координату
(в сумме 69 t/чанк)
Этап 2: читаем пиксель из текстуры и
выводим его на экран:
pop hl ;координаты в текстуре
ldi ;байт из текстуры пишем в экран
:26 t/чанк
Процедуры простые, типовые, но...расто─
чительно, не так ли?
Поэтому я прикинул, можем ли мы объеди─
нить расчёт координат и чтение текстуры.
Это получится сделать, если таблица поляр─
ных координат для одной из точек будет
вбита прямо в процедуру:
pop bc ;UV1=полярные коорд-ты для точки1
ld hl,NN ;UV2=полярные коорд-ты для точки2
add hl,bc ;адрес в текстуре
set 7,h ;нельзя занять все 64K текстурой!
ldi ;байт из текстуры
:55 t/чанк
За каждый проход мы выводим только один
слой экрана из 4, то есть всё время пере─
скакиваем через 3 чанка (один слой содер─
жит пиксели0,1,8,9.., второй - пиксели
2,3,10,11.., третий - пиксели4,5,12,13..,
четвёртый...ну,вы поняли).Такие вот хитрые
экраны на настоящем ретро - не для ламе─
ров :)
Легко видеть, что попытка выводить на
все слои сразу ведёт к проигрышу тактов,
даже если писать так:
ld a,(de):inc e ;U1
add a,(hl):inc l ;U2
ld c,a
ld a,(de):inc e ;V1
add a,(hl):inc l ;V2
ld b,a
ld a,(bc)
ld (NN),a ;чередуем слои
:72 t/чанк -
и это ещё без ограничения адресного прост─
ранства текстуры!
Перевод эффекта в мультиколор (2 чанка
в байте) тоже кажется проигрышем:
pop bc ;UV1
ld a,(de):inc e ;U2
add a,c
ld l,a ;U
ld a,(de):inc e ;V2
add a,b
ld h,a ;V
ld c/b,(hl) ;байт из текстуры
1/2*ld a,(bc):ld (NN),a
:65 t/чанк
(без ограничения адресного пространства
текстуры)
И пока даже непонятно, в каких окнах
памяти что будет лежать (таблица полярных
координат, текстура,код и две страницы эк─
рана или одна для мультиколора).
Сидим, грустим.
Очевидно, нужна смена алгоритма. Какая?
Попробуем текстуру 16x16 (в одном байте
обе координаты -%VVVVUUUU ):
1/2*pop bc ;UV1 (читаем по 2 записи сразу)
ld a,(de):inc e ;UV2
add a,c/b ;переполнение по мл. координате!
ld l,a ;координаты в текстуре
ld a,(hl)
ld (NN),a ;чередуем слои
:51 t/чанк
Или для мультиколора:
pop bc ;UV1 (читаем по две записи сразу)
ld a,(de):inc e ;UV2 левая
add a,c ;переполнение по мл. координате!
ld c,a ;координаты в текстуре, левая
ld a,(de):inc e ;UV2 правая
add a,b ;переполнение по мл. координате!
ld l,a ;координаты в текстуре, правая
ld b,N
ld a,(bc) ;%LOLLLOO00
or (hl) ;%0R0OORRR
ld (NN),a ;чередуем слои
:82 t/2 чанка = 41 t/чанк
Выигрыш более чем в 2 раза по сравнению
с первоначальным вариантом! Но в окне
320x96 пока315000 тактов - никак не лезет
во фрейм. Можно ли выиграть ещё?
Можно, и даже существенно!
Пусть точки движутся зеркально относи─
тельно центра экрана.Тогда нижняя половина
экрана - копия верхней с поворотом на 180
градусов. Такой переворот гораздо быстрее,
чем вывод эффекта:
1/2*pop de
ld (hl),d/e:dec l
:16 t/чанк
Или для мультиколора (тут уже нужна та─
блица переворота байтов):
1/2*pop bc ;b,c!=0
ld l,c/b
ldd
:25 t/2 чанка = 12.5 t/чанк
С таблицей оказалось быстрее, чем без
таблицы :)
Кроме того,мы можем переворачивать пря─
мо во время вывода!
1/2*pop bc ;UV1 (читаем по 2 записи сразу)
ld a,(de):inc e ;UV2
add a,c/b ;переполнение по мл. координате!
ld l,a ;координаты в текстуре
ld a,(hl)
ld (NN),a ;эффект
ld (NN),a ;отражение
:64 t/2 чанка = 32 t/чанк
Или для мультиколора:
pop bc ;UV1 (читаем по 2 записи сразу)
ld a,(de):inc e ;UV2, левый чанк
add a,c ;переполнение по мл. координате!
ld c,a ;координаты в текстуре, левый чанк
ld a,(de):inc e ;UV2, правый чанк
add a,b ;переполнение по мл. координате!
ld l,a ;координаты в текстуре, правый чанк
ld b,h
ld a,(bc) ;%LOLLLOO00
inc h
or (hl) ;%0R0OORRR
ld (NN),a ;эффект
inc b
ld a,(bc) ;%0L0OOLLL
dec h
or (hl) ;%RORRROO0
ld (NN),a ;отражение
:110 t/4 чанка - 27.5 t/чанк
Ещё одна проблема - на стыке эффекта и
отражения может получиться разрыв.В первую
очередь из-за того,что постоянно возникает
переполнение по младшей координате.Его мо─
жно избежать,если текстура будет не16x16,
а16x8. Тогда байты будут%VVVVOUUU, и при
сложении переполнение уйдёт в бит нуля,ко─
торый не будет ни на что влиять.
Но есть способ лучше - рисовать чётные
строки эффекта на всю высоту экрана, а не─
чётные получать отражением. Тогда разрывы
не будут видны.
Это позволяет в мультиколоре с тексту─
рой8x8 реализовать ещё более хитрый метод
- чтение из текстуры двух чанков сразу!
pop de
ld a,e
add a,(hl):dec l ;OOvvvuuu + OOvvvuuu
; = 0?vvvuuu
ld e,a ;координаты в текстуре, левый чанк
ld a,d
add a,(hl):dec l ;OOvvvuuu + OOvvvuuu
; = 0?vvvuuu
ld d,a ;координаты в текстуре, правый чанк
ld a,(de) ;два цвета
exx
ld (bc),a ;эффект
ld l,a ;h=tMIRROR/256
ldi ;отражение ;c!=0
exx
:90 t/4 чанка = 22.5 t/чанк
Конечно, это в теории. На практике надо
вписаться в окна памяти.
Экран и таблица полярных координат пе─
реключаются (для каждого слоя экрана -
своя таблица).Код и текстура - нет (в этом
коде нет адресов,так что он уже не требует
распихивания по куче страниц). Но с 32-ки─
лобайтной текстурой некуда класть код.
Поэтому текстуру придётся ужать в одно
окно (для этого надо добавить and c перед
ld d,a, приc=#3f ). Ещё одно окно займёт
экран (переключаемый). Ещё одно - таблица
полярных координат (переключаемая). А ос─
тавшееся окно займёт код.
Таблица полярных координат поместится в
одно окно, если не будет выравнена по 256
байт, например, с картой224x144. Для это─
гоdec l придётся заменить на dec hl. Есть
способ заменить только один из них - уга─
даете как? Правильно, для каждой чётности
X-координаты - своя таблица полярных коор─
динат :)
Так что финальный вариант эффекта та─
кой:
pop de
ld a,e
add a,(hl):dec l ;OOvvvuuu + OOvvvuuu
; = 0?vvvuuu
ld e,a ;координаты в текстуре, левый чанк
ld a,d
add a,(hl):dec hl ;OvvvOuuu + OvvvOuuu
; = ?nnn?nnn
and c ;#3f
ld d,a ;координаты в текстуре, правый чанк
ld a,(de) ;два цвета
exx
ld (bc),a ;эффект
ld l,a ;h=tMIRROR/256
ldi ;отражение ;c!=0
exx
:96 t/4 чанка = 24 t/чанк
Обвязка:
DRLOOPO
dup wid/4 ;=40
<эффект>
edup
org $-1
ld hl,-40*4+(wid/4)
add hl,bc
ld b,h
ld c,l
ld hl,+40*4-(wid/4)
add hl,de
ex de,hl
ld h,tMIRROR/256
exx
dec b
jp nz,DRLOOPO
Осталось написать генератор таблиц и
текстур,добавить показ титров и скриптова─
ние, и эффект готов!
Other articles:
