Added layer
This commit is contained in:
parent
4735f11a32
commit
9920d169bd
|
@ -69,53 +69,53 @@
|
||||||
|
|
||||||
@keys
|
@keys
|
||||||
&peep 0000 0060 1008 0808 0808 0808 0000 0000 ={ f090 9190 }
|
&peep 0000 0060 1008 0808 0808 0808 0000 0000 ={ f090 9190 }
|
||||||
&tot 0000 0008 1868 0808 0808 0808 0000 0000 ={ f090 9190 }
|
&tot 0000 0008 1868 0808 0808 0808 0000 0000 ={ f090 9191 }
|
||||||
&kick 0000 0004 0404 3c40 4040 403c 0000 0000 ={ f090 9190 }
|
&kick 0000 0004 0404 3c40 4040 403c 0000 0000 ={ f090 9192 }
|
||||||
&fee 0000 0008 0808 0808 0808 1060 0000 0000 ={ f090 9190 }
|
&fee 0000 0008 0808 0808 0808 1060 0000 0000 ={ f090 9193 }
|
||||||
&thigh 0000 0060 1008 3844 8484 8870 0000 0000 ={ f090 9190 }
|
&thigh 0000 0060 1008 3844 8484 8870 0000 0000 ={ f090 9194 }
|
||||||
&so 0000 0038 4440 2010 0804 4438 0000 0000 ={ f090 9190 }
|
&so 0000 0038 4440 2010 0804 4438 0000 0000 ={ f090 9195 }
|
||||||
&sure 0000 0008 1020 2040 4040 4438 0000 0000 ={ f090 9190 }
|
&sure 0000 0008 1020 2040 4040 4438 0000 0000 ={ f090 9196 }
|
||||||
&church 0000 0008 10e0 2040 4040 4438 0000 0000 ={ f090 9190 }
|
&church 0000 0008 10e0 2040 4040 4438 0000 0000 ={ f090 9197 }
|
||||||
&yea 0000 0040 4020 2010 1008 0804 0000 0000 ={ f090 9190 }
|
&yea 0000 0040 4020 2010 1008 0804 0000 0000 ={ f090 9198 }
|
||||||
&hung 0000 0030 4848 4848 4848 30cc 0000 0000 ={ f090 9190 }
|
&hung 0000 0030 4848 4848 4848 30cc 0000 0000 ={ f090 9199 }
|
||||||
&bib 0000 0000 0000 2020 2020 2020 2010 0c00 ={ f090 9190 }
|
&bib 0000 0000 0000 2020 2020 2020 2010 0c00 ={ f090 919a }
|
||||||
&dead 0000 0000 0000 4040 4040 4040 5860 4000 ={ f090 9190 }
|
&dead 0000 0000 0000 4040 4040 4040 5860 4000 ={ f090 919b }
|
||||||
&gag 0000 0000 0000 7804 0404 0478 4040 4000 ={ f090 9190 }
|
&gag 0000 0000 0000 7804 0404 0478 4040 4000 ={ f090 919c }
|
||||||
&vow 0000 0000 0000 1820 4040 4040 4040 4000 ={ f090 9190 }
|
&vow 0000 0000 0000 1820 4040 4040 4040 4000 ={ f090 919d }
|
||||||
&they 0000 0000 0000 3844 8484 8870 4020 1800 ={ f090 9190 }
|
&they 0000 0000 0000 3844 8484 8870 4020 1800 ={ f090 919e }
|
||||||
&zoo 0000 0000 0000 3844 0408 1020 4044 3800 ={ f090 9190 }
|
&zoo 0000 0000 0000 3844 0408 1020 4044 3800 ={ f090 919f }
|
||||||
&measure 0000 0000 0000 3844 0404 0408 0810 2000 ={ f090 9190 }
|
&measure 0000 0000 0000 3844 0404 0408 0810 2000 ={ f090 91a0 }
|
||||||
&judge 0000 0000 0000 3844 0404 0408 0e10 2000 ={ f090 9190 }
|
&judge 0000 0000 0000 3844 0404 0408 0e10 2000 ={ f090 91a1 }
|
||||||
&woe 0000 0000 0000 0408 0810 1020 2040 4000 ={ f090 9190 }
|
&woe 0000 0000 0000 0408 0810 1020 2040 4000 ={ f090 91a2 }
|
||||||
&haha 0000 0000 0000 cc30 4848 4848 4848 3000 ={ f090 9190 }
|
&haha 0000 0000 0000 cc30 4848 4848 4848 3000 ={ f090 91a3 }
|
||||||
&loll 0000 0000 0000 3840 4040 4038 0000 0000 ={ f090 9190 }
|
&loll 0000 0000 0000 3840 4040 4038 0000 0000 ={ f090 91a4 }
|
||||||
&mime 0000 0000 0000 0c10 1010 1060 0000 0000 ={ f090 9190 }
|
&mime 0000 0000 0000 0c10 1010 1060 0000 0000 ={ f090 91a5 }
|
||||||
&if 0000 0000 0000 1010 1010 1010 0000 0000 ={ f090 9190 }
|
&if 0000 0000 0000 1010 1010 1010 0000 0000 ={ f090 91a6 }
|
||||||
&egg 0000 0000 0000 4040 4040 201c 0000 0000 ={ f090 9190 }
|
&egg 0000 0000 0000 4040 4040 201c 0000 0000 ={ f090 91a7 }
|
||||||
&ash 0000 0000 0000 0404 0404 0870 0000 0000 ={ f090 9190 }
|
&ash 0000 0000 0000 0404 0404 0870 0000 0000 ={ f090 91a8 }
|
||||||
&ado 0000 0000 0000 1c20 4040 4040 0000 0000 ={ f090 9190 }
|
&ado 0000 0000 0000 1c20 4040 4040 0000 0000 ={ f090 91a9 }
|
||||||
&on 0000 0000 0000 7008 0404 0404 0000 0000 ={ f090 9190 }
|
&on 0000 0000 0000 7008 0404 0404 0000 0000 ={ f090 91aa }
|
||||||
&wool 0000 0000 0000 4444 2828 1010 0000 0000 ={ f090 9190 }
|
&wool 0000 0000 0000 4444 2828 1010 0000 0000 ={ f090 91ab }
|
||||||
&out 0000 0000 0000 0810 6010 1008 0000 0000 ={ f090 9190 }
|
&out 0000 0000 0000 0810 6010 1008 0000 0000 ={ f090 91ac }
|
||||||
&ah 0000 0000 0000 1c20 2018 0870 0000 0000 ={ f090 9190 }
|
&ah 0000 0000 0000 1c20 2018 0870 0000 0000 ={ f090 91ad }
|
||||||
&roar 0000 0000 0000 3804 0404 0438 0000 0000 ={ f090 9190 }
|
&roar 0000 0000 0000 3804 0404 0438 0000 0000 ={ f090 91ae }
|
||||||
&nun 0000 0000 0000 6010 1010 100c 0000 0000 ={ f090 9190 }
|
&nun 0000 0000 0000 6010 1010 100c 0000 0000 ={ f090 91af }
|
||||||
&eat 0000 0000 0000 404c 5464 0404 0000 0000 ={ f090 9190 }
|
&eat 0000 0000 0000 404c 5464 0404 0000 0000 ={ f090 91b0 }
|
||||||
&age 0000 0000 0000 7c40 4040 201c 0000 0000 ={ f090 9190 }
|
&age 0000 0000 0000 7c40 4040 201c 0000 0000 ={ f090 91b1 }
|
||||||
&ice 0000 0000 0000 7c04 0404 0870 0000 0000 ={ f090 9190 }
|
&ice 0000 0000 0000 7c04 0404 0870 0000 0000 ={ f090 91b2 }
|
||||||
&up 0000 0000 0000 7c08 1010 2020 0000 0000 ={ f090 9190 }
|
&up 0000 0000 0000 7c08 1010 2020 0000 0000 ={ f090 91b3 }
|
||||||
&oak 0000 0000 0000 3844 4444 4438 0000 0000 ={ f090 9190 }
|
&oak 0000 0000 0000 3844 4444 4438 0000 0000 ={ f090 91b4 }
|
||||||
&ooze 0000 0000 0000 1010 2828 4444 0000 0000 ={ f090 9190 }
|
&ooze 0000 0000 0000 1010 2828 4444 0000 0000 ={ f090 91b5 }
|
||||||
&oil 0000 0000 0000 2010 0c10 1020 0000 0000 ={ f090 9190 }
|
&oil 0000 0000 0000 2010 0c10 1020 0000 0000 ={ f090 91b6 }
|
||||||
&awe 0000 0000 0000 7008 0830 201c 0000 0000 ={ f090 9190 }
|
&awe 0000 0000 0000 7008 0830 201c 0000 0000 ={ f090 91b7 }
|
||||||
&are 0000 0000 0000 3c42 4232 12e4 0000 0000 ={ f090 9190 }
|
&are 0000 0000 0000 3c42 4232 12e4 0000 0000 ={ f090 91b8 }
|
||||||
&or 0000 0000 0000 cc22 22c2 8478 0000 0000 ={ f090 9190 }
|
&or 0000 0000 0000 cc22 22c2 8478 0000 0000 ={ f090 91b9 }
|
||||||
&air 0000 0000 0000 1c22 2272 8264 0000 0000 ={ f090 9190 }
|
&air 0000 0000 0000 1c22 2272 8264 0000 0000 ={ f090 91ba }
|
||||||
&err 0000 0000 0000 6482 7222 221c 0000 0000 ={ f090 9190 }
|
&err 0000 0000 0000 6482 7222 221c 0000 0000 ={ f090 91bb }
|
||||||
&array 0000 0000 0000 3c42 8282 828c 0000 0000 ={ f090 9190 }
|
&array 0000 0000 0000 3c42 8282 828c 0000 0000 ={ f090 91bc }
|
||||||
&ear 0000 0000 0000 bcc2 8282 829c 0000 0000 ={ f090 9190 }
|
&ear 0000 0000 0000 bcc2 8282 829c 0000 0000 ={ f090 91bd }
|
||||||
&ian 0000 0000 0000 4e50 6040 4040 0000 0000 ={ f090 9190 }
|
&ian 0000 0000 0000 4e50 6040 4040 0000 0000 ={ f090 91be }
|
||||||
&yew 0000 0080 8080 4848 5454 2222 0000 0000 ={ f090 9190 }
|
&yew 0000 0080 8080 4848 5454 2222 0000 0000 ={ f090 91bf }
|
||||||
|
|
||||||
&zero 0000 0078 8484 8484 8484 8478 0000 0000 ={ "0 }
|
&zero 0000 0078 8484 8484 8484 8478 0000 0000 ={ "0 }
|
||||||
&one 0000 0010 3010 1010 1010 1010 0000 0000 ={ "1 }
|
&one 0000 0010 3010 1010 1010 1010 0000 0000 ={ "1 }
|
||||||
|
|
|
@ -9,6 +9,7 @@
|
||||||
|
|
||||||
@hover $2
|
@hover $2
|
||||||
@lock $1
|
@lock $1
|
||||||
|
@layer $1
|
||||||
|
|
||||||
|0100
|
|0100
|
||||||
|
|
||||||
|
@ -56,6 +57,7 @@
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@<set-press> ( id* -- )
|
@<set-press> ( id* -- )
|
||||||
|
DUP #1b NEQ ?{ POP2 !<toggle-layer> }
|
||||||
.hover LDZ2 ;btn-chr <draw-key-id>
|
.hover LDZ2 ;btn-chr <draw-key-id>
|
||||||
DUP2 ;btn-press-chr <draw-key-id>
|
DUP2 ;btn-press-chr <draw-key-id>
|
||||||
( | event )
|
( | event )
|
||||||
|
@ -67,6 +69,10 @@
|
||||||
INC2 GTH2k ?&l
|
INC2 GTH2k ?&l
|
||||||
POP2 POP2 JMP2r
|
POP2 POP2 JMP2r
|
||||||
|
|
||||||
|
@<toggle-layer> ( -- )
|
||||||
|
.layer LDZ INC #03 DIVk MUL SUB .layer STZ
|
||||||
|
!<draw-keyboard>
|
||||||
|
|
||||||
@<set-hover> ( id* -- )
|
@<set-hover> ( id* -- )
|
||||||
DUP2 .hover LDZ2 EQU2 ?{
|
DUP2 .hover LDZ2 EQU2 ?{
|
||||||
.hover LDZ2 ;btn-chr <draw-key-id>
|
.hover LDZ2 ;btn-chr <draw-key-id>
|
||||||
|
@ -116,15 +122,15 @@
|
||||||
.Screen/x DEI2k #0002 SUB2 ROT DEO2
|
.Screen/x DEI2k #0002 SUB2 ROT DEO2
|
||||||
.Screen/y DEI2k #0024 STHr SUB STHr SUB SUB2 ROT DEO2
|
.Screen/y DEI2k #0024 STHr SUB STHr SUB SUB2 ROT DEO2
|
||||||
( | a )
|
( | a )
|
||||||
#00 <draw-glyph>
|
#0a00 [ LIT2 01 -layer ] LDZ EQU [ JMP SWP POP ] <draw-glyph>
|
||||||
.Screen/x DEI2k #0002 SUB2 ROT DEO2
|
.Screen/x DEI2k #0002 SUB2 ROT DEO2
|
||||||
.Screen/y DEI2k #000c ADD2 ROT DEO2
|
.Screen/y DEI2k #000c ADD2 ROT DEO2
|
||||||
( | b )
|
( | b )
|
||||||
#0a <draw-glyph>
|
#0a00 [ LIT2 00 -layer ] LDZ EQU [ JMP SWP POP ] <draw-glyph>
|
||||||
.Screen/x DEI2k #0002 SUB2 ROT DEO2
|
.Screen/x DEI2k #0002 SUB2 ROT DEO2
|
||||||
.Screen/y DEI2k #000c ADD2 ROT DEO2
|
.Screen/y DEI2k #000c ADD2 ROT DEO2
|
||||||
( | c )
|
( | c )
|
||||||
#05 <draw-glyph>
|
#0a05 [ LIT2 02 -layer ] LDZ EQU [ JMP SWP POP ] <draw-glyph>
|
||||||
.Screen/x DEI2k #0006 ADD2 ROT DEO2
|
.Screen/x DEI2k #0006 ADD2 ROT DEO2
|
||||||
.Screen/y DEI2k #001c SUB2 ROT DEO2
|
.Screen/y DEI2k #001c SUB2 ROT DEO2
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
Loading…
Reference in New Issue