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

Draw spacebar with frame

This commit is contained in:
Devine Lu Linvega 2024-02-11 09:11:38 -08:00
parent abfb3f4760
commit f379e90629
2 changed files with 11 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
gui/shaviankb/assets.tal
View File

@ -49,40 +49,6 @@
ffff ffff ffff 0000 ffff ffff 0000 ff00
fcfc fcfc fcf8 0000 fefe fefa 0204 f800 ]
@button-icn
&top [
0000 1f3f 3f3f 3f3f 001f 3f7f 7f7f 7f7f
0000 ffff ffff ffff 00ff ffff ffff ffff
0000 ffff ffff ffff 00ff ffff ffff ffff
0000 f8fc fcfc fcfc 00f8 fcfe fefe fefe ]
&middle [
3f3f 3f3f 3f3f 3f3f 7f7f 7f7f 7f7f 7f7f
ffff ffff ffff ffff ffff ffff ffff ffff
ffff ffff ffff ffff ffff ffff ffff ffff
fcfc fcfc fcfc fcfc fefe fefe fefe fefe ]
&bottom [
3f3f 3f3f 3f1f 0000 7f7f 7f5f 4020 1f00
ffff ffff ffff 0000 ffff ffff 0000 ff00
ffff ffff ffff 0000 ffff ffff 0000 ff00
fcfc fcfc fcf8 0000 fefe fefa 0204 f800 ]
@button-wide-icn
&left [
0000 1f3f 3f3f 3f3f 001f 3f7f 7f7f 7f7f
3f3f 3f3f 3f3f 3f3f 7f7f 7f7f 7f7f 7f7f
3f3f 3f3f 3f3f 3f3f 7f7f 7f7f 7f7f 7f7f
3f3f 3f3f 3f1f 0000 7f7f 7f5f 4020 1f00 ]
&center [
0000 ffff ffff ffff 00ff ffff ffff ffff
ffff ffff ffff ffff ffff ffff ffff ffff
ffff ffff ffff ffff ffff ffff ffff ffff
ffff ffff ffff 0000 ffff ffff 0000 ff00 ]
&right [
0000 f8fc fcfc fcfc 00f8 fcfe fefe fefe
fcfc fcfc fcfc fcfc fefe fefe fefe fefe
fcfc fcfc fcfc fcfc fefe fefe fefe fefe
fcfc fcfc fcf8 0000 fefe fefa 0204 f800 ]
@keys
&peep 0000 0060 1008 0808 0808 0808 0000 0000 ={ f090 9190 }
&tot 0000 0008 1868 0808 0808 0808 0000 0000 ={ f090 9190 }

21
gui/shaviankb/shaviankb.tal
View File

@ -121,15 +121,11 @@
JMP2r
@<draw-key-space> ( id* -- )
POP2 [ LIT2 35 -Screen/auto ] DEO
;button-wide-icn/left .Screen/addr DEO2
[ LIT2 81 -Screen/sprite ] DEOk DEOk #ef
&l ( -- )
;button-wide-icn/center .Screen/addr DEO2
[ LIT2 81 -Screen/sprite ] DEO
INC DUP ?&l
POP DEO
JMP2r
.Screen/x DEI2 .Screen/y DEI2 #1204 ;btn-chr <draw-frame>
;fill-icn .Screen/addr DEO2
[ LIT2 31 -Screen/auto ] DEO
#03ee <draw-times>
POP2 JMP2r
@<draw-button> ( -- )
.Screen/x DEI2 .Screen/y DEI2 #0204 ;btn-chr <draw-frame>
@ -138,6 +134,11 @@
[ LIT2 03 -Screen/sprite ] DEOk DEOk DEOk DEO
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
@ -162,6 +163,6 @@
&c ( -- )
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
JMP2r
~assets.tal