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

Drawing layout

This commit is contained in:
Devine Lu Linvega 2024-02-10 19:09:42 -08:00
parent 102dd8991c
commit d9b530495c
3 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gui/shaviankb/assets.tal
View File

@ -104,7 +104,7 @@
&four 0000 0000 0000 0000 0000 0000 0000 0000 ={ "4 } &four 0000 0000 0000 0000 0000 0000 0000 0000 ={ "4 }
&five 0000 0000 0000 0000 0000 0000 0000 0000 ={ "5 } &five 0000 0000 0000 0000 0000 0000 0000 0000 ={ "5 }
&six 0000 0000 0000 0000 0000 0000 0000 0000 ={ "6 } &six 0000 0000 0000 0000 0000 0000 0000 0000 ={ "6 }
&seven 0000 0000 0000 0000 0000 0000 0000 0000 ={ "7 } &seven 0000 00fc 0404 0808 1010 2020 0000 0000 ={ "7 }
&eight 0000 0000 0000 0000 0000 0000 0000 0000 ={ "8 } &eight 0000 0000 0000 0000 0000 0000 0000 0000 ={ "8 }
&nine 0000 0000 0000 0000 0000 0000 0000 0000 ={ "9 } &nine 0000 0000 0000 0000 0000 0000 0000 0000 ={ "9 }

BIN
gui/shaviankb/cream12.uf2 Normal file
View File

Binary file not shown.

52
gui/shaviankb/shaviankb.tal
View File

@ -12,51 +12,51 @@
#f0ef .System/r DEO2 #f0ef .System/r DEO2
#f0e6 .System/g DEO2 #f0e6 .System/g DEO2
#f0e2 .System/b DEO2 #f0e2 .System/b DEO2
#0100 .Screen/width DEO2 #0120 .Screen/width DEO2
#0080 .Screen/height DEO2 #00c0 .Screen/height DEO2
<draw-keyboard> <draw-keyboard>
( #010e DEO ) BRK ( #010e DEO ) BRK
@<push-pos> ( -- ) @<set-position> ( id* -- )
[ LITr -Screen/x ] DEI2r DUP2 #0009 DIV2 #0030 MUL2 .Screen/y DEO2
( ) [ LITr -Screen/y ] DEI2r ROT2r JMP2r DUP #1e NEQ ?{ POP2 #0007 }
DUP #1f NEQ ?{ POP2 #0008 }
@<pop-pos> ( -- ) #0009 DIV2k MUL2 SUB2 #0020 MUL2 .Screen/x DEO2
SWP2r STH2r .Screen/y DEO2
SWP2r STH2r .Screen/y DEO2
JMP2r JMP2r
@<draw-keyboard> ( -- ) @<draw-keyboard> ( -- )
( ;shavian ;shavian #0010 ADD2 ;shavian #0020 ADD2 <draw-key3> #0020 #0000
;shavian ;shavian #0010 ADD2 ;shavian #0020 ADD2 <draw-key3> ) &l ( -- )
JMP2r DUP2 <set-position>
DUP2 #0006 MUL2 ;layout ADD2
( ) STH2k #0004 ADD2 LDA2
( ) STH2kr #0002 ADD2 LDA2
( ) STH2r LDA2 <draw-key>
( ) INC2 GTH2k ?&l
POP2 POP2 JMP2r
@<draw-glyph> ( addr* -- ) @<draw-glyph> ( addr* -- )
STH2k .Screen/addr DEO2 .Screen/addr DEO2
[ LIT2 15 -Screen/auto ] DEO [ LIT2 15 -Screen/auto ] DEO
[ LIT2 05 -Screen/sprite ] DEOk [ LIT2 05 -Screen/sprite ] DEO
( ) STH2r .Screen/addr DEO2
( ) .Screen/x DEI2k #0007 SUB2 ROT DEO2
DEO
JMP2r JMP2r
@<draw-key3> ( a* b* c* -- ) @<draw-key> ( a* b* c* -- )
<push-pos>
<draw-button> <draw-button>
.Screen/x DEI2k #0004 ADD2 ROT DEO2 .Screen/x DEI2k #0006 ADD2 ROT DEO2
.Screen/y DEI2k #0004 ADD2 ROT DEO2 .Screen/y DEI2k #0004 ADD2 ROT DEO2
( | a ) ( | a )
<draw-glyph> <draw-glyph>
.Screen/x DEI2k #0004 SUB2 ROT DEO2 .Screen/x DEI2k #0002 SUB2 ROT DEO2
.Screen/y DEI2k #0008 ADD2 ROT DEO2 .Screen/y DEI2k #000c ADD2 ROT DEO2
( | b ) ( | b )
<draw-glyph> <draw-glyph>
.Screen/x DEI2k #0004 SUB2 ROT DEO2 .Screen/x DEI2k #0002 SUB2 ROT DEO2
.Screen/y DEI2k #0008 ADD2 ROT DEO2 .Screen/y DEI2k #000c ADD2 ROT DEO2
( | c ) ( | c )
<draw-glyph> <draw-glyph>
<pop-pos> .Screen/x DEI2k #0006 ADD2 ROT DEO2
.Screen/x DEI2k #0008 ADD2 ROT DEO2 .Screen/y DEI2k #001c SUB2 ROT DEO2
JMP2r JMP2r
@<draw-button> ( -- ) @<draw-button> ( -- )