ты Элиту на Акорне видел?Сообщение от Lethargeek
все рисуется на экран - экран большой буферизовать не куда
ну ты код то пишии сколько памяти позволительно потратить на процедуру?
- - - Добавлено - - -
так, навскидку, основной цикл раза в полтора возможно ускорить
- - - Добавлено - - -
если эта команда есть в наборе i8080 то думаю можно и так.
ссыль на последний RKS
С уважением,
Jerri / Red Triangle.
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
это в которой всё мерцает и мигает? а у тебя еще и проц дохлей примерно в два раза
но ты же не на весь экран рисуешь... или на весь??
я бы сделал как-нибудь вот так:
основной цикл для "вертикальных" - аналогичноКод:; основной цикл для "горизонтальных" отрезков ; "прямая" подветка _hh0: or (hl) ld (hl),a dec CTR ret z _hh1: ld a,ERR sub DY ld ERR,a jp c,_hd2 _hh2: ld a,MASK rrca ld MASK,a jp nc,_hh0 inc h or (hl) ld (hl),a dec CTR jp nz,_hh1 ret ; "диагональная" подветка _hd0: or (hl) ld (hl),a dec CTR ret z _hd1: ld a,ERR sub (DY-DX) ld ERR,a jp nc,_hh2 _hd2: inc l ld a,MASK rrca ld MASK,a jp nc,_hd0 inc h or (hl) ld (hl),a dec CTR jp nz,_hd1 ret
CTR, MASK, ERR - распихиваешь в любые из регистров b c d e
в оставшийся свободный можно поместить одно из значений DY или (DY-DX)
второе придётся вписывать прямо в код
Прихожу без разрешения, сею смерть и разрушение...
ну во первых они вычисляют каждую точку
чтото похожее на первый вариант брошенный сюда
в оригинале кусок экрана 192*256но ты же не на весь экран рисуешь... или на весь??
много лишних телодвижений
короче ты предлагаешь добавить еще по 3 варианта линийя бы сделал как-нибудь вот так:
основной цикл для "вертикальных" - аналогичноКод:; основной цикл для "горизонтальных" отрезков ; "прямая" подветка _hh0: xor (hl) ld (hl),a dec CTR ret z ld a,MASK rrca ld MASK,a jp nc,_hh0 inc h jp _hh0 ; "диагональная" подветка _hd0: or (hl) ld (hl),a dec CTR ret z inc l ld a,MASK rrca ld MASK,a jp nc,_hd0 inc h jp _hd0
CTR, MASK, ERR - распихиваешь в любые из регистров b c d e
в оставшийся свободный можно поместить одно из значений DY или (DY-DX)
второе придётся вписывать прямо в код
и да - линии рисуются по XOR
Последний раз редактировалось jerri; 16.02.2019 в 22:20.
С уважением,
Jerri / Red Triangle.
jerri, для горизонтальных линий |dx|>|dy| цикл можно разделить на 3 части: две рисуют хвосты не кратные 8 точкам, а средняя часть разворачивается для 8 точек и рисует без сдвига маски. Тогда dx, dx-dy, err и cnt помещаются в регистрах, исчезает сдвиг маски и счётчик проверяется один раз на 8 точек. Но требуются варианты на увеличение и уменьшение Y, (или правка 8 инструкций в основной части и 2 в хвостах для диагональной подветки).
всё равно без буфера получится эпилепсия
так это только 6 кб! а еще бока экрана можно использовать под нераздражающий нужный "мусор"
"лишние телодвижения" - это лишние потраченные такты
у тебя сейчас (по последнему вложению) в цикле получается 88-102 такта на пиксель (кстати, ora перед rrca - лишнее)
у меня в примере 76-87 тактов на пиксель, причём в среднем (с учётом вероятности переходов) должно быть ближе к 77
короче, не тупи! это был кусок для dx>dy, еще нужен лишь один похожий для dy>dx
еще можно для "сильногоризонтальных" добавить ветку, как только что предложил blackmirror
но, возможно, эффект слишком незначительный по сравнению с z80 получится, и для немногих
да хоть как на спектруме команды динамически заменяй
Прихожу без разрешения, сею смерть и разрушение...
Там эффект будет и для 254/255 тоже, в развернутом цикле будет ld/xor/ld для модификации точки, ld/sub/ld для изменения ошибки, jc для перехода в другую ветку, плюс inc/dec y в диагональной ветке. А счётчк и x будут модифицироваться один раз на 8 точек.
мне пока нечего туда пихатьтак это только 6 кб! а еще бока экрана можно использовать под нераздражающий нужный "мусор"
ora рудимент от rra"лишние телодвижения" - это лишние потраченные такты
у тебя сейчас (по последнему вложению) в цикле получается 88-102 такта на пиксель (кстати, ora перед rrca - лишнее)
у меня в примере 76-87 тактов на пиксель, причём в среднем (с учётом вероятности переходов) должно быть ближе к 77
ну для горизонтальных и вертикальных линий и диагональных линий я и твое слегка ускорил
только я боюсь экономия будет около 0.1% по факту изза малого количества таких линий
у меня и так используются 4 подпрограммы - угол 0-45 45-90 слева направо и столько же справа налево
короче, не тупи! это был кусок для dx>dy, еще нужен лишь один похожий для dy>dx
расчеты сожрут всю выгоду от скорости.еще можно для "сильногоризонтальных" добавить ветку, как только что предложил blackmirror
но, возможно, эффект слишком незначительный по сравнению с z80 получится, и для немногих
эт я еще до кругов не дошел.
- - - Добавлено - - -
мое мнение про дичь это мое мнение
ты отрицаешь что мнемоники z80 более логичны и удобны?
ага это будет некошерная Илита потому что скомпилирована на некошерном компиляторе и написана некошерными мнемониками? так чтоли?А, понятно, если бы ты упомянул только SJAsm, я бы естественно порекомендовал другой, который может. В общем, секта как есть, в действии. Вот поэтому "Илиты" никогда не будет на i8080, потому как она будет на недо-Z80.
- - - Добавлено - - -
текущая версия линии
дополнения, предложения есть?
Код:bitstream db #80,#40,#20,#10,#08,#04,#02,#01 ;в DE - yx начала ;в HL - yx конца line00 ld a,h sub d ;h<d? jp nc,line1 ;h>d ex de,hl cpl inc a line1 ld b,a ;b=vertical cntr DY ld a,l sub e ;a=DX ;e<l? jp nc,line_lr ;e>l line_rl cpl inc a ld c,a ;c=horizontal cntr cp b ;c?b jp c,line_rlv ;c>b or b jp nz,line_rlh inc c line_rlh ;right left horizontal call de_coo ld a,b ld (line_rlhb0),a ld d,c ld a,e line_rlh0 xor (hl) ld (hl),a ld a,b sub 0 ;b line_rlhb0 equ $-1 jp nc,line_rlh1 add a,c inc l line_rlh1 ld b,a ld a,e rlca ld e,a jp nc,line_rlhb dec h line_rlhb dec d jp nz,line_rlh0 ret line_rlv ;right left vertical or b jp nz,line_rlv2 inc b line_rlv2 call de_coo ld a,c ld (line_rlvb0),a ld d,b line_rlv0 ld a,(hl) xor e ld (hl),a inc l ld a,c sub 0 ;c line_rlvb0 equ $-1 ld c,a jp nc,line_rlv1 add a,b ld c,a ld a,e or a rlca ld e,a jp nc,line_rlv1 dec h line_rlv1 dec d jp nz,line_rlv0 ret line_lr ld c,a cp b ;c?b jp c,line_lrv ;c>b or b jp nz,line_lrh inc c line_lrh ;left right horizontal call de_coo ld a,b ld (line_lrhb0),a ld d,c ld a,e line_lrh0 xor (hl) ld (hl),a ld a,b sub 0 ;b line_lrhb0 equ $-1 jp nc,line_lrh1 add a,c inc l line_lrh1 ld b,a ld a,e rrca ld e,a jp nc,line_lrhb inc h line_lrhb dec d jp nz,line_lrh0 ret line_lrv or b jp nz,line_lrv2 inc b line_lrv2 ;left right vertical call de_coo ld a,c ld (line_lrvb0),a ld d,b line_lrv0 ld a,(hl) xor e ld (hl),a inc l ld a,c sub 0 ;c line_lrvb0 equ $-1 ld c,a jp nc,line_lrv1 add a,b ld c,a ld a,e rrca ld e,a jp nc,line_lrv1 inc h line_lrv1 dec d jp nz,line_lrv0 ret de_coo ;de=source ld a,e rra rra rra and #1f add a,#98 ld h,a ld l,d ld a,e ex de,hl and #07 ld hl,bitstream add a,l ld l,a ld l,(hl) ex de,hl ;hl=addr ;e=bitstream ret
Последний раз редактировалось jerri; 17.02.2019 в 14:58.
С уважением,
Jerri / Red Triangle.
да хоть код пихай
смысл был не в этом
да при чём тут это? можно сделать ветки, можно код перед входом патчить, дело в другом
у меня в примере обе подветки - части ОДНОГО цикла, рисующего слева направо для dx>dy
они обе в цикле отрабатывают, но в разных пропорциях в зависимости от наклона отрезка
вычитание из ошибки разных чисел в разных подветках избавляет от коррекции ошибки:
+ регистр еще при этом освобождает
какие расчёты? плюс одна проверка, переход, сдвиг
другое дело, что выгодных отрезков немного будет
всё еще 80-94 такта на пиксель (в цикле для лежачих отрезков)
второй недостаток:
вероятность выхода по завершению заведомо очень низкая
потому вместо jp выгоднее проверять на ноль условным ret
а для этого перенести декремент с проверкой в начало
и переход на него совместить с условным переходом после rrca
(который, напротив, происходит часто - в 7 из 8 случаев)
выигрыш - 5 тактов на каждый пиксель
у меня в примере уже так сделано
Прихожу без разрешения, сею смерть и разрушение...
зачем?
у тебя ошибка в кодеда при чём тут это? можно сделать ветки, можно код перед входом патчить, дело в другом
у меня в примере обе подветки - части ОДНОГО цикла, рисующего слева направо для dx>dy
они обе в цикле отрабатывают, но в разных пропорциях в зависимости от наклона отрезка
вычитание из ошибки разных чисел в разных подветках избавляет от коррекции ошибки:
сделай нормальную линию
о чем и речькакие расчёты? плюс одна проверка, переход, сдвиг
другое дело, что выгодных отрезков немного будет
ну это можно поправитьвсё еще 80-94 такта на пиксель (в цикле для лежачих отрезков)
второй недостаток:
вероятность выхода по завершению заведомо очень низкая
потому вместо jp выгоднее проверять на ноль условным ret
а для этого перенести декремент с проверкой в начало
и переход на него совместить с условным переходом после rrca
(который, напротив, происходит часто - в 7 из 8 случаев)
выигрыш - 5 тактов на каждый пиксель
у меня в примере уже так сделано
видел бы ты оригинал, идеалист блин
- - - Добавлено - - -
Lethargeek
смотри что скажешь?
https://www.dropbox.com/s/bmlq6jzh75...eline.rks?dl=0 в работеКод:bitstream db #80,#40,#20,#10,#08,#04,#02,#01 ;в DE - yx начала ;в HL - yx конца line00 ld a,h sub d ;h<d? jp nc,line1 ;h>d ex de,hl cpl inc a line1 ld b,a ;b=vertical cntr DY ld a,l sub e ;a=DX ;e<l? jp nc,line_lr ;e>l line_rl cpl inc a ld c,a ;c=horizontal cntr cp b ;c?b jp c,line_rlv ;c>b or b jp nz,line_rlh inc c line_rlh ;right left horizontal call de_coo ld a,b ld (line_rlhb0),a ld d,c ld a,e line_rlh0 xor (hl) ld (hl),a dec d ret z line_rlh2 ld a,b sub 0 ;b line_rlhb0 equ $-1 jp nc,line_rlh1 add a,c inc l line_rlh1 ld b,a ld a,e rlca ld e,a jp nc,line_rlh0 dec h xor (hl) ld (hl),a dec d jp nz,line_rlh2 ret line_rlv ;right left vertical or b jp nz,line_rlv2 inc b line_rlv2 call de_coo ld a,c ld (line_rlvb0),a ld d,b line_rlv0 ld a,(hl) xor e ld (hl),a dec d ret z line_rlv1 inc l ;движение по вертикали ld a,c sub 0 ;c line_rlvb0 equ $-1 ld c,a jp nc,line_rlv0 ;движение по горизонтали add a,b ld c,a ld a,e or a rlca ld e,a jp nc,line_rlv3 dec h line_rlv3 xor (hl) ld (hl),a dec d jp nz,line_rlv1 ret line_lr ld c,a cp b ;c?b jp c,line_lrv ;c>b or b jp nz,line_lrh inc c line_lrh ;left right horizontal call de_coo ld a,b ld (line_lrhb0),a ld d,c ld a,e line_lrh0 xor (hl) ld (hl),a dec d ret z line_lrh2 ld a,b sub 0 ;b line_lrhb0 equ $-1 jp nc,line_lrh1 ;движение по вертикали add a,c inc l line_lrh1 ld b,a ld a,e rrca ld e,a jp nc,line_lrh0 inc h xor (hl) ld (hl),a dec d jp nz,line_lrh2 ret line_lrv or b jp nz,line_lrv2 inc b line_lrv2 ;left right vertical call de_coo ld a,c ld (line_lrvb0),a ld d,b line_lrv0 ld a,(hl) xor e ld (hl),a dec d ret z line_lrv1 inc l ld a,c sub 0 ;c line_lrvb0 equ $-1 ld c,a jp nc,line_lrv0 add a,b ld c,a ld a,e rrca ld e,a jp nc,line_lrv3 inc h line_lrv3 xor (hl) ld (hl),a dec d jp nz,line_lrv1 ret de_coo ;de=source ld a,e rra rra rra and #1f add a,#98 ld h,a ld l,d ld a,e ex de,hl and #07 ld hl,bitstream add a,l ld l,a ld l,(hl) ex de,hl ;hl=addr ;e=bitstream ret
С уважением,
Jerri / Red Triangle.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)
Ваши права
Ответить с цитированием
