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

(m291) Improved feedback for play button

This commit is contained in:
Devine Lu Linvega 2024-08-26 12:50:28 -07:00
parent 9f48e67209
commit be16c24966
3 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gui/m291/src/assets.tal
View File

@ -35,6 +35,10 @@
0000 001e 1e1e 1e1e 0000 0078 7878 7878 0000 001e 1e1e 1e1e 0000 0078 7878 7878
1e1e 1e1e 1e00 0000 7878 7878 7800 0000 ] 1e1e 1e1e 1e00 0000 7878 7878 7800 0000 ]
@play-wait-icn [
0000 000c 0b08 0808 0000 0000 00c0 300c
0808 080b 0c00 0000 0c30 c000 0000 0000 ]
@next-icn [ @next-icn [
0000 0018 1c1e 1f1f 0000 0018 1818 1898 0000 0018 1c1e 1f1f 0000 0018 1818 1898
1f1f 1e1c 1800 0000 9818 1818 1800 0000 ] 1f1f 1e1c 1800 0000 9818 1818 1800 0000 ]

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

@ -110,7 +110,8 @@
BRK BRK
&seeker ( -> ) &seeker ( -> )
BRK .Mouse/x DEI2 #0008 SUB2 DUP2 #00e7 GTH2 ?{ DUP2 <seek> }
POP2 BRK
@on-control ( -> ) @on-control ( -> )
( | mod ) ( | mod )
@ -182,6 +183,11 @@
@<skip-next> ( -- ) @<skip-next> ( -- )
JMP2r JMP2r
@<seek> ( x* -- )
<phex>
#0a19 DEO
JMP2r
( (
@|events ) @|events )
@ -327,7 +333,8 @@
JMP2r JMP2r
@<send-pause> ( -- ) @<send-pause> ( -- )
;dict/pause-cmd !<pstr> [ LIT2 02 -paused ] LDZ ORA .paused STZ
;dict/pause-cmd <pstr> !<draw-play>
@<enter> ( folder* -- ) @<enter> ( folder* -- )
.selection/mod LDZ ?&special .selection/mod LDZ ?&special
@ -468,8 +475,7 @@
[ LIT2 16 -Screen/auto ] DEO [ LIT2 16 -Screen/auto ] DEO
#0078 .Screen/x DEO2 #0078 .Screen/x DEO2
#005c .Screen/y DEO2 #005c .Screen/y DEO2
;play-icn ;pause-icn .paused LDZ ?{ SWP2 } ;play-icn #00 .paused LDZ #50 SFT2 ADD2 .Screen/addr DEO2
POP2 .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEOk DEO [ LIT2 01 -Screen/sprite ] DEOk DEO
JMP2r JMP2r

BIN
gui/m291/ss10x10.chr
View File

Binary file not shown.