From a64931885d6876b82e1bfa3bc57a3c51fefcb8b8 Mon Sep 17 00:00:00 2001
From: Kistaro Windrider <kistaro@gmail.com>
Date: Sat, 23 Sep 2023 00:06:48 -0700
Subject: [PATCH] add palette cycling. fix cursor stuff.

---
 bitplane-thingie.p8 | 28 +++++++++++++++++++++++++---
 1 file changed, 25 insertions(+), 3 deletions(-)

diff --git a/bitplane-thingie.p8 b/bitplane-thingie.p8
index b72a662..219a96e 100644
--- a/bitplane-thingie.p8
+++ b/bitplane-thingie.p8
@@ -32,11 +32,15 @@ function _init()
  plane_mask = 0xff
  
  -- see tab 5 for palettes
- pal(palettes.additive,1)
+ 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,8 @@ end
 -- future ambitions
 
 -- palette selection ui
- -- ...from a preset list
- -- ...freely
+ -- [x] ...from a preset list
+ -- [ ] ...freely
 -->8
 -- palettes
 
@@ -205,6 +211,22 @@ palettes = {
  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