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

Skip printing .mp3

This commit is contained in:
Devine Lu Linvega 2024-09-05 16:06:42 -07:00
parent 94dbf747c2
commit 4430c2eb3d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -882,18 +882,13 @@
[ LIT2 15 -Screen/auto ] DEO [ LIT2 15 -Screen/auto ] DEO
.Screen/width DEI2 #0018 SUB2 ,&bound STR2 .Screen/width DEI2 #0018 SUB2 ,&bound STR2
&>w ( -- ) &>w ( -- )
LDAk [ LIT ". ] NEQ ?{ INC2k ;dict/mp3-ext scmp3 ?&end }
LDAk <draw-glyph> LDAk <draw-glyph>
( | trim ) ( | trim )
.Screen/x DEI2 [ LIT2 &bound $2 ] LTH2 ?{ .Screen/x DEI2 [ LIT2 &bound $2 ] LTH2 ?{
POP2 [ LIT ". ] <draw-glyph> POP2 [ LIT ". ] <draw-glyph>
[ LIT ". ] !<draw-glyph> } [ LIT ". ] !<draw-glyph> }
next-glyph LDAk ?&>w next-glyph LDAk ?&>w &end POP2 JMP2r
POP2 JMP2r
@next-glyph ( addr* -- addr* )
INC2 LDAk
( utf8 ) #06 SFT #02 EQU ?next-glyph
JMP2r
@<draw-glyph> ( char -- ) @<draw-glyph> ( char -- )
DUP #7f LTH ?{ DUP #7f LTH ?{
@ -907,6 +902,11 @@
.Screen/x DEO2 .Screen/x DEO2
JMP2r JMP2r
@next-glyph ( addr* -- addr* )
INC2 LDAk
( utf8 ) #06 SFT #02 EQU ?next-glyph
JMP2r
@<update-cursor> ( color addr* -- ) @<update-cursor> ( color addr* -- )
;fill-icn .Screen/addr DEO2 ;fill-icn .Screen/addr DEO2
#40 <draw-cursor> #40 <draw-cursor>