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

State down

This commit is contained in:
Devine Lu Linvega 2024-02-11 09:42:18 -08:00
parent 563e9a5e3f
commit 69ac77c567
2 changed files with 27 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gui/shaviankb/assets.tal
View File

@ -57,6 +57,15 @@
3f3f 3f3f 3f1f 0000 7f7f 7f7f 5f20 1f00
ffff ffff ffff 0000 ffff ffff ff00 ff00
fcfc fcfc fcf8 0000 fefe fefe fa04 f800 ]
@btn-press-chr [
0000 0000 1f3f 3f3f 0000 001f 3f60 4040
0000 0000 ffff ffff 0000 00ff ff00 0000
0000 0000 f8fc fcfc 0000 00f8 fc06 0202
fcfc fcfc fcfc fcfc 0202 0202 0202 0202
3f3f 3f3f 3f3f 3f3f 4040 4040 4040 4040
3f3f 3f3f 3f1f 0000 4040 4040 4020 1f00
ffff ffff ffff 0000 0000 0000 0000 ff00
fcfc fcfc fcf8 0000 0202 0202 0204 f800 ]
@keys
&peep 0000 0060 1008 0808 0808 0808 0000 0000 ={ f090 9190 }

26
gui/shaviankb/shaviankb.tal
View File

@ -32,6 +32,7 @@
BRK
@on-mouse-down ( -> )
get-mouse-key <set-press>
BRK
(
@ -44,12 +45,17 @@
( space ) DUP #1d SUB #04 GTH ?{ POP2 #001d }
JMP2r
@<set-press> ( id* -- )
.hover LDZ2 ;btn-chr <draw-key-id>
;btn-press-chr <draw-key-id>
JMP2r
@<set-hover> ( id* -- )
DUP2 .hover LDZ2 EQU2 ?{
( undraw ) .hover LDZ2 ;btn-chr <draw-key-id>
.hover LDZ2 ;btn-chr <draw-key-id>
DUP2 ;btn-hover-chr <draw-key-id>
.hover STZ2
( redraw ) JMP2r }
JMP2r }
POP2 JMP2r
@<set-position> ( id* -- )
@ -105,20 +111,27 @@
JMP2r
@<draw-key-space> ( id* frame* -- )
DUP2 ;btn-press-chr NEQ2 #10 SFT INC ,&color STR
STH2
POP2 .Screen/x DEI2 .Screen/y DEI2 #1204 STH2r <draw-frame>
;fill-icn .Screen/addr DEO2
[ LIT2 31 -Screen/auto ] DEO
#03ee !<draw-times>
[ LIT2 &color 03 ee ] !<draw-times>
@<draw-button> ( frame* -- )
DUP2 ;btn-press-chr NEQ2 #10 SFT INC ,&color STR
STH2
.Screen/x DEI2 .Screen/y DEI2 #0204 STH2r <draw-frame>
;fill-icn .Screen/addr DEO2
[ LIT2 12 -Screen/auto ] DEO
[ LIT2 03 -Screen/sprite ] DEOk DEOk DEOk DEO
[ LIT2 &color 03 -Screen/sprite ] DEOk DEOk DEOk DEO
JMP2r
@<draw-times> ( color times -- )
OVR .Screen/sprite DEO
INC DUP ?<draw-times>
POP2 JMP2r
@<draw-frame> ( x* y* w h sprite* -- )
.Screen/addr DEO2
,&h STR
@ -146,11 +159,6 @@
INC GTHk ?&repeat-loop
POP2 JMP2r
@<draw-times> ( color times -- )
OVR .Screen/sprite DEO
INC DUP ?<draw-times>
POP2 JMP2r
@<update-pointer> ( color addr* -- )
[ LIT2 00 -Screen/auto ] DEO
;fill-icn .Screen/addr DEO2