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

(m291) Added active marker

This commit is contained in:
Devine Lu Linvega 2024-08-26 20:21:02 -07:00
parent bbe6a66a82
commit 4e38e59b80
3 changed files with 41 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,6 +51,8 @@
ffff ffff ffff ffff ffff ffff ffff ffff ffff ffff ffff ffff ffff ffff ffff ffff
ffff ffff ffff ffff ffff ffff ffff ffff ] ffff ffff ffff ffff ffff ffff ffff ffff ]
@poke-icn [ 0000 0000 80c0 e0f0 e0c0 8000 0000 0000 ]
@dash-icn [ 0000 00aa 0000 0000 ] @dash-icn [ 0000 00aa 0000 0000 ]
@line-icn [ 0000 00ff 0000 0000 ] @line-icn [ 0000 00ff 0000 0000 ]

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

@ -333,18 +333,14 @@
@<pick> ( alt id -- ) @<pick> ( alt id -- )
DUP .lines/folders LDZ LTH ?&folder DUP .lines/folders LDZ LTH ?&folder
.lines/folders LDZ SUB DUP .lines/tracks LDZ LTH ?&tracks .lines/folders LDZ SUB DUP .lines/tracks LDZ LTH ?&tracks
.lines/tracks LDZ SUB DUP .lines/misc LDZ LTH ?&misc
POP JMP2r POP JMP2r
&tracks ( id -- ) &tracks ( id -- )
DUP .selection/track STZ DUP .selection/track STZ
[ LIT2 ff -selection ] STZ
#00 SWP #00 SWP
( CELLSIZE ) #70 SFT2 ;mem/tracks ADD2 !<send-load> ( CELLSIZE ) #70 SFT2 ;mem/tracks ADD2 !<send-load>
&misc ( id -- )
#00 SWP
( CELLSIZE ) #70 SFT2 ;mem/misc ADD2 !<send-load>
&folder ( id -- ) &folder ( id -- )
#00 SWP #00 SWP
( CELLSIZE ) #70 SFT2 ;mem/folders ADD2 !<enter> ( CELLSIZE ) #70 SFT2 ;mem/folders ADD2 !<enter>
@ -367,16 +363,11 @@
JMP2r JMP2r
@count-lines ( -- lines ) @count-lines ( -- lines )
.lines/folders LDZ .lines/tracks LDZ ADD .lines/folders LDZ .lines/tracks LDZ ADD JMP2r
( ) [ LIT2 00 -misc ] LDZ EQU ?{ .lines/misc LDZ ADD }
JMP2r
@has-spacer ( -- f ) @has-spacer ( -- f )
[ LIT2 00 -lines/folders ] LDZ NEQ [ LIT2 00 -lines/folders ] LDZ NEQ
( ) [ LIT2 00 -lines/tracks ] LDZ NEQ ( ) [ LIT2 00 -lines/tracks ] LDZ NEQ AND JMP2r
( ) [ LIT2 00 -misc ] LDZ EQU ?{
[ LIT2 00 -lines/misc ] LDZ NEQ ORA }
AND JMP2r
@is-folder ( line* -- line* f ) @is-folder ( line* -- line* f )
DUP2 lcap/ #0001 SUB2 LDA [ LIT "/ ] EQU JMP2r DUP2 lcap/ #0001 SUB2 LDA [ LIT "/ ] EQU JMP2r
@ -445,11 +436,9 @@
#0008 .Screen/x DEO2 #0008 .Screen/x DEO2
;dict/empty #0f !<draw-uf2> } ;dict/empty #0f !<draw-uf2> }
( | folders ) ( | folders )
;mem/folders .lines/folders LDZ #01 .selection LDZ <draw-list> ;mem/folders .lines/folders LDZ .selection LDZ <draw-folders>
[ LIT2 00 -lines/folders ] LDZ EQU ?{ ;dash-icn <draw-spacer> } [ LIT2 00 -lines/folders ] LDZ EQU ?{ ;dash-icn <draw-spacer> }
;mem/tracks .lines/tracks LDZ #00 .selection LDZ .lines/folders LDZ SUB <draw-list> ;mem/tracks .lines/tracks LDZ .selection LDZ .lines/folders LDZ SUB <draw-files>
[ LIT2 00 -misc ] LDZ EQU ?{
;mem/misc .lines/misc LDZ #00 .selection LDZ !<draw-list> }
JMP2r JMP2r
@<draw-path> ( -- ) @<draw-path> ( -- )
@ -620,10 +609,10 @@
DEO DEO
JMP2r JMP2r
@<draw-background> ( -- ) @<draw-background> ( tile* -- )
#0000 .Screen/x DEO2 #0000 .Screen/x DEO2
.Screen/y DEI2 .Screen/y DEI2
( ) ;fill-icn .Screen/addr DEO2 ( > ) SWP2 .Screen/addr DEO2
[ LIT2 f2 -Screen/auto ] DEO [ LIT2 f2 -Screen/auto ] DEO
[ LIT2 01 -Screen/sprite ] DEOk DEOk [ LIT2 01 -Screen/sprite ] DEOk DEOk
( | .. ) ( | .. )
@ -633,9 +622,8 @@
.Screen/y DEO2 .Screen/y DEO2
JMP2r JMP2r
@<draw-list> ( addr* length folder selection -- ) @<draw-files> ( addr* length selection -- )
,&sel STR ,&sel STR
,&folder STR
DUP ?{ POP2 POP JMP2r } DUP ?{ POP2 POP JMP2r }
#0008 .Screen/x DEO2 #0008 .Screen/x DEO2
#00 SWP2 ,&t STR2 #00 SWP2 ,&t STR2
@ -643,14 +631,37 @@
[ LITr 05 ] [ LITr 05 ]
( | selected ) ( | selected )
DUP [ LIT &sel $1 ] NEQ ?{ DUP [ LIT &sel $1 ] NEQ ?{
POPr [ LITr 06 ] <draw-background> } POPr [ LITr 06 ] ;fill-icn <draw-background> }
( | folder ) ( | marker )
[ LIT2 00 &folder $1 ] EQU ?{ DUP .selection/track LDZ NEQ ?{
.Screen/y DEI2 [ LIT2 15 -Screen/auto ] DEO [ LIT2 15 -Screen/auto ] DEO
.Screen/width DEI2 #0010 SUB2 .Screen/x DEO2 #0000 .Screen/x DEO2
[ LIT2 00 "> ] #20 SUB #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2 ;poke-icn .Screen/addr DEO2
DUPr [ LITr -Screen/sprite ] DEOr [ LIT2 05 -Screen/sprite ] DEO }
.Screen/y DEO2 } ( | normal )
#0008 .Screen/x DEO2
#00 OVR
( CELLSIZE ) #70 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
.Screen/y DEI2k #0010 ADD2 ROT DEO2
INC GTHk ?&>l
POP2 JMP2r
@<draw-folders> ( addr* length selection -- )
,&sel STR
DUP ?{ POP2 POP JMP2r }
#0008 .Screen/x DEO2
#00 SWP2 ,&t STR2
&>l ( -- )
[ LITr 05 ]
( | selected )
DUP [ LIT &sel $1 ] NEQ ?{
POPr [ LITr 06 ] ;fill-icn <draw-background> }
( | gizmo )
.Screen/y DEI2 [ LIT2 15 -Screen/auto ] DEO
.Screen/width DEI2 #0010 SUB2 .Screen/x DEO2
[ LIT2 00 "> ] #20 SUB #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2
DUPr [ LITr -Screen/sprite ] DEOr
.Screen/y DEO2
( | normal ) ( | normal )
#0008 .Screen/x DEO2 #0008 .Screen/x DEO2
#00 OVR #00 OVR

BIN
gui/m291/ss10x10.chr
View File

Binary file not shown.