Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-12-23 09:32:43 +00:00
Code Issues Projects Releases Wiki Activity

optimized palette.set_color()

Browse Source
This commit is contained in:
Irmen de Jong 2021-02-24 00:01:27 +01:00
parent d14dac3872
commit f275ed96ea
2 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/res/prog8lib/cx16/palette.p8
View File

@ -9,8 +9,10 @@ palette {
ubyte c
sub set_color(ubyte index, uword color) {
cx16.vpoke(1, $fa00+index*2, lsb(color))
cx16.vpoke(1, $fa01+index*2, msb(color))
vera_palette_ptr = $fa00+index*2
cx16.vpoke(1, vera_palette_ptr, lsb(color))
vera_palette_ptr++
cx16.vpoke(1, vera_palette_ptr, msb(color))
}
sub set_rgb4(uword palette_bytes_ptr, uword num_colors) {

21
examples/cx16/rasterbars.p8
View File

@ -1,4 +1,5 @@
%import textio
%import palette
main {
@ -17,14 +18,14 @@ main {
irq {
uword[32] colors = [
$011, $112, $213, $214,
$315, $316, $417, $418,
$519, $51a, $62b, $62c,
$73d, $73e, $84f, $94f,
$93e, $83d, $82c, $72b,
$71a, $619, $618, $517,
$516, $415, $414, $313,
$312, $211, $100, $000
$011, $112, $213, $214,
$315, $316, $417, $418,
$519, $51a, $62b, $62c,
$73d, $73e, $84f, $94f,
$93e, $83d, $82c, $72b,
$71a, $619, $618, $517,
$516, $415, $414, $313,
$312, $211, $100, $000
]
uword next_irq_line = 0
@ -44,9 +45,7 @@ irq {
next_irq_line += barheight
}
; set new screen background color
cx16.vpoke(1, $fa00, lsb(c))
cx16.vpoke(1, $fa01, msb(c))
palette.set_color(0, c)
cx16.set_rasterline(next_irq_line)
}