fully working UI

pal_from_spr.p8

@@ -9,24 +9,145 @@ function _init()
  pal({[0]=0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15}, 2)
  poke(0x5f5f, 0x10)
  poke2(0x5f70, 0xffff)
+ 
+ mode = "boxes"
+ active = "sprite"
+ scx = 0
+ scy = 0
+ dcx = 0
+ dcy = 0
+ 
+ init_box_pals()
+ init_rows_pals()
+end
+
+function boxspr(x, y)
+ return 1+x+16*(y\2)+(y%2*0.5)
+end
+
+function init_box_pals()
+ box_pals = {}
+ for x=0,box_cols-1 do
+  local pal_col = {}
+  for y=0,box_rows-1 do
+   pal_col[y] = load_box_palette(boxspr(x,y))
+  end
+  box_pals[x] = pal_col
+ end
+end
+
+function init_rows_pals()
+ rows_pals = {}
+ for x=0,rows_cols-1 do
+  local pal_col = {}
+  for y=0,rows_rows-1 do
+   pal_col[y] = load_row_palette(
+     8+16*x,
+     16+2*y
+   )
+  end
+  rows_pals[x] = pal_col
+ end
 end
 
 function _update()
+ if (btnp(🅾️)) mode = (mode == "boxes") and "rows" or "boxes"
+ if (btnp(❎)) active = (active == "sprite") and "draw" or "sprite"
+ if active == "sprite" then
+  if (btnp(⬆️)) scy -= 1
+  if (btnp(⬇️)) scy += 1
+  if (btnp(⬅️)) scx -= 1
+  if (btnp(➡️)) scx += 1
+ else
+  if (btnp(⬆️)) dcy -= 1
+  if (btnp(⬇️)) dcy += 1
+  if (btnp(⬅️)) dcx -= 1
+  if (btnp(➡️)) dcx += 1
+ end
+ scx %= (mode == "boxes") and box_cols or rows_cols
+ dcx %= (mode == "boxes") and box_cols or rows_cols
+ scy %= (mode == "boxes") and box_rows or rows_rows
+ dcy %= (mode == "boxes") and box_rows or rows_rows
 end
 
 function _draw()
  cls()
  draw_hud()
+ local pals = (mode == "boxes") and box_pals or rows_pals
+ pals[scx][scy]:do_both(0)
+ pals[dcx][dcy]:do_both(1)
  draw_bars()
 end
 
 function draw_hud()
+ pal(0)
+ pal(1)
+ if (mode == "boxes") return draw_box_hud()
+ draw_rows_hud() 
+end
+
+function print_shadow(s,x,y,c)
+ print(s,x+1,y+1,1)
+ print(s,x,y,c or 7)
+end
+
+function lpad(str,w)
+ str=tostr(str)
+ while (#str < w) str = " "..str
+ return str
+end
+
+box_rows = 4
+box_cols = 4
+
+function draw_box_hud()
+ spr(1,3,0,4,2)
+ local toff = time() * 4 \ 1 % 2
+ spr(107 + (active == "sprite" and toff or 0),
+      3+8*scx,4*scy,1,0.5)
+ spr(109 + (active == "draw" and toff or 0),
+      3+8*dcx,4*dcy,1,0.5)
+ 
+ print_shadow("spr",42,1,12)
+ print_shadow(lpad(boxspr(scx,scy),3),42,9,6)
+ sspr(8+8*scx,4*scy,8,4,55,4,16,8)
+ 
+ print_shadow("draw",73,1,14)
+ print_shadow(lpad(boxspr(dcx,dcy),3),77,9,6)
+ sspr(8+8*dcx,4*dcy,8,4,91,4,16,8)
+end
+
+rows_rows = 8
+rows_cols = 2   
+
+function draw_rows_hud()
+ spr(33,0,0,2,2)
+ spr(35,22,0,2,2)
+ local toff = time() * 4 \ 1 % 2
+ spr(103 + (active == "sprite" and toff or 0),
+     17 + 22*scx, 2*scy, 0.25, 0.25)
+ spr(105 + (active == "draw" and toff or 0),
+     17 + 22*dcx, 2*dcy, 0.25, 0.25)
+
+ print_shadow("spr",48,0,12)
+ sspr(8+16*scx,16+2*scy,16,2,61,2,32,4)
+ 
+ print_shadow("draw",44,8,14)
+ sspr(8+16*dcx,16+2*dcy,16,2,61,10,32,4)
 end
 
 function draw_bars()
  for i=0,15 do
-  local i7 = i * 7
-  rectfill(0,16+i7,128,i7+22,i)
+  local i6 = i * 6
+  rectfill(0,16+i6,128,i6+21,i)
+ end
+ for i=0,15 do
+  for y=16,120,8 do
+   spr(i+112,9+i*7,y,0.625,1)
+  end
+ end
+ for y=16,120,8 do
+  spr(111,120,y)
  end
 end
 -->8
@@ -62,6 +183,7 @@ function palette.new(x)
  if (not x.cols) x.cols = {}
  if (not x.tr) x.tr = {}
  setmetatable(x, palette_mt)
+ return x
 end
 
 function palette:do_pal(p)
@@ -84,7 +206,7 @@ end
 function palette:compile_palt()
  self.cpl_tr = nil
  local bits, tr = 0, self.tr
- for i = 15,0,-1 do
+ for i = 0,15 do
   if (tr[i] == nil) return
   bits <<= 1
   if (tr[i]) bits += 1
@@ -92,10 +214,101 @@ function palette:compile_palt()
  self.cpl_tr = bits
  return bits
 end
+-->8
+-- load palettes
+
+function load_box_palette(sidx)
+ local sint,sfrac=sidx\1,sidx%1
+ local x0,y0=sint%16*8,sint\16*8+sfrac*8\1
+ local cols,tr={},{}
+ for i=0,15 do
+  local x,y=x0+i%4,y0+i\4
+  local c,f= sget(x,y),sget(x+4,y)
+  if (f&0x1 ~= 0) c += 128
+  if (f&0x2 ~= 0) tr[i]=true
+  if (f&0x4 ~= 0) tr[i]=false
+  if (f&0x8 == 0) cols[i] = c
+ end
+ local ret=palette.new{cols=cols,tr=tr}
+ ret:compile_palt()
+ return ret
+end
+
+function load_row_palette(sx, sy)
+ local cols,tr={},{}
+ for i=0,15 do
+  local c,f = sget(sx+i,sy),sget(sx+i,sy+1)
+  if (f&0x1 ~= 0) c += 128
+  if (f&0x2 ~= 0) tr[i]=true
+  if (f&0x4 ~= 0) tr[i]=false
+  if (f&0x8 == 0) cols[i] = c
+ end
+ local ret=palette.new{cols=cols,tr=tr}
+ ret:compile_palt()
+ return ret
+end
 __gfx__
+00000000012300000123111101230000012311110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000456700004567111145670440456711110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0070070089ab000089ab111189ab024089ab11980000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00077000cdef0000cdef1111cdef0000cdef11990000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00077000012324440123355501232444012335550000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00700700456744444567555545674004456755550000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0000000089ab444489ab555589ab420489ab55ca0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000cdef4444cdef5555cdef4444cdef55ba0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000012301230123012301230123012301230000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000456745674567456745674567456745670000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0000000089ab89ab89ab89ab89ab89ab89ab89ab0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000cdefcdefcdefcdefcdefcdefcdefcdef0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000012301230123012301230123012301230000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000456745674567456745674567456745670000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0000000089ab89ab89ab89ab89ab89ab89ab89ab0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000cdefcdefcdefcdefcdefcdefcdefcdef0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+000000000123456789abcdef0123456789abcdef0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+000000000124456789abcdef0124456789abcdef0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000244444444444444424444444444444440000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+000000000123456789abcdef0123456789abcdef0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+000000000123456789abcdef0123456789abcdef0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+000000000123456789abcdef0123456789abcdef0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000555555555555555555555555555555550000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+000000000123456789abcdef0123456789abcdef0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000355555555555555535555555555555550000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+000000000123456789abcdef0123456789abcdef0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000355555554444444435555555444444440000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+000000000123456789abcdef0123456789abcdef0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000333333334444555533333333444455550000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+000000000123456789abcdef0123456789abcdef0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000444422225555333344442222555533330000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00700700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00077000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00077000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00700700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+000000000000000000000000000000000000000000000000000000000c00000007000000e0000000700000000c0c0c0c07070707e0e0e0e07070707001230123
+00000000000000000000000000000000000000000000000000000000c0000000700000000e00000007000000c0000000700000000000000e0000000745674567
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000007e00000007000000089ab89ab
+0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c0c0c0c0707070700e0e0e0e07070707cdefcdef
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001230123
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000045674567
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000089ab89ab
+000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000cdefcdef
+5500055500111000002220000033300000444000005550000066600000777000008880000099900000aaa00000bbb00000ccc00000ddd00000eee00000fff000
+500055550111000002220000033300000444000005550000066600000777000008880000099900000aaa00000bbb00000ccc00000ddd00000eee00000fff0000
+00055555111000002220000033300000444000005550000066600000777000008880000099900000aaa00000bbb00000ccc00000ddd00000eee00000fff00000
+500055550111000002220000033300000444000005550000066600000777000008880000099900000aaa00000bbb00000ccc00000ddd00000eee00000fff0000
+5500055500111000002220000033300000444000005550000066600000777000008880000099900000aaa00000bbb00000ccc00000ddd00000eee00000fff000
+500055550111000002220000033300000444000005550000066600000777000008880000099900000aaa00000bbb00000ccc00000ddd00000eee00000fff0000
+00055555111000002220000033300000444000005550000066600000777000008880000099900000aaa00000bbb00000ccc00000ddd00000eee00000fff00000
+500055550111000002220000033300000444000005550000066600000777000008880000099900000aaa00000bbb00000ccc00000ddd00000eee00000fff0000