prog8/examples/cx16/imageviewer/koala_module.p8

85 lines
2.5 KiB
Plaintext
Raw Normal View History

%target cx16
%import graphics
%import diskio
%import c64colors
2020-12-14 13:30:18 +00:00
koala_module {
2020-12-11 22:32:47 +00:00
const uword load_location = $6000
2020-12-14 13:30:18 +00:00
sub show_image(uword filenameptr) -> ubyte {
ubyte load_ok=false
2020-12-11 22:00:58 +00:00
if diskio.f_open(8, filenameptr) {
uword size = diskio.f_read(load_location, 2) ; skip the first 2 bytes (load address)
if size==2 {
size = diskio.f_read(load_location, 10001)
if size == 10001 {
2020-12-14 13:30:18 +00:00
; set a better C64 color palette, the Cx16's default is too saturated
c64colors.set_palette_pepto()
2020-12-11 22:00:58 +00:00
convert_koalapic()
2020-12-14 13:30:18 +00:00
load_ok = true
2020-12-11 22:00:58 +00:00
}
}
diskio.f_close()
}
2020-12-14 13:30:18 +00:00
return load_ok
}
sub convert_koalapic() {
ubyte cy
2020-12-06 06:23:57 +00:00
ubyte @zp cx
uword @zp cy_times_forty = 0
ubyte @zp d
2020-12-06 17:38:27 +00:00
uword bitmap_ptr = load_location
; theoretically you could put the 8-pixel array in zeropage to squeeze out another tiny bit of performance
ubyte[8] pixels
2020-12-14 13:30:18 +00:00
graphics.clear_screen(1, 0)
2020-12-06 06:23:57 +00:00
for cy in 0 to 24*8 step 8 {
for cx in 0 to 39 {
for d in 0 to 7 {
cx16.r0 = cx as uword * 8
cx16.r1 = cy as uword + d
cx16.FB_cursor_position()
get_8_pixels()
cx16.FB_set_pixels(pixels, 8)
}
}
cy_times_forty += 40
}
sub get_8_pixels() {
2020-12-06 17:38:27 +00:00
ubyte bm = @(bitmap_ptr)
ubyte @zp m = mcol(bm)
pixels[7] = m
pixels[6] = m
2020-12-06 06:23:57 +00:00
bm >>= 2
m = mcol(bm)
pixels[5] = m
pixels[4] = m
2020-12-06 06:23:57 +00:00
bm >>= 2
m = mcol(bm)
pixels[3] = m
pixels[2] = m
2020-12-06 06:23:57 +00:00
bm >>= 2
m = mcol(bm)
pixels[1] = m
pixels[0] = m
2020-12-06 17:38:27 +00:00
bitmap_ptr++
sub mcol(ubyte b) -> ubyte {
2020-12-06 06:23:57 +00:00
ubyte @zp color
when b & 3 {
2020-12-06 17:38:27 +00:00
0 -> color = @(load_location + 8000 + 1000 + 1000) & 15
1 -> color = @(load_location + 8000 + cy_times_forty + cx) >>4
2 -> color = @(load_location + 8000 + cy_times_forty + cx) & 15
else -> color = @(load_location + 8000 + 1000 + cy_times_forty + cx) & 15
}
return color
}
}
}
}