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

(m291) Starting progress bar

This commit is contained in:
Devine Lu Linvega 2024-08-25 20:30:34 -07:00
parent e28f00bacb
commit 27f2dbd2bf
2 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -334,12 +334,27 @@
[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO [ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
( | .. ) ( | .. )
#0008 .Screen/x DEO2 #0008 .Screen/x DEO2
#0080 .Screen/y DEO2 #0070 .Screen/y DEO2
;placeholder/time-a #01 <draw-uf2> ;placeholder/time-a #01 <draw-uf2>
( | .. ) ( | .. )
.Screen/width DEI2 #0008 SUB2 .Screen/x DEO2 .Screen/width DEI2 #0008 SUB2 .Screen/x DEO2
#0080 .Screen/y DEO2 #0070 .Screen/y DEO2
;placeholder/time-b #01 <draw-uf2-right> ;placeholder/time-b #01 <draw-uf2-right>
( >> )
@<draw-progress> ( -- )
[ LIT2 01 -Screen/auto ] DEO
#0004 .Screen/x DEO2
#0088 .Screen/y DEO2
;progress-icn/left .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEO
#e3
&>t ( -- )
;progress-icn/middle .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEO
INC DUP ?&>t
POP ;progress-icn/right .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEO
JMP2r JMP2r
@<draw-spacer> ( addr* -- ) @<draw-spacer> ( addr* -- )
@ -533,6 +548,12 @@
1010 2010 1008 0700 0f0f 1f0f 0f07 0000 1010 2010 1008 0700 0f0f 1f0f 0f07 0000
2010 1010 2020 c000 c0e0 e0e0 c0c0 0000 ] 2010 1010 2020 c000 c0e0 e0e0 c0c0 0000 ]
@progress-icn
&left [ 0102 0404 0404 0201 ]
&middle [ ff00 0000 0000 00ff ]
&right [ 8040 2020 2020 4080 ]
&fill [ 0000 3078 7830 0000 ]
@button-icn [ @button-icn [
0000 0000 0102 0408 0000 1f60 8000 0000 0000 0000 0102 0408 0000 1f60 8000 0000
0000 f806 0100 0000 0000 0000 8040 2010 0000 f806 0100 0000 0000 0000 8040 2010

BIN
gui/m291/ss10x10.chr
View File

Binary file not shown.