From 79176988715435854844b38a1b2a38b85806175b Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Mon, 26 Aug 2024 12:24:03 -0700
Subject: [PATCH] Added prev/next buttons

---
 gui/m291/src/assets.tal |   8 ++++++++
 gui/m291/src/m291.tal   |  26 ++++++++++++++++++++++----
 gui/m291/ss10x10.chr    | Bin 4096 -> 4096 bytes
 3 files changed, 30 insertions(+), 4 deletions(-)

diff --git a/gui/m291/src/assets.tal b/gui/m291/src/assets.tal
index c385623..31ac084 100644
--- a/gui/m291/src/assets.tal
+++ b/gui/m291/src/assets.tal
@@ -35,6 +35,14 @@
 	0000 001e 1e1e 1e1e 0000 0078 7878 7878
 	1e1e 1e1e 1e00 0000 7878 7878 7800 0000 ]
 
+@next-icn [
+	0000 0018 1c1e 1f1f 0000 0018 1818 1898
+	1f1f 1e1c 1800 0000 9818 1818 1800 0000 ]
+
+@prev-icn [
+	0000 0018 1818 1819 0000 0018 3878 f8f8
+	1918 1818 1800 0000 f8f8 7838 1800 0000 ]
+
 @fill-icn [
 	ffff ffff ffff ffff ffff ffff ffff ffff
 	ffff ffff ffff ffff ffff ffff ffff ffff ]
diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 8a5b341..52bb1ac 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -89,13 +89,13 @@
 	( esc ) DUP #1b NEQ ?{ <escape> }
 	( tab ) DUP #09 NEQ ?{ <toggle-misc> }
 	( enter ) DUP #0d NEQ ?{ .selection LDZ <pick> }
+	( space ) DUP #20 NEQ ?{ <send-pause> }
 	POP
 	( | button )
 	.Controller/button DEI
 	( up ) DUP #10 NEQ ?{ #ff <move> }
 	( down ) DUP #20 NEQ ?{ #01 <move> }
 	( A ) DUP #01 NEQ ?{ .selection LDZ <pick> }
-	POP .Controller/key DEI DUP #20 NEQ ?{ <send-pause> }
 	POP BRK
 
 (
@@ -394,7 +394,9 @@
 	<draw-title>
 	<draw-artist>
 	<draw-album>
+	<draw-prev>
 	<draw-play>
+	<draw-next>
 	<draw-progress> !<draw-timestamp>
 
 @<draw-title> ( -- )
@@ -414,19 +416,35 @@
 
 @<draw-play> ( -- )
 	#0070 .Screen/x DEO2
-	#0058 .Screen/y DEO2
+	#0054 .Screen/y DEO2
 	[ LIT2 36 -Screen/auto ] DEO
 	;button-icn .Screen/addr DEO2
 	[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
 	( | icon )
 	[ LIT2 16 -Screen/auto ] DEO
 	#0078 .Screen/x DEO2
-	#0060 .Screen/y DEO2
-	;pause-icn ;play-icn .paused LDZ ?{ SWP2 }
+	#005c .Screen/y DEO2
+	;play-icn ;pause-icn .paused LDZ ?{ SWP2 }
 	POP2 .Screen/addr DEO2
 	[ LIT2 01 -Screen/sprite ] DEOk DEO
 	JMP2r
 
+@<draw-prev> ( -- )
+	[ LIT2 16 -Screen/auto ] DEO
+	#0058 .Screen/x DEO2
+	#005c .Screen/y DEO2
+	;prev-icn .Screen/addr DEO2
+	[ LIT2 01 -Screen/sprite ] DEOk DEO
+	JMP2r
+
+@<draw-next> ( -- )
+	[ LIT2 16 -Screen/auto ] DEO
+	#0098 .Screen/x DEO2
+	#005c .Screen/y DEO2
+	;next-icn .Screen/addr DEO2
+	[ LIT2 01 -Screen/sprite ] DEOk DEO
+	JMP2r
+
 @<draw-progress> ( -- )
 	.secprog LDZ2
 	( | catch redraws )
diff --git a/gui/m291/ss10x10.chr b/gui/m291/ss10x10.chr
index 88345f7d4123026ecf0a216fbb49e747ac55739c..2dd7279895c56a54b96cadf80e3415fc6b8d4e0a 100644
GIT binary patch
delta 127
zcmZorXi(VD%wsAcBPTD<fB+IeFayD50P!V}`4$yFeoUO`F^RXqR9;?AMgmE021qdy
TUlNV~<41*s#Kei-i};uT`ic<*

delta 21
ccmZorXi(VD%rn`Cv33$~!(>0khDCf#08+&V5C8xG