Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-11-22 15:33:02 +00:00
Code Issues Projects Releases Wiki Activity

adding pcxviewer

Browse Source
This commit is contained in:
Irmen de Jong 2020-12-12 01:17:30 +01:00
parent da1bc351d2
commit 41e1e1cbb0
4 changed files with 325 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/source/todo.rst
View File

@ -2,7 +2,9 @@
TODO
====
- txt.clear_screen() must also position text cursor at 0,0 on both machines
- add strcpy()
- reverse mkword() again because of consistency with the platform and AY register pairs...
- see if we can group some errors together for instance the (now single) errors about unidentified symbols
- Cx16 target: support full-screen 640x480 and 320x240 graphics? That requires our own custom graphics routines though to draw lines.
- hoist all variable declarations up to the subroutine scope *before* even the constant folding takes place (to avoid undefined symbol errors when referring to a variable from another nested scope in the subroutine)

2
examples/cx16/imgviewer/koalaviewer.p8
View File

@ -63,7 +63,7 @@ main {
wait()
}
} else {
txt.print("no files found\n")
txt.print("no *.koa files found\n")
}
}

319
examples/cx16/imgviewer/pcxviewer.p8 Normal file
View File

@ -0,0 +1,319 @@
%target cx16
%import graphics
%import textio
%import diskio
main {
sub start() {
graphics.enable_bitmap_mode()
show_pcx_image("nier2mono.pcx")
; if strlen(diskio.status(8)) ; trick to check if we're running on sdcard or host system shared folder
; show_pics_sdcard()
; else {
; txt.print("only works with *.png files on\nsdcard image!\n")
; }
repeat {
;
}
}
sub show_pics_sdcard() {
; load and show all *.pcx pictures on the disk.
; this only works in the emulator V38 with an sd-card image with the files on it.
str[20] filename_ptrs
ubyte num_files = diskio.list_files(8, ".pcx", true, &filename_ptrs, len(filename_ptrs))
if num_files {
while num_files {
num_files--
show_pcx_image(filename_ptrs[num_files])
wait()
}
} else {
txt.print("no *.pcx files found\n")
}
}
sub wait() {
uword jiffies = 0
c64.SETTIM(0,0,0)
while jiffies < 60 {
; read clock
%asm {{
stx P8ZP_SCRATCH_REG
jsr c64.RDTIM
sta jiffies
stx jiffies+1
ldx P8ZP_SCRATCH_REG
}}
}
}
sub show_pcx_image(uword filenameptr) {
ubyte load_ok = false
txt.print(filenameptr)
txt.chrout('\n')
if diskio.f_open(8, filenameptr) {
ubyte[128] header
uword size = diskio.f_read(header, 128)
if size==128 {
if header[0] == $0a and header[2] == 1 {
ubyte bits_per_pixel = header[3]
if bits_per_pixel==1 or bits_per_pixel==4 or bits_per_pixel==8 {
uword width = mkword(header[$09], header[$08]) - mkword(header[$05], header[$04]) + 1
uword height = mkword(header[$0b], header[$0a]) - mkword(header[$07], header[$06]) + 1
ubyte number_of_planes = header[$41]
uword palette_format = mkword(header[$45], header[$44])
uword num_colors = 2**bits_per_pixel
if number_of_planes == 1 {
if (width & 7) == 0 {
txt.print("dimensions: ")
txt.print_uw(width)
txt.chrout('x')
txt.print_uw(height)
txt.print(", ")
txt.print_uw(num_colors)
txt.print(" colors\n")
if palette_format==2
set_grayscale_palette()
else if num_colors == 16
set_palette(&header + $10, 16)
else if num_colors == 2
set_monochrome_palette()
when bits_per_pixel {
8 -> load_ok = bitmap.do8bpp(width, height)
4 -> load_ok = bitmap.do4bpp(width, height)
1 -> load_ok = bitmap.do1bpp(width, height)
}
txt.print_ub(load_ok)
if load_ok {
txt.clear_screen()
load_ok = c64.CHRIN()
if load_ok == 12 {
; there is 256 colors of palette data at the end
uword palette_mem = progend()
load_ok = false
size = diskio.f_read(palette_mem, 3*256)
if size==3*256 {
load_ok = true
set_palette(palette_mem, num_colors)
}
}
}
} else
txt.print("width not multiple of 8!\n")
} else
txt.print("has >256 colors!\n")
}
}
}
diskio.f_close()
}
if not load_ok {
txt.print("load error!\n")
txt.print(diskio.status(8))
}
}
sub set_monochrome_palette() {
ubyte c = 0
uword vera_palette_ptr = $fa00
cx16.vpoke(1, vera_palette_ptr, 0)
vera_palette_ptr++
cx16.vpoke(1, vera_palette_ptr, 0)
vera_palette_ptr++
repeat 255 {
cx16.vpoke(1, vera_palette_ptr, 255)
vera_palette_ptr++
cx16.vpoke(1, vera_palette_ptr, 255)
vera_palette_ptr++
}
}
sub set_grayscale_palette() {
ubyte c = 0
uword vera_palette_ptr = $fa00
repeat 16 {
repeat 16 {
cx16.vpoke(1, vera_palette_ptr, c)
vera_palette_ptr++
cx16.vpoke(1, vera_palette_ptr, c)
vera_palette_ptr++
}
c += $11
}
}
sub set_palette(uword palletteptr, uword num_colors) {
uword vera_palette_ptr = $fa00
ubyte red
ubyte greenblue
; 3 bytes per color entry, adjust color depth from 8 to 4 bits per channel.
repeat num_colors {
red = @(palletteptr) >> 4
palletteptr++
greenblue = @(palletteptr) & %11110000
palletteptr++
greenblue |= @(palletteptr) >> 4 ; add Blue
palletteptr++
cx16.vpoke(1, vera_palette_ptr, greenblue)
vera_palette_ptr++
cx16.vpoke(1, vera_palette_ptr, red)
vera_palette_ptr++
}
}
}
bitmap {
uword offsetx
uword offsety
uword py
uword px
ubyte y_ok = true
ubyte status
sub init_plot(uword width, uword height) {
offsetx = 0
offsety = 0
py = 0
px = 0
if width < graphics.WIDTH
offsetx = (graphics.WIDTH - width) / 2
if height < graphics.HEIGHT
offsety = (graphics.HEIGHT - height) / 2
status = (not c64.READST()) or c64.READST()==64
}
sub set_cursor(uword x, uword y) {
cx16.r0=offsetx+x
cx16.r1=offsety+y
cx16.FB_cursor_position()
}
sub do1bpp(uword width, uword height) -> ubyte {
init_plot(width, height)
set_cursor(0, 0)
while py < height and status {
ubyte b = c64.CHRIN()
if b>>6==3 {
ubyte rle = b & %00111111
b = c64.CHRIN()
if y_ok {
repeat rle {
cx16.FB_set_8_pixels(b, 255)
px += 8
}
}
} else {
if y_ok
cx16.FB_set_8_pixels(b, 255)
px+=8
}
if px >= width {
px = 0
py++
set_cursor(0, py)
y_ok = py < graphics.HEIGHT - 1
status = (not c64.READST()) or c64.READST()==64
}
}
return status
; asmsub reversebits(ubyte b @A) -> ubyte @A {
; %asm {{
; stz P8ZP_SCRATCH_B1
; asl a
; ror P8ZP_SCRATCH_B1
; asl a
; ror P8ZP_SCRATCH_B1
; asl a
; ror P8ZP_SCRATCH_B1
; asl a
; ror P8ZP_SCRATCH_B1
; asl a
; ror P8ZP_SCRATCH_B1
; asl a
; ror P8ZP_SCRATCH_B1
; asl a
; ror P8ZP_SCRATCH_B1
; asl a
; ror P8ZP_SCRATCH_B1
; lda P8ZP_SCRATCH_B1
; rts
; }}
; }
}
sub do4bpp(uword width, uword height) -> ubyte {
init_plot(width, height)
set_cursor(0, 0)
while py < height and status {
ubyte b = c64.CHRIN()
if b>>6==3 {
ubyte rle = b & %00111111
b = c64.CHRIN()
if y_ok
repeat rle {
cx16.FB_set_pixel(b>>4 & 15)
cx16.FB_set_pixel(b & 15)
}
px += rle*2
} else {
if y_ok {
cx16.FB_set_pixel(b>>4 & 15)
cx16.FB_set_pixel(b & 15)
}
px+=2
}
if px == width {
px = 0
py++
y_ok = py < graphics.HEIGHT-1
set_cursor(0, py)
status = (not c64.READST()) or c64.READST()==64
}
}
return status
}
sub do8bpp(uword width, uword height) -> ubyte {
init_plot(width, height)
set_cursor(0, 0)
while py < height and status {
ubyte b = c64.CHRIN()
if b>>6==3 {
ubyte rle = b & %00111111
b = c64.CHRIN()
if y_ok
repeat rle
cx16.FB_set_pixel(b)
px += rle
} else {
if y_ok
cx16.FB_set_pixel(b)
px++
}
if px == width {
px = 0
py++
y_ok = py < graphics.HEIGHT-1
set_cursor(0, py)
status = (not c64.READST()) or c64.READST()==64
}
}
return status
}
}

3
examples/test.p8
View File

@ -12,6 +12,9 @@ main {
uword bitmap_load_address = progend()
uword max_bitmap_size = $9eff - bitmap_load_address ; TODO why is this not optimized away?
; foo(2**x) ; TODO arg is zero if x=8, in the function. Param type uword. fix that . also check bit shift
; foo($0001<<x) ; TODO fix crash
uword xx = progend()
txt.print_uwhex(xx, 1)
txt.print_uwhex(progend(), 1)