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

Increased cell sizes

This commit is contained in:
Devine Lu Linvega 2024-08-26 13:16:49 -07:00
parent be16c24966
commit 9476c5de87
2 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -404,7 +404,7 @@
0000 0000 0000 0000 0000 3333 0000 0000 0000 0000 0000 0000 0000 3333 0000 0000
0000 0000 0000 0000 0000 3030 0000 0000 ] 0000 0000 0000 0000 0000 3030 0000 0000 ]
@mem &filepath $80 &dir $800 &folders $200 &roms $200 &misc $200 @mem &filepath $80 &dir $800 &folders $800 &tracks $800 &misc $200
@message &buf $200 @message &buf $200

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

@ -19,7 +19,7 @@
@misc $1 @misc $1
@selection $1 &mod $1 @selection $1 &mod $1
@path $2 &null $80 @path $2 &null $80
@lines &folders $1 &roms $1 &misc $1 @lines &folders $1 &tracks $1 &misc $1
@playing $1 @playing $1
@paused $1 @paused $1
@secfrom $2 @secfrom $2
@ -253,7 +253,7 @@
;mem/dir .File/read DEO2 ;mem/dir .File/read DEO2
( | clean ) ( | clean )
[ LIT2 00 -lines/folders ] STZ [ LIT2 00 -lines/folders ] STZ
[ LIT2 00 -lines/roms ] STZ [ LIT2 00 -lines/tracks ] STZ
[ LIT2 00 -lines/misc ] STZ [ LIT2 00 -lines/misc ] STZ
( | parse ) ( | parse )
;mem/dir ;mem/dir
@ -276,18 +276,18 @@
#0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden #0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden
is-folder ?&folder is-folder ?&folder
is-mp3 ?&mp3 is-mp3 ?&mp3
;mem/misc [ LIT2 00 -lines/misc ] LDZ #40 SFT2 ADD2 <lcpy> ;mem/misc [ LIT2 00 -lines/misc ] LDZ ( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
.lines/misc LDZ INC .lines/misc STZ .lines/misc LDZ INC .lines/misc STZ
JMP2r JMP2r
&folder ( line* -- ) &folder ( line* -- )
;mem/folders [ LIT2 00 -lines/folders ] LDZ #40 SFT2 ADD2 <lcpy> ;mem/folders [ LIT2 00 -lines/folders ] LDZ ( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
.lines/folders LDZ INC .lines/folders STZ .lines/folders LDZ INC .lines/folders STZ
JMP2r JMP2r
&mp3 ( line* -- ) &mp3 ( line* -- )
;mem/roms [ LIT2 00 -lines/roms ] LDZ #40 SFT2 ADD2 <lcpy> ;mem/tracks [ LIT2 00 -lines/tracks ] LDZ ( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
.lines/roms LDZ INC .lines/roms STZ .lines/tracks LDZ INC .lines/tracks STZ
JMP2r JMP2r
&hidden ( line* -- ) &hidden ( line* -- )
@ -307,18 +307,18 @@
@<pick> ( alt id -- ) @<pick> ( alt id -- )
DUP .lines/folders LDZ LTH ?&folder DUP .lines/folders LDZ LTH ?&folder
.lines/folders LDZ SUB DUP .lines/roms LDZ LTH ?&roms .lines/folders LDZ SUB DUP .lines/tracks LDZ LTH ?&tracks
.lines/roms LDZ SUB DUP .lines/misc LDZ LTH ?&misc .lines/tracks LDZ SUB DUP .lines/misc LDZ LTH ?&misc
POP JMP2r POP JMP2r
&roms ( id -- ) &tracks ( id -- )
#00 SWP #40 SFT2 ;mem/roms ADD2 !<send-load> #00 SWP ( CELLSIZE ) #60 SFT2 ;mem/tracks ADD2 !<send-load>
&misc ( id -- ) &misc ( id -- )
#00 SWP #40 SFT2 ;mem/misc ADD2 !<send-load> #00 SWP ( CELLSIZE ) #60 SFT2 ;mem/misc ADD2 !<send-load>
&folder ( id -- ) &folder ( id -- )
#00 SWP #40 SFT2 ;mem/folders ADD2 !<enter> #00 SWP ( CELLSIZE ) #60 SFT2 ;mem/folders ADD2 !<enter>
@<send-load> ( file* -- ) @<send-load> ( file* -- )
( | start ID3 ) ( | start ID3 )
@ -357,13 +357,13 @@
[ LIT2 00 -misc ] LDZ EQU .misc STZ !fit-window [ LIT2 00 -misc ] LDZ EQU .misc STZ !fit-window
@count-lines ( -- lines ) @count-lines ( -- lines )
.lines/folders LDZ .lines/roms LDZ ADD .lines/folders LDZ .lines/tracks LDZ ADD
( ) [ LIT2 00 -misc ] LDZ EQU ?{ .lines/misc LDZ ADD } ( ) [ LIT2 00 -misc ] LDZ EQU ?{ .lines/misc LDZ ADD }
JMP2r JMP2r
@has-spacer ( -- f ) @has-spacer ( -- f )
[ LIT2 00 -lines/folders ] LDZ NEQ [ LIT2 00 -lines/folders ] LDZ NEQ
( ) [ LIT2 00 -lines/roms ] LDZ NEQ ( ) [ LIT2 00 -lines/tracks ] LDZ NEQ
( ) [ LIT2 00 -misc ] LDZ EQU ?{ ( ) [ LIT2 00 -misc ] LDZ EQU ?{
[ LIT2 00 -lines/misc ] LDZ NEQ ORA } [ LIT2 00 -lines/misc ] LDZ NEQ ORA }
AND JMP2r AND JMP2r
@ -434,7 +434,7 @@
( | folders ) ( | folders )
;mem/folders .lines/folders LDZ #01 .selection LDZ <draw-list> ;mem/folders .lines/folders LDZ #01 .selection LDZ <draw-list>
[ LIT2 00 -lines/folders ] LDZ EQU ?{ ;dash-icn <draw-spacer> } [ LIT2 00 -lines/folders ] LDZ EQU ?{ ;dash-icn <draw-spacer> }
;mem/roms .lines/roms LDZ #00 .selection LDZ .lines/folders LDZ SUB <draw-list> ;mem/tracks .lines/tracks LDZ #00 .selection LDZ .lines/folders LDZ SUB <draw-list>
[ LIT2 00 -misc ] LDZ EQU ?{ [ LIT2 00 -misc ] LDZ EQU ?{
;mem/misc .lines/misc LDZ #00 .selection LDZ !<draw-list> } ;mem/misc .lines/misc LDZ #00 .selection LDZ !<draw-list> }
JMP2r JMP2r
@ -605,7 +605,7 @@
.Screen/y DEO2 } .Screen/y DEO2 }
( | normal ) ( | normal )
#0008 .Screen/x DEO2 #0008 .Screen/x DEO2
#00 OVR #40 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2> #00 OVR ( CELLSIZE ) #60 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
.Screen/y DEI2k #0010 ADD2 ROT DEO2 .Screen/y DEI2k #0010 ADD2 ROT DEO2
INC GTHk ?&>l INC GTHk ?&>l
POP2 JMP2r POP2 JMP2r