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

(wireworld.tal) Larger cells

This commit is contained in:
Devine Lu Linvega 2023-06-07 19:13:15 -07:00
parent cfc7c0f928
commit b616a2a44c
1 changed files with 26 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
gui/wireworld/wireworld.tal
View File

@ -26,8 +26,8 @@
#0d46 .System/g DEO2 #0d46 .System/g DEO2
#006f .System/b DEO2 #006f .System/b DEO2
( size ) ( size )
#0100 .Screen/width DEO2 #0200 .Screen/width DEO2
#0100 .Screen/height DEO2 #0200 .Screen/height DEO2
( vectors ) ( vectors )
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
;on-mouse .Mouse/vector DEO2 ;on-mouse .Mouse/vector DEO2
@ -90,10 +90,8 @@ BRK
&no-toggle &no-toggle
POP POP
&no-menu &no-menu
( color ) .color LDZ .Mouse/state DEI #01 GTH #00 EQU MUL ( color ) .color LDZ .Mouse/state DEI #01 GTH #00 EQU MUL
( cell* ) .Mouse/x DEI2 #02 SFT2 .Mouse/y DEI2 #02 SFT2 #60 SFT2 ADD2 ( cell* ) .Mouse/x DEI2 #03 SFT2 .Mouse/y DEI2 #03 SFT2 make-addr STA
;get-addr/current LDA2 ADD2 STA
redraw redraw
BRK BRK
@ -188,32 +186,41 @@ JMP2r
JMP2r JMP2r
@make-addr ( x* y* -- addr* )
#60 SFT2 ADD2 ;get-addr/current LDA2 ADD2
JMP2r
( (
@|drawing ) @|drawing )
@redraw ( -- ) @redraw ( -- )
;cell-icn .Screen/addr DEO2 ;cell-icn .Screen/addr DEO2
#4000 #01 .Screen/auto DEO
&ver #0000
#00 OVR #20 SFT2 .Screen/y DEO2 DUP2 .Screen/x DEO2
STHk .Screen/y DEO2
#4000
&hor #1000 #0000
#00 OVR #20 SFT2 .Screen/x DEO2 &l
DUP STHkr get-addr LDA .Screen/sprite DEO ( x ) DUP2 #003f AND2
INC GTHk ?&hor ( y ) OVR2 #06 SFT2
POP2 make-addr LDA .Screen/sprite DEO
POPr INCk #3f AND ?&no-bound
INC GTHk ?&ver #0000 .Screen/x DEO2
POP2 .Screen/y DEI2 #0008 ADD2 .Screen/y DEO2
&no-bound
INC2 GTH2k ?&l
POP2 POP2
@draw-ui ( -- ) @draw-ui ( -- )
( colors ) ( colors )
#01 .Screen/auto DEO #01 .Screen/auto DEO
#0010 DUP2 .Screen/x DEO2 .Screen/y DEO2 #0010 DUP2 .Screen/x DEO2 .Screen/y DEO2
;color-icn .Screen/addr DEO2 ;cell-icn .Screen/addr DEO2
#01 .Screen/sprite DEO #01 .Screen/sprite DEO
#02 .Screen/sprite DEO #02 .Screen/sprite DEO
#03 .Screen/sprite DEO #03 .Screen/sprite DEO
@ -224,16 +231,12 @@ JMP2r
JMP2r JMP2r
@phex ( short* -- ) SWP phex/b &b DUP #04 SFT phex/c &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
( (
@|assets ) @|assets )
@pointer-icn [ @pointer-icn [
80c0 e0f0 f8e0 1000 ] 80c0 e0f0 f8e0 1000 ]
@cell-icn [ @cell-icn [
e0e0 e000 0000 0000 ]
@color-icn [
7cfe fefe fefe 7c00 ] 7cfe fefe fefe 7c00 ]
@toggle-icn [ @toggle-icn [
6666 6666 6666 6600 6666 6666 6666 6600