d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(m291) Reduce unnecessary drawing

This commit is contained in:
Devine Lu Linvega 2024-08-27 10:58:13 -07:00
parent 5f42027f30
commit 2dce8c937a
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gui/m291/src/m291.tal
View File

@ -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