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

(m291) Put placeolders

This commit is contained in:
Devine Lu Linvega 2024-08-25 20:17:17 -07:00
parent 7180744cbf
commit e28f00bacb
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -332,6 +332,14 @@
[ LIT2 36 -Screen/auto ] DEO
;button-icn .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
( | .. )
#0008 .Screen/x DEO2
#0080 .Screen/y DEO2
;placeholder/time-a #01 <draw-uf2>
( | .. )
.Screen/width DEI2 #0008 SUB2 .Screen/x DEO2
#0080 .Screen/y DEO2
;placeholder/time-b #01 <draw-uf2-right>
JMP2r
@<draw-spacer> ( addr* -- )
@ -389,6 +397,11 @@
ADD2r INC2 LDAk ?&>while
POP2 STH2r JMP2r
@<draw-uf2-right> ( text* color -- )
STH
.Screen/x DEI2 OVR2 get-uf2-width SUB2 .Screen/x DEO2
STHr !<draw-uf2>
@<draw-uf2-center> ( text* color -- )
STH
.Screen/x DEI2 OVR2 get-uf2-width #01 SFT2 SUB2 .Screen/x DEO2
@ -506,8 +519,8 @@
&artist "Blood 20 "Girl $1
&track "Always 20 "Wrong $1
&album "Unknown 20 "Album $1
&time-a "0:23 $1
&time-b "-3:46 $1
&time-a "0:31 $1
&time-b "2:25 $1
@touch-chr [
0000 0000 0814 1417 0000 0000 0008 0808