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

Housekeeping

This commit is contained in:
Devine Lu Linvega 2024-02-11 09:15:18 -08:00
parent f379e90629
commit fe2bee8a95
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gui/shaviankb/shaviankb.tal
View File

@ -12,9 +12,9 @@
|0100 |0100
@on-reset ( -> ) @on-reset ( -> )
#9c0f .System/r DEO2 #ad0f .System/r DEO2
#7c0f .System/g DEO2 #ac0f .System/g DEO2
#de0f .System/b DEO2 #ab0f .System/b DEO2
#0130 .Screen/width DEO2 #0130 .Screen/width DEO2
#00d0 .Screen/height DEO2 #00d0 .Screen/height DEO2
;on-mouse .Mouse/vector DEO2 ;on-mouse .Mouse/vector DEO2
@ -34,11 +34,6 @@
( (
@|core ) @|core )
@<set-hover> ( id* -- )
DUP2 .hover LDZ2 EQU2 ?{ .hover STZ2
JMP2r }
POP2 JMP2r
@get-mouse-key ( -- id* ) @get-mouse-key ( -- id* )
( x ) .Mouse/x DEI2 #0008 SUB2 #05 SFT2 ( x ) .Mouse/x DEI2 #0008 SUB2 #05 SFT2
( y ) .Mouse/y DEI2 #0008 SUB2 #0030 DIV2 #0009 MUL2 ADD2 ( y ) .Mouse/y DEI2 #0008 SUB2 #0030 DIV2 #0009 MUL2 ADD2
@ -46,6 +41,11 @@
( space ) DUP #1d SUB #04 GTH ?{ POP2 #001d } ( space ) DUP #1d SUB #04 GTH ?{ POP2 #001d }
JMP2r JMP2r
@<set-hover> ( id* -- )
DUP2 .hover LDZ2 EQU2 ?{ .hover STZ2
JMP2r }
POP2 JMP2r
@<set-position> ( id* -- ) @<set-position> ( id* -- )
DUP2 #0009 DIV2 #0030 MUL2 #0008 ADD2 .Screen/y DEO2 DUP2 #0009 DIV2 #0030 MUL2 #0008 ADD2 .Screen/y DEO2
DUP #1e NEQ ?{ POP2 #0007 } DUP #1e NEQ ?{ POP2 #0007 }
@ -53,6 +53,9 @@
#0009 DIV2k MUL2 SUB2 #0020 MUL2 #0008 ADD2 .Screen/x DEO2 #0009 DIV2k MUL2 SUB2 #0020 MUL2 #0008 ADD2 .Screen/x DEO2
JMP2r JMP2r
(
@|drawing )
@<draw-frame> ( x* y* w h sprite* -- ) @<draw-frame> ( x* y* w h sprite* -- )
.Screen/addr DEO2 .Screen/addr DEO2
,&h STR ,&h STR
@ -93,7 +96,7 @@
#0006 MUL2 ;layout ADD2 #0006 MUL2 ;layout ADD2
( ) STH2k #0004 ADD2 LDA2 ( ) STH2k #0004 ADD2 LDA2
( ) STH2kr #0002 ADD2 LDA2 ( ) STH2kr #0002 ADD2 LDA2
( ) STH2r LDA2 <draw-key> ( ) STH2r LDA2 ;btn-chr <draw-key>
JMP2r JMP2r
@<draw-glyph> ( addr* -- ) @<draw-glyph> ( addr* -- )
@ -102,7 +105,7 @@
[ LIT2 0a -Screen/sprite ] DEO [ LIT2 0a -Screen/sprite ] DEO
JMP2r JMP2r
@<draw-key> ( a* b* c* -- ) @<draw-key> ( a* b* c* frame* -- )
<draw-button> <draw-button>
.Screen/x DEI2k #0002 SUB2 ROT DEO2 .Screen/x DEI2k #0002 SUB2 ROT DEO2
.Screen/y DEI2k #0024 SUB2 ROT DEO2 .Screen/y DEI2k #0024 SUB2 ROT DEO2
@ -127,8 +130,9 @@
#03ee <draw-times> #03ee <draw-times>
POP2 JMP2r POP2 JMP2r
@<draw-button> ( -- ) @<draw-button> ( frame* -- )
.Screen/x DEI2 .Screen/y DEI2 #0204 ;btn-chr <draw-frame> STH2
.Screen/x DEI2 .Screen/y DEI2 #0204 STH2r <draw-frame>
;fill-icn .Screen/addr DEO2 ;fill-icn .Screen/addr DEO2
[ LIT2 12 -Screen/auto ] DEO [ LIT2 12 -Screen/auto ] DEO
[ LIT2 03 -Screen/sprite ] DEOk DEOk DEOk DEO [ LIT2 03 -Screen/sprite ] DEOk DEOk DEOk DEO