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