From 2dce8c937a22de6537703c84b4d28b76e5d4f546 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Tue, 27 Aug 2024 10:58:13 -0700
Subject: [PATCH] (m291) Reduce unnecessary drawing

---
 gui/m291/src/m291.tal | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index a31380b..77e4b10 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -119,7 +119,7 @@
 	.selection/scroll LDZ ADD
 	( above ) DUP #ff EQU ?{
 		( below ) DUP #18 ADD .lines/tracks LDZ GTH ?{ DUP .selection/scroll STZ
-			<redraw> } }
+			<redraw-dir> } }
 	POP BRK
 
 @on-control ( -> )
@@ -214,8 +214,7 @@
 @<select> ( id -- )
 	[ LIT &last ff ] NEQk ?{ POP2 JMP2r }
 	POP DUP ,&last STR
-	.selection STZ
-	<redraw-player> !<redraw>
+	.selection STZ !<redraw-dir>
 
 @<pick> ( alt id -- )
 	DUP .lines/folders LDZ LTH ?&folder
@@ -339,7 +338,8 @@
 	( padding ) #0020 ADD2
 	( playing ) [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 }
 	.Screen/height DEO2
-	<redraw-player> !<redraw>
+	<draw-path>
+	<redraw-player> !<redraw-dir>
 
 @<parse-line> ( line* -- )
 	#0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden
@@ -445,13 +445,11 @@
 (
 @|drawing )
 
-@<redraw> ( -- )
-	( | clear )
+@<redraw-dir> ( -- )
 	#0000 .Screen/x DEO2
 	#0018 [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 }
 	.Screen/y DEO2
 	[ LIT2 80 -Screen/pixel ] DEO
-	<draw-path>
 	( | content )
 	#001c [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 }
 	.Screen/y DEO2