update .png

bitplane-thingie.p8

@@ -31,12 +31,16 @@ function _init()
  -- reset color
  plane_mask = 0xff
  
- -- experimental additive palette 1
- pal({[0]=0,136,3,4,1,141,13,5,6,8,139,10,140,14,12,7}, 1)
+ -- see tab 5 for palettes
+ pal_idx = 1
+ pal(palettes[palette_cycle[pal_idx]],1)
 end
 
 function _update60()
  restore_under_cursor()
+ 
+ if (btnp(❎)) next_pal()
+ 
  if stat(34) & 0x1 == 0 then
   -- mouse up
   was_click = false
@@ -170,6 +174,7 @@ end
 -- draw_cursor
 
 function draw_cursor()
+ poke(0x5f5e,0xff)
  cx, cy = stat(32), stat(33)
  
  -- save blob under cursor to
@@ -187,6 +192,7 @@ end
 
 function restore_under_cursor()
  palt(0, false)
+ poke(0x5f5e,0xff)
  sspr(120, 24, 8, 8, cx, cy)
  palt(0, true)
 end
@@ -194,8 +200,33 @@ end
 -- future ambitions
 
 -- palette selection ui
- -- ...from a preset list
- -- ...freely
+ -- [x] ...from a preset list
+ -- [ ] ...freely
+-->8
+-- palettes
+
+palettes = {
+ classic = {[0] = 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15},
+ alt = {[0] = 128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143},
+ additive = {[0]=0,136,3,4,1,141,13,5,6,8,139,10,140,14,12,7},
+ subtractive = {[0]=7,12,14,1,10,11,136,5,6,140,130,129,132,131,2,0},
+}
+
+palette_cycle = {"additive", "subtractive", "classic", "alt"}
+
+function draw_color_blocks()
+ for i=0,15 do
+  local x0 = 8*i
+  rectfill(x0, 0, x0+7, 7, i)
+ end
+end
+
+function next_pal()
+ pal_idx += 1
+ if (pal_idx > #palette_cycle) pal_idx = 1
+ pal(palettes[palette_cycle[pal_idx]], 1)
+ draw_color_blocks()
+end
 __gfx__
 00000000500000005000000050000000500000005000000050000000500000005000000000000000000000000000000000000000000000000000000000000000
 00000000550000005500000055000000550000005500000055000000550000005500000000000000000000000000000000000000000000000000000000000000