Moderator: moroz1999
diver wrote:Прикольный формат
moroz1999 wrote:Немного подумав, сообразил, что самый простой вариант для пробы - рисуем картинку в нормальном режиме, подбираем палитру, подрихтовываем.
g0blinish wrote:какой конвертер - такая каша. твоя конверсия Exolon выглядела бы еще ужаснее.
ld hl,#4000
lp0:ld (hl),l:inc hl
ld a,h:cp #5B:jr nz,lp0
;LET reg = 48955 : LET dat = 65339
;Switch the mode on
;OUT reg, 64: OUT dat, 1
;Switch the mode off
;OUT reg, 64: OUT dat, 0
ld bc,48955,a,64:out (c),a
ld bc,65339,a,1:out (c),a
;DEF FN c(r,g,b)=(g*32)+(r*4)+INT (b/2)
;Set a colour OUT reg, P: OUT dat, FN c(R,G,B)
;P is the palette entry to change (0-63)
;R, G and B are the red and green levels (0-7)
ld bc,48955,a,0:out (c),a
ld bc,65339,a,(6*32):out (c),a
ld bc,48955,a,1:out (c),a
ld bc,65339,a,(5*32):out (c),a
g0blinish wrote:интересно, а как выбирать clut?
TS-Labs wrote:ink_colour = (FLASH * 2 + BRIGHT) * 16 + INK
paper_colour = (FLASH * 2 + BRIGHT) * 16 + PAPER + 8
g0blinish wrote:что такое ink_colour и paper_colour? цвета для экрана? и к чему тогда INK и PAPER?
moroz1999 wrote:1. Вся палитра делится на четыре куска
moroz1999 wrote:. Старшие два бита задают кусок палитры (один из четырех).
g0blinish wrote:что такое ink_colour и paper_colour?
device zxspectrum128
ORG #6000
begin
ld hl,#4000
lp0:ld (hl),l:inc hl
ld a,h:cp #5B:jr nz,lp0
;LET reg = 48955 : LET dat = 65339
;Switch the mode on
;OUT reg, 64: OUT dat, 1
;Switch the mode off
;OUT reg, 64: OUT dat, 0
ld bc,48955,a,64:out (c),a
ld bc,65339,a,1:out (c),a
; ld a,$07,($5800),a;$87
;$87=10 000 111(PPpppiiii)
;index1:2*16+7=39 ink ink_colour = (FLASH * 2 + BRIGHT) * 16 + INK
;index2:2*16+0=32 paper paper_colour = (FLASH * 2 + BRIGHT) * 16 + PAPER + 8
ld bc,48955,a,39:out (c),a;palette entry
ld bc,65339,a,(7*4):out (c),a
ld bc,48955,a,32:out (c),a;palette entry
ld bc,65339,a,(1*32+7*4):out (c),a
jr $
;DEF FN c(r,g,b)=(g*32)+(r*4)+INT (b/2)
;Set a colour OUT reg, P: OUT dat, FN c(R,G,B)
;P is the palette entry to change (0-63)
;R, G and B are the red and green levels (0-7)
; ld bc,48955,a,0:out (c),a
; ld bc,65339,a,(6*32):out (c),a
; ld bc,48955,a,1:out (c),a
; ld bc,65339,a,(5*32):out (c),a
end
display /d,end-begin
savesna "!void.sna",begin
moroz1999 wrote:Прошу любить и жаловать. В основном конверсии как proof of concept.
Users browsing this forum: No registered users and 0 guests