From fd1966e3f3e7f0676008c4a696c6947cd05170a6 Mon Sep 17 00:00:00 2001
From: Kistaro Windrider <kistaro@gmail.com>
Date: Sun, 1 Oct 2023 12:32:56 -0700
Subject: [PATCH] load and use palettes (not implemented)

---
 pal_from_spr.p8 | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/pal_from_spr.p8 b/pal_from_spr.p8
index b5bbf18..beb3214 100644
--- a/pal_from_spr.p8
+++ b/pal_from_spr.p8
@@ -16,6 +16,34 @@ function _init()
  scy = 0
  dcx = 0
  dcy = 0
+ 
+ init_box_pals()
+ init_row_pals()
+end
+
+function init_box_pals()
+ box_pals = {}
+ for x=0,box_cols do
+  local pal_col = {}
+  for y=0,box_rows do
+   pal_col[y] = load_box_palette(1+x+16*(y\2)+(0.5*y%2))
+  end
+  box_pals[x] = pal_col
+ end
+end
+
+function init_row_pals()
+ row_pals = {}
+ for x=0,row_cols do
+  local pal_col = {}
+  for y=0,row_rows do
+   pal_col[y] = load_row_palette(
+     8+16*x,
+     16+2*y
+   )
+  end
+  row_pals[x] = pal_col
+ end
 end
 
 function _update()
@@ -41,6 +69,9 @@ end
 function _draw()
  cls()
  draw_hud()
+ local pals = (mode == "boxes") and box_pals or row_pals
+ pals[scx][scy]:do_both(0)
+ pals[dcx][dcy]:do_both(1)
  draw_bars()
 end