A different kind of INK command.

[Deleted]

So, the INK command only supports 4 CGA-like colors. I've been thinking that some games would look better if they used the full IBM text mode 16 color capability. That would mean replacing the white color value in a ASCII character with one of the other 15. INK only changes the palette.

A compromise would be to subvert elusives COPYTILE command to replace white with another color entry when it copes a tile. Here is the original command:

DECLARE SUB COPYTILE(frommem AS INTEGER, tomem AS INTEGER)
FOR i = 0 TO 15
b0 = VDPRAMREAD(frommem<<5+(i<<1))
VDPRAMWRITE tomem<<5+(i<<1), b0
NEXT
END SUB

I suspect b0 needs to be altered. It seems to be a full row of pixels from a tile. What would be the best strategy for "searching and replacing" color entries in that b0 variable?

[Deleted]

Apr 29, 2016 15:57:33 GMT -5 @theloon said:

So, the INK command only supports 4 CGA-like colors.

Ehm .. you're aware that the INK command merely determines which palette is used for the PRINT command? So, you can "assign" whichever color(s) you want to the INK command.

SPOILER: Click to show

palettes palette,0,1,8
palettes palette,1,1,8,16

loadtiles tiles,47,48

ink 0
print "THIS TEXT USES INK 0"

ink 1
print "THIS TEXT USES INK 1"

end


palette:
dataint $E0C,$E0A,$E08,$E06,$E04,$E02,$E00,$800
dataint $0EE,$0EC,$0CA,$0C8,$0A6,$0A4,$082,$040

tiles:
datalong $00111800
datalong $02882280
datalong $33808338
datalong $44800448
datalong $55800558
datalong $86680688
datalong $08777880
datalong $00888800
datalong $00011800
datalong $00222800
datalong $00833800
datalong $00044800
datalong $00055800
datalong $00066800
datalong $07777778
datalong $08888888
datalong $01111180
datalong $22888228
datalong $88803338
datalong $00444488
datalong $05555880
datalong $66688800
datalong $77777778
datalong $88888888
datalong $01111118
datalong $08882288
datalong $00033880
datalong $00444480
datalong $00888558
datalong $66800668
datalong $87777788
datalong $08888880
datalong $00011180
datalong $00222280
datalong $03383380
datalong $44884480
datalong $55555558
datalong $88886688
datalong $00007780
datalong $00008880
datalong $11111180
datalong $22888880
datalong $33333380
datalong $88888448
datalong $00000558
datalong $66800668
datalong $87777788
datalong $08888880
datalong $00111180
datalong $02288880
datalong $33880000
datalong $44444480
datalong $55888558
datalong $66800668
datalong $87777788
datalong $08888880
datalong $11111118
datalong $22888228
datalong $88803388
datalong $00044880
datalong $00558800
datalong $00668000
datalong $00778000
datalong $00888000
datalong $01111800
datalong $22888280
datalong $33380380
datalong $84444880
datalong $58855558
datalong $68088668
datalong $87777788
datalong $08888880
datalong $01111180
datalong $22888228
datalong $33800338
datalong $84444448
datalong $08888558
datalong $00006688
datalong $07777880
datalong $08888800
datalong $00000000
datalong $00022800
datalong $00033800
datalong $00088800
datalong $00055800
datalong $00066800
datalong $00088800
datalong $00000000
datalong $00000000
datalong $00022800
datalong $00033800
datalong $00088800
datalong $00055800
datalong $00066800
datalong $00778800
datalong $00888000
datalong $00001180
datalong $00022880
datalong $00338800
datalong $04488000
datalong $08558000
datalong $00866800
datalong $00087780
datalong $00008880
datalong $00000000
datalong $00000000
datalong $03333380
datalong $08888880
datalong $05555580
datalong $08888880
datalong $00000000
datalong $00000000
datalong $00118000
datalong $00822800
datalong $00083380
datalong $00008448
datalong $00005588
datalong $00066880
datalong $00778800
datalong $00888000
datalong $01111180
datalong $22222228
datalong $33888338
datalong $88804488
datalong $00555880
datalong $00888800
datalong $00777800
datalong $00888800
datalong $00111800
datalong $02888280
datalong $38833838
datalong $48484848
datalong $58555858
datalong $86886688
datalong $08788880
datalong $00880000
datalong $00111800
datalong $02282280
datalong $33888338
datalong $44800448
datalong $55555558
datalong $66888668
datalong $77800778
datalong $88800888
datalong $11111180
datalong $22888228
datalong $33800338
datalong $44444488
datalong $55888558
datalong $66800668
datalong $77777788
datalong $88888880
datalong $00111180
datalong $02288228
datalong $33880888
datalong $44800000
datalong $55800000
datalong $86680668
datalong $08777788
datalong $00888880
datalong $11111800
datalong $22882280
datalong $33808338
datalong $44800448
datalong $55800558
datalong $66806688
datalong $77777880
datalong $88888800
datalong $11111118
datalong $22888888
datalong $33800000
datalong $44444480
datalong $55888880
datalong $66800000
datalong $77777778
datalong $88888888
datalong $11111118
datalong $22888888
datalong $33800000
datalong $44444480
datalong $55888880
datalong $66800000
datalong $77800000
datalong $88800000
datalong $00111118
datalong $02288888
datalong $33880000
datalong $44804448
datalong $55808558
datalong $86680668
datalong $08777778
datalong $00888888
datalong $11800118
datalong $22800228
datalong $33800338
datalong $44444448
datalong $55888558
datalong $66800668
datalong $77800778
datalong $88800888
datalong $01111118
datalong $08822888
datalong $00033800
datalong $00044800
datalong $00055800
datalong $00066800
datalong $07777778
datalong $08888888
datalong $00000118
datalong $00000228
datalong $00000338
datalong $00000448
datalong $00000558
datalong $66800668
datalong $87777788
datalong $08888880
datalong $11800118
datalong $22802288
datalong $33833880
datalong $44448800
datalong $55555800
datalong $66866680
datalong $77887778
datalong $88808888
datalong $11800000
datalong $22800000
datalong $33800000
datalong $44800000
datalong $55800000
datalong $66800000
datalong $77777778
datalong $88888888
datalong $11800118
datalong $22282228
datalong $33333338
datalong $44444448
datalong $55858558
datalong $66888668
datalong $77800778
datalong $88800888
datalong $11800118
datalong $22280228
datalong $33338338
datalong $44444448
datalong $55855558
datalong $66886668
datalong $77808778
datalong $88800888
datalong $01111180
datalong $22888228
datalong $33800338
datalong $44800448
datalong $55800558
datalong $66800668
datalong $87777788
datalong $08888880
datalong $11111180
datalong $22888228
datalong $33800338
datalong $44800448
datalong $55555588
datalong $66888880
datalong $77800000
datalong $88800000
datalong $01111180
datalong $22888228
datalong $33800338
datalong $44800448
datalong $55855558
datalong $66886688
datalong $87777878
datalong $08888888
datalong $11111180
datalong $22888228
datalong $33800338
datalong $44804448
datalong $55555888
datalong $66866680
datalong $77887778
datalong $88808888
datalong $01111800
datalong $22882280
datalong $33808880
datalong $84444480
datalong $08888558
datalong $66800668
datalong $87777788
datalong $08888880
datalong $01111118
datalong $08822888
datalong $00033800
datalong $00044800
datalong $00055800
datalong $00066800
datalong $00077800
datalong $00088800
datalong $11800118
datalong $22800228
datalong $33800338
datalong $44800448
datalong $55800558
datalong $66800668
datalong $87777788
datalong $08888880
datalong $11800118
datalong $22800228
datalong $33800338
datalong $44484448
datalong $85555588
datalong $08666880
datalong $00878800
datalong $00088000
datalong $11800118
datalong $22800228
datalong $33838338
datalong $44444448
datalong $55555558
datalong $66686668
datalong $77888778
datalong $88800888
datalong $11800118
datalong $22282228
datalong $83333388
datalong $08444880
datalong $05555580
datalong $66686668
datalong $77888778
datalong $88800888
datalong $01180118
datalong $02280228
datalong $03380338
datalong $08444488
datalong $00855880
datalong $00066800
datalong $00077800
datalong $00088800
datalong $11111118
datalong $88882228
datalong $00033388
datalong $00444880
datalong $05558800
datalong $66688000
datalong $77777778
datalong $88888888
datalong $08111800
datalong $08228800
datalong $08338000
datalong $08448000
datalong $08558000
datalong $08668000
datalong $08777800
datalong $08888800
datalong $81188118
datalong $88222288
datalong $83333338
datalong $88844888
datalong $85555558
datalong $88866888
datalong $00877800
datalong $00888800
datalong $08111800
datalong $08822800
datalong $00833800
datalong $00844800
datalong $00855800
datalong $00866800
datalong $08777800
datalong $08888800

[Deleted]

Yep. Except when I swap color entries in a palette It'd have unintended consequence for other tiles. I'd like to take an existing tile, swap white for another color and then copy that tile to an unused place in memory.

The first step is to read the values from an existing tile and find the white and replace that value. I suspect I'll have to take that b0 variable and convert it to text and do a replacement of the values that way.

I realize I'm thinking about this bass akwards and with incomplete knowledge. The net result I want is something akin to a real IBM text mode where ASCII characters can have 16 background and 16 foreground colors. There must be a way to come close.
www.youtube.com/watch?v=DqW3UHRF7qI

[Deleted]

May 2, 2016 15:39:40 GMT -5 @theloon said:

I'd like to take an existing tile, swap white for another color and then copy that tile to an unused place in memory.

Here's a easy to understand approach / demo

SPOILER: Click to show

option noloadfont
option fontforeentry,15
loadfont font,256,0

palettes palette,0,0,16

ink_char 69,69,09 ' Generate blue "E" and upload to "E"
ink_char 79,79,11 ' Generate cyan "O" and upload to "O"
ink_char 64,65,13 ' Generate pink "@" and upload to "A"

locate 0,6
print "WELCOME TO THE BONUS STAGE"

end

declare sub ink_char(s as integer, t as integer, c as integer)
d = c<<4
e = d<<4
f = e<<4

a& = t<<5

reload font,s<<3

for i=0 to 7
read b

w = 0

if b.4 then w+= c
if b.5 then w+= d
if b.6 then w+= e
if b.7 then w+= f

vdpramwrite a&,w
a&+= 2

w = 0

if b.0 then w+= c
if b.1 then w+= d
if b.2 then w+= e
if b.3 then w+= f

vdpramwrite a&,w
a&+= 2
next

exit sub
end sub

palette:
dataint $000,$A00,$0A0,$AA0,$00A,$A0A,$06A,$AAA
dataint $666,$E66,$6E6,$EE6,$66E,$E4E,$6EE,$EEE

font:
data $00,$00,$00,$00,$00,$00,$00,$00
data $7E,$81,$A5,$81,$BD,$99,$81,$7E
data $7E,$FF,$DB,$FF,$C3,$E7,$FF,$7E
data $6C,$FE,$FE,$FE,$7C,$38,$10,$00
data $10,$38,$7C,$FE,$7C,$38,$10,$00
data $38,$7C,$38,$FE,$FE,$7C,$38,$7C
data $10,$10,$38,$7C,$FE,$7C,$38,$7C
data $00,$00,$18,$3C,$3C,$18,$00,$00
data $FF,$FF,$E7,$C3,$C3,$E7,$FF,$FF
data $00,$3C,$66,$42,$42,$66,$3C,$00
data $FF,$C3,$99,$BD,$BD,$99,$C3,$FF
data $0F,$07,$0F,$7D,$CC,$CC,$CC,$78
data $3C,$66,$66,$66,$3C,$18,$7E,$18
data $3F,$33,$3F,$30,$30,$70,$F0,$E0
data $7F,$63,$7F,$63,$63,$67,$E6,$C0
data $99,$5A,$3C,$E7,$E7,$3C,$5A,$99
data $80,$E0,$F8,$FE,$F8,$E0,$80,$00
data $02,$0E,$3E,$FE,$3E,$0E,$02,$00
data $18,$3C,$7E,$18,$18,$7E,$3C,$18
data $66,$66,$66,$66,$66,$00,$66,$00
data $7F,$DB,$DB,$7B,$1B,$1B,$1B,$00
data $3E,$63,$38,$6C,$6C,$38,$CC,$78
data $00,$00,$00,$00,$7E,$7E,$7E,$00
data $18,$3C,$7E,$18,$7E,$3C,$18,$FF
data $18,$3C,$7E,$18,$18,$18,$18,$00
data $18,$18,$18,$18,$7E,$3C,$18,$00
data $00,$18,$0C,$FE,$0C,$18,$00,$00
data $00,$30,$60,$FE,$60,$30,$00,$00
data $00,$00,$C0,$C0,$C0,$FE,$00,$00
data $00,$24,$66,$FF,$66,$24,$00,$00
data $00,$18,$3C,$7E,$FF,$FF,$00,$00
data $00,$FF,$FF,$7E,$3C,$18,$00,$00
data $00,$00,$00,$00,$00,$00,$00,$00
data $30,$30,$30,$30,$30,$00,$30,$00
data $6C,$6C,$6C,$00,$00,$00,$00,$00
data $6C,$6C,$FE,$6C,$FE,$6C,$6C,$00
data $30,$7C,$C0,$78,$0C,$F8,$30,$00
data $00,$C6,$CC,$18,$30,$66,$C6,$00
data $38,$6C,$38,$76,$DC,$CC,$76,$00
data $60,$60,$C0,$00,$00,$00,$00,$00
data $18,$30,$60,$60,$60,$30,$18,$00
data $60,$30,$18,$18,$18,$30,$60,$00
data $00,$66,$3C,$FF,$3C,$66,$00,$00
data $00,$30,$30,$FC,$30,$30,$00,$00
data $00,$00,$00,$00,$00,$30,$30,$60
data $00,$00,$00,$FC,$00,$00,$00,$00
data $00,$00,$00,$00,$00,$30,$30,$00
data $06,$0C,$18,$30,$60,$C0,$80,$00
data $7C,$C6,$CE,$DE,$F6,$E6,$7C,$00
data $30,$70,$30,$30,$30,$30,$FC,$00
data $78,$CC,$0C,$38,$60,$CC,$FC,$00
data $78,$CC,$0C,$38,$0C,$CC,$78,$00
data $1C,$3C,$6C,$CC,$FE,$0C,$1E,$00
data $FC,$C0,$F8,$0C,$0C,$CC,$78,$00
data $38,$60,$C0,$F8,$CC,$CC,$78,$00
data $FC,$CC,$0C,$18,$30,$30,$30,$00
data $78,$CC,$CC,$78,$CC,$CC,$78,$00
data $78,$CC,$CC,$7C,$0C,$18,$70,$00
data $00,$30,$30,$00,$00,$30,$30,$00
data $00,$30,$30,$00,$00,$30,$30,$60
data $18,$30,$60,$C0,$60,$30,$18,$00
data $00,$00,$FC,$00,$00,$FC,$00,$00
data $60,$30,$18,$0C,$18,$30,$60,$00
data $78,$CC,$0C,$18,$30,$00,$30,$00
data $7C,$C6,$DE,$DE,$DE,$C0,$78,$00
data $30,$78,$CC,$CC,$FC,$CC,$CC,$00
data $FC,$66,$66,$7C,$66,$66,$FC,$00
data $3C,$66,$C0,$C0,$C0,$66,$3C,$00
data $F8,$6C,$66,$66,$66,$6C,$F8,$00
data $7E,$60,$60,$78,$60,$60,$7E,$00
data $7E,$60,$60,$78,$60,$60,$60,$00
data $3C,$66,$C0,$C0,$CE,$66,$3E,$00
data $CC,$CC,$CC,$FC,$CC,$CC,$CC,$00
data $78,$30,$30,$30,$30,$30,$78,$00
data $1E,$0C,$0C,$0C,$CC,$CC,$78,$00
data $E6,$66,$6C,$78,$6C,$66,$E6,$00
data $60,$60,$60,$60,$60,$60,$7E,$00
data $C6,$EE,$FE,$FE,$D6,$C6,$C6,$00
data $C6,$E6,$F6,$DE,$CE,$C6,$C6,$00
data $38,$6C,$C6,$C6,$C6,$6C,$38,$00
data $FC,$66,$66,$7C,$60,$60,$F0,$00
data $78,$CC,$CC,$CC,$DC,$78,$1C,$00
data $FC,$66,$66,$7C,$6C,$66,$E6,$00
data $78,$CC,$E0,$78,$1C,$CC,$78,$00
data $FC,$30,$30,$30,$30,$30,$30,$00
data $CC,$CC,$CC,$CC,$CC,$CC,$FC,$00
data $CC,$CC,$CC,$CC,$CC,$78,$30,$00
data $C6,$C6,$C6,$D6,$FE,$EE,$C6,$00
data $C6,$C6,$6C,$38,$38,$6C,$C6,$00
data $CC,$CC,$CC,$78,$30,$30,$78,$00
data $FE,$06,$0C,$18,$30,$60,$FE,$00
data $78,$60,$60,$60,$60,$60,$78,$00
data $C0,$60,$30,$18,$0C,$06,$02,$00
data $78,$18,$18,$18,$18,$18,$78,$00
data $10,$38,$6C,$C6,$00,$00,$00,$00
data $00,$00,$00,$00,$00,$00,$00,$FF
data $30,$30,$18,$00,$00,$00,$00,$00
data $00,$00,$78,$0C,$7C,$CC,$76,$00
data $E0,$60,$60,$7C,$66,$66,$DC,$00
data $00,$00,$78,$CC,$C0,$CC,$78,$00
data $1C,$0C,$0C,$7C,$CC,$CC,$76,$00
data $00,$00,$78,$CC,$FC,$C0,$78,$00
data $38,$6C,$60,$F0,$60,$60,$F0,$00
data $00,$00,$76,$CC,$CC,$7C,$0C,$F8
data $E0,$60,$6C,$76,$66,$66,$E6,$00
data $30,$00,$70,$30,$30,$30,$78,$00
data $0C,$00,$0C,$0C,$0C,$CC,$CC,$78
data $E0,$60,$66,$6C,$78,$6C,$E6,$00
data $70,$30,$30,$30,$30,$30,$78,$00
data $00,$00,$CC,$FE,$FE,$D6,$C6,$00
data $00,$00,$F8,$CC,$CC,$CC,$CC,$00
data $00,$00,$78,$CC,$CC,$CC,$78,$00
data $00,$00,$DC,$66,$66,$7C,$60,$F0
data $00,$00,$76,$CC,$CC,$7C,$0C,$1E
data $00,$00,$DC,$76,$66,$60,$F0,$00
data $00,$00,$7C,$C0,$78,$0C,$F8,$00
data $10,$30,$7C,$30,$30,$34,$18,$00
data $00,$00,$CC,$CC,$CC,$CC,$76,$00
data $00,$00,$CC,$CC,$CC,$78,$30,$00
data $00,$00,$C6,$D6,$FE,$FE,$6C,$00
data $00,$00,$C6,$6C,$38,$6C,$C6,$00
data $00,$00,$CC,$CC,$CC,$7C,$0C,$F8
data $00,$00,$FC,$98,$30,$64,$FC,$00
data $1C,$30,$30,$E0,$30,$30,$1C,$00
data $18,$18,$18,$00,$18,$18,$18,$00
data $E0,$30,$30,$1C,$30,$30,$E0,$00
data $76,$DC,$00,$00,$00,$00,$00,$00
data $00,$10,$38,$6C,$C6,$FE,$00,$00
data $3C,$66,$C0,$C0,$66,$3C,$08,$18
data $28,$00,$CC,$CC,$CC,$CC,$76,$00
data $08,$10,$78,$CC,$FC,$C0,$78,$00
data $10,$28,$78,$0C,$7C,$CC,$76,$00
data $28,$00,$78,$0C,$7C,$CC,$76,$00
data $20,$10,$78,$0C,$7C,$CC,$76,$00
data $18,$18,$78,$0C,$7C,$CC,$76,$00
data $00,$78,$CC,$C0,$CC,$78,$10,$30
data $10,$28,$78,$CC,$FC,$C0,$78,$00
data $28,$00,$78,$CC,$FC,$C0,$78,$00
data $20,$10,$78,$CC,$FC,$C0,$78,$00
data $28,$00,$70,$30,$30,$30,$78,$00
data $10,$28,$70,$30,$30,$30,$78,$00
data $10,$08,$70,$30,$30,$30,$78,$00
data $28,$30,$78,$CC,$FC,$CC,$CC,$00
data $30,$48,$30,$CC,$FC,$CC,$CC,$00
data $08,$10,$7E,$60,$78,$60,$7E,$00
data $00,$00,$6C,$12,$7E,$90,$7E,$00
data $3E,$50,$90,$9C,$F0,$90,$9E,$00
data $10,$28,$78,$CC,$CC,$CC,$78,$00
data $28,$00,$78,$CC,$CC,$CC,$78,$00
data $20,$10,$78,$CC,$CC,$CC,$78,$00
data $10,$28,$CC,$CC,$CC,$CC,$76,$00
data $20,$10,$CC,$CC,$CC,$CC,$76,$00
data $28,$00,$CC,$CC,$CC,$7C,$0C,$F8
data $28,$7C,$C6,$C6,$C6,$C6,$7C,$00
data $28,$C6,$C6,$C6,$C6,$C6,$7C,$00
data $00,$10,$78,$CC,$C0,$CC,$78,$10
data $38,$44,$40,$F0,$40,$40,$FE,$00
data $C3,$66,$3C,$7E,$18,$7E,$18,$00
data $FC,$66,$66,$7C,$60,$60,$F0,$00
data $1C,$30,$FC,$30,$30,$30,$30,$E0
data $08,$10,$78,$0C,$7C,$CC,$76,$00
data $10,$20,$70,$30,$30,$30,$78,$00
data $10,$20,$78,$CC,$CC,$CC,$78,$00
data $10,$20,$CC,$CC,$CC,$CC,$76,$00
data $32,$4C,$F8,$CC,$CC,$CC,$CC,$00
data $32,$4C,$C6,$E6,$D6,$CE,$C6,$00
data $00,$38,$0C,$3C,$6C,$36,$00,$00
data $00,$38,$44,$44,$38,$00,$00,$00
data $18,$00,$18,$30,$60,$66,$3C,$00
data $00,$00,$FE,$80,$80,$00,$00,$00
data $00,$00,$FE,$02,$02,$00,$00,$00
data $42,$44,$48,$56,$29,$46,$88,$1F
data $42,$44,$48,$56,$2A,$5F,$82,$07
data $30,$00,$30,$30,$30,$30,$30,$00
data $00,$24,$48,$90,$48,$24,$00,$00
data $00,$48,$24,$12,$24,$48,$00,$00
data $88,$22,$88,$22,$88,$00,$88,$22
data $AA,$55,$AA,$55,$AA,$00,$AA,$55
data $77,$DD,$77,$DD,$77,$FF,$77,$DD
data $10,$10,$10,$10,$10,$10,$10,$10
data $10,$10,$10,$F0,$10,$10,$10,$10
data $10,$10,$F0,$10,$F0,$10,$10,$10
data $28,$28,$28,$E8,$28,$28,$28,$28
data $00,$00,$00,$F8,$28,$28,$28,$28
data $00,$00,$F0,$10,$F0,$10,$10,$10
data $28,$28,$E8,$08,$E8,$28,$28,$28
data $28,$28,$28,$28,$28,$28,$28,$28
data $00,$00,$F8,$08,$E8,$28,$28,$28
data $28,$28,$E8,$08,$F8,$00,$00,$00
data $28,$28,$28,$F8,$00,$00,$00,$00
data $10,$10,$F0,$10,$F0,$00,$00,$00
data $00,$00,$00,$F0,$10,$10,$10,$10
data $10,$10,$10,$1F,$00,$00,$00,$00
data $10,$10,$10,$FF,$00,$00,$00,$00
data $00,$00,$00,$FF,$10,$10,$10,$10
data $10,$10,$10,$1F,$10,$10,$10,$10
data $00,$00,$00,$FF,$00,$00,$00,$00
data $10,$10,$10,$FF,$10,$10,$10,$10
data $10,$10,$1F,$10,$1F,$10,$10,$10
data $28,$28,$28,$2F,$28,$28,$28,$28
data $28,$28,$2F,$20,$3F,$00,$00,$00
data $00,$00,$3F,$20,$2F,$28,$28,$28
data $28,$28,$EF,$00,$FF,$00,$00,$00
data $00,$00,$FF,$00,$EF,$28,$28,$28
data $28,$28,$2F,$20,$2F,$28,$28,$28
data $00,$00,$FF,$00,$FF,$00,$00,$00
data $28,$28,$EF,$00,$EF,$28,$28,$28
data $10,$10,$FF,$00,$FF,$00,$00,$00
data $28,$28,$28,$FF,$00,$00,$00,$00
data $00,$00,$FF,$00,$FF,$10,$10,$10
data $00,$00,$00,$FF,$28,$28,$28,$28
data $28,$28,$28,$3F,$00,$00,$00,$00
data $10,$10,$1F,$10,$1F,$00,$00,$00
data $00,$00,$1F,$10,$1F,$10,$10,$10
data $00,$00,$00,$3F,$28,$28,$28,$28
data $28,$28,$28,$FF,$28,$28,$28,$28
data $10,$10,$FF,$10,$FF,$10,$10,$10
data $10,$10,$10,$F0,$00,$00,$00,$00
data $00,$00,$00,$1F,$10,$10,$10,$10
data $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
data $00,$00,$00,$00,$FF,$FF,$FF,$FF
data $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0
data $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
data $FF,$FF,$FF,$FF,$00,$00,$00,$00
data $00,$00,$00,$72,$8C,$88,$3A,$00
data $30,$48,$48,$7C,$42,$42,$DC,$00
data $00,$00,$FE,$42,$40,$40,$E0,$00
data $00,$00,$FE,$44,$44,$44,$EE,$00
data $FE,$42,$20,$10,$20,$42,$FE,$00
data $00,$00,$00,$3E,$44,$44,$38,$00
data $00,$00,$CC,$44,$44,$44,$7A,$40
data $00,$00,$7C,$10,$10,$10,$1C,$00
data $00,$10,$7C,$92,$92,$7C,$10,$00
data $00,$00,$7C,$82,$BA,$82,$7C,$00
data $00,$7C,$82,$82,$6C,$28,$EE,$00
data $00,$7C,$20,$38,$44,$44,$38,$00
data $00,$00,$6C,$92,$92,$6C,$00,$00
data $00,$00,$4C,$92,$92,$7C,$10,$00
data $00,$00,$3C,$40,$30,$40,$3C,$00
data $00,$00,$3C,$42,$42,$42,$42,$00
data $00,$FE,$00,$FE,$00,$FE,$00,$00
data $10,$10,$FE,$10,$10,$FE,$00,$00
data $40,$10,$04,$10,$40,$FE,$00,$00
data $04,$10,$40,$10,$04,$FE,$00,$00
data $0C,$10,$10,$10,$10,$10,$10,$10
data $10,$10,$10,$10,$10,$10,$10,$60
data $00,$00,$10,$00,$FE,$00,$10,$00
data $00,$62,$9C,$00,$62,$9C,$00,$00
data $30,$48,$48,$30,$00,$00,$00,$00
data $00,$00,$00,$30,$30,$00,$00,$00
data $00,$00,$00,$00,$08,$00,$00,$00
data $01,$02,$E2,$24,$14,$18,$08,$00
data $00,$00,$58,$24,$24,$00,$00,$00
data $30,$48,$10,$20,$78,$00,$00,$00
data $00,$00,$FF,$FF,$FF,$FF,$00,$00
data $00,$00,$00,$00,$00,$00,$00,$00

[Deleted]

Thank you for the example Titan! I'm still doing due diligence with my intent to change a given pixel color value with another within a tile. For example, take the forth pixel value in a tile and change it from the second color "1" to the sixteenth "F". I found a hex$ command that let's me "see" the color values in sections of the tile.. but, no way to convert that back into decimal. Probably need something called hex2dec(stringval$)

Here is my modification to COPYTILE in order to see the values:
I still think I'm doing something wrong as each tile should have 8 pixels per row yet b0 counts to sixteen before being done copying the tile.

PRINT chr$(atile)
COPYTILE atile, 128
PRINT chr$(128)

DECLARE SUB COPYTILE(frommem AS INTEGER, tomem AS INTEGER)
FOR i = 0 TO 15
 b0 = VDPRAMREAD(frommem<<5+(i<<1))
 PRINT hex$(b0)
 VDPRAMWRITE tomem<<5+(i<<1), b0
NEXT
END SUB

[Deleted]

May 3, 2016 2:27:31 GMT -5 @theloon said:

I'm still doing due diligence with my intent to change a given pixel color value with another within a tile.

Well .. no point in trying to help people that don't want to listen / read / learn / take-advice

Attachments:

ASCII.bin (16.23 KB)

[Deleted]

What you posted before was still (as it appeared to me) just allowing 4 color variations. What you're showing me now is what I asked about: 16-ish foreground colors and 16-ish background colors.

I'm sorry if I offended you to the point of having to withhold information - especially now that we're much closer to understanding each other.

[Deleted]

May 3, 2016 8:40:48 GMT -5 @theloon said:

What you posted before was still (as it appeared to me) just allowing 4 color variations.

That only proves my point .. if you would have actually looked-at / played-around-with the example you would have noticed that i'm loading a 16-color EGA palette and generate tiles using color 9, 11 and 13.

[Deleted]

I *did* play around with your code. Did you expect perfect comprehension without further questions? Did you expect I would completely abandon my original premise?

Why tease a workable answer instead of explain? That's rude.

[Deleted]

I *think* I'm starting to understand. You're using argunumerics to replace the color value instead of wrestling with converting values into strings and back. I still don't understand why COPYTILE has a loop that goes from 0 to 15 and this one 0 through 8. I still have a ways to go. Thank you for the help.



for i=0 to 7
read b

w = 0

if b.4 then w+= c
if b.5 then w+= d
if b.6 then w+= e
if b.7 then w+= f

vdpramwrite a&,w
a&+= 2

w = 0

if b.0 then w+= c
if b.1 then w+= d
if b.2 then w+= e
if b.3 then w+= f

vdpramwrite a&,w
a&+= 2
next