Attached screenshot is what I'm getting.
Here's my code for the graphic reading funciton:
SetTiles(&hADE00, 256, 4)
sub SetTiles(start as UInteger, total_tiles as Integer, bpp as UByte = 3)
dim b as UByte
for i as Integer = 0 to total_tiles - 1
for j as Integer = 0 to 7
for k as Integer = 0 to 7
sprite(i, k, j) = 0
next
next
next
for i as Integer = 0 to total_tiles - 1
if bpp < 4 then
for j as Integer = 0 to 7
b = ByteAt(start + i * 24 + j * 2)
for k as Integer = 0 to 7
sprite(i, k, j) = (b \ 2^k) and 1
next
b = ByteAt(start + i * 24 + j * 2 + 1)
for k as Integer = 0 to 7
sprite(i, k, j) += ((b \ 2^k) and 1) * 2
next
next
if bpp = 3 then
for j as Integer = 0 to 7
b = ByteAt(start + i * 24 + 16 + j)
for k as Integer = 0 to 7
sprite(i, k, j) += ((b \ 2^k) and 1) * 4
next
next
end if
elseif bpp = 4 then
for j as Integer = 0 to 7
b = ByteAt(start + i * 24 + j * 2)
for k as Integer = 0 to 7
sprite(i, k, j) = (b \ 2^k) and 1
next
b = ByteAt(start + i * 24 + j * 2 + 1)
for k as Integer = 0 to 7
sprite(i, k, j) += ((b \ 2^k) and 1) * 2
next
next
for j as Integer = 0 to 7
b = ByteAt(start + i * 24 + 16 + j * 2)
for k as Integer = 0 to 7
sprite(i, k, j) += ((b \ 2^k) and 1) * 4
next
b = ByteAt(start + i * 24 + 16 + j * 2 + 1)
for k as Integer = 0 to 7
sprite(i, k, j) += ((b \ 2^k) and 1) * 8
next
next
end if
next
end sub
We have EVEN MORE themes now, but some old ones are gone...