etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-05 05:45:05 +00:00
Code Issues Projects Releases Wiki Activity
uxn/projects/examples/devices/controller.tal

186 lines
5 KiB
Tal
Raw Normal View History

Wrote a better controller example
2021-08-02 18:15:21 +00:00
( dev/controller/keys )
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
%+ { ADD } %- { SUB } %/ { DIV }
Wrote a better controller example
2021-08-02 18:15:21 +00:00
%< { LTH } %> { GTH } %= { EQU } %! { NEQ }
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
%++ { ADD2 } %-- { SUB2 } %// { DIV2 }
Wrote a better controller example
2021-08-02 18:15:21 +00:00
%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
%RTN { JMP2r }
%TOS { #00 SWP }
Cleanup on controller.tal
2021-08-02 18:19:36 +00:00
%LTS2 { #8000 ++ SWP2 #8000 ++ >> }
Wrote a better controller example
2021-08-02 18:15:21 +00:00
( devices )
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|80 @Controller [ &vector $2 &button $1 &key $1 ]
( variables )
|0000
@center
&x $2
&y $2
@frame
&w $2 &h $2
&x0 $2 &y0 $2
&x1 $2 &y1 $2
@color $1
Cleanup on controller.tal
2021-08-02 18:19:36 +00:00
@rect
&x1 $2 &y1 $2
&x2 $2 &y2 $2
Wrote a better controller example
2021-08-02 18:15:21 +00:00
( init )
|0100 ( -> )
( theme )
#0ff7 .System/r DEO2
#0f07 .System/g DEO2
#0f07 .System/b DEO2
( find center )
.Screen/width DEI2 #01 SFT2 .center/x STZ2
.Screen/height DEI2 #01 SFT2 .center/y STZ2
( place controller )
#0068 .frame/w STZ2
#0030 .frame/h STZ2
.center/x LDZ2 .frame/w LDZ2 #0002 // -- .frame/x0 STZ2
.center/y LDZ2 .frame/h LDZ2 #0002 // -- .frame/y0 STZ2
.frame/x0 LDZ2 .frame/w LDZ2 ++ .frame/x1 STZ2
.frame/y0 LDZ2 .frame/h LDZ2 ++ .frame/y1 STZ2
( vectors )
;on-button .Controller/vector DEO2
;draw-controller JSR2
BRK
@on-button ( -> )
;draw-controller JSR2
BRK
@draw-controller ( -- )
.Controller/button DEI STH
( frame )
.frame/x0 LDZ2 .frame/y0 LDZ2
.frame/x1 LDZ2 .frame/y1 LDZ2
#01 ;line-rect JSR2
( d-pad )
.frame/x0 LDZ2 #0010 ++ .Screen/x DEO2
.frame/y0 LDZ2 #0010 ++ .Screen/y DEO2
;controller-icn/dpad-up .Screen/addr DEO2
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
#03 [ STHkr #04 SFT #01 AND DUP + - ] .Screen/sprite DEO
Wrote a better controller example
2021-08-02 18:15:21 +00:00
.Screen/y DEI2 #0010 ++ .Screen/y DEO2
;controller-icn/dpad-down .Screen/addr DEO2
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
#03 [ STHkr #05 SFT #01 AND DUP + - ] .Screen/sprite DEO
Wrote a better controller example
2021-08-02 18:15:21 +00:00
.Screen/y DEI2 #0008 -- .Screen/y DEO2
.Screen/x DEI2 #0008 -- .Screen/x DEO2
;controller-icn/dpad-left .Screen/addr DEO2
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
#03 [ STHkr #06 SFT #01 AND DUP + - ] .Screen/sprite DEO
Wrote a better controller example
2021-08-02 18:15:21 +00:00
.Screen/x DEI2 #0010 ++ .Screen/x DEO2
;controller-icn/dpad-right .Screen/addr DEO2
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
#03 [ STHkr #07 SFT #01 AND DUP + - ] .Screen/sprite DEO
Wrote a better controller example
2021-08-02 18:15:21 +00:00
.Screen/x DEI2 #0008 -- .Screen/x DEO2
;controller-icn/dpad .Screen/addr DEO2
#03 .Screen/sprite DEO
( options )
.center/y LDZ2 #0009 ++ .Screen/y DEO2
.center/x LDZ2 #0009 -- .Screen/x DEO2
;controller-icn/option .Screen/addr DEO2
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
#03 [ STHkr #02 SFT #01 AND DUP + - ] .Screen/sprite DEO
Wrote a better controller example
2021-08-02 18:15:21 +00:00
.center/x LDZ2 #0004 ++ .Screen/x DEO2
;controller-icn/option .Screen/addr DEO2
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
#03 [ STHkr #03 SFT #01 AND DUP + - ] .Screen/sprite DEO
Wrote a better controller example
2021-08-02 18:15:21 +00:00
( buttons )
.center/y LDZ2 #0000 ++ .Screen/y DEO2
.center/x LDZ2 #0018 ++ .Screen/x DEO2
;controller-icn/button .Screen/addr DEO2
#03 [ STHkr #01 SFT #01 AND - ] .Screen/sprite DEO
.Screen/y DEI2 #000a ++ .Screen/y DEO2
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
;font-hex #000b #30 SFT2 ++ .Screen/addr DEO2
Wrote a better controller example
2021-08-02 18:15:21 +00:00
#03 .Screen/sprite DEO
.center/y LDZ2 #0000 ++ .Screen/y DEO2
.center/x LDZ2 #0024 ++ .Screen/x DEO2
;controller-icn/button .Screen/addr DEO2
#03 [ STHr #01 AND - ] .Screen/sprite DEO
.Screen/y DEI2 #000a ++ .Screen/y DEO2
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
;font-hex #000a #30 SFT2 ++ .Screen/addr DEO2
Wrote a better controller example
2021-08-02 18:15:21 +00:00
#03 .Screen/sprite DEO
.center/x LDZ2 #0010 -- .Screen/x DEO2
.center/y LDZ2 #0010 -- .Screen/y DEO2
.Controller/button DEI2 #03 ;draw-short JSR2
RTN
( generics )
@draw-short ( short* color -- )
STH SWP
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
DUP #04 SFT TOS #30 SFT2 ;font-hex ++ .Screen/addr DEO2
Wrote a better controller example
2021-08-02 18:15:21 +00:00
( draw ) STHkr .Screen/sprite DEO
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
#0f AND TOS #30 SFT2 ;font-hex ++ .Screen/addr DEO2
Wrote a better controller example
2021-08-02 18:15:21 +00:00
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
( draw ) STHkr .Screen/sprite DEO
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
DUP #04 SFT TOS #30 SFT2 ;font-hex ++ .Screen/addr DEO2
Wrote a better controller example
2021-08-02 18:15:21 +00:00
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
( draw ) STHkr .Screen/sprite DEO
Replaced trivial multiplications with shifts and additions
2021-08-17 19:16:39 +00:00
#0f AND TOS #30 SFT2 ;font-hex ++ .Screen/addr DEO2
Wrote a better controller example
2021-08-02 18:15:21 +00:00
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
( draw ) STHr .Screen/sprite DEO
RTN
@line-rect ( x1* y1* x2* y2* color -- )
( load ) .color STZ DUP2 STH2 .rect/y2 STZ2 .rect/x2 STZ2 DUP2 STH2 .rect/y1 STZ2 .rect/x1 STZ2
Examples cleanup
2021-08-18 02:40:07 +00:00
STH2r INC2 STH2r
Wrote a better controller example
2021-08-02 18:15:21 +00:00
&ver
( save ) OVR2 .Screen/y DEO2
( draw ) .rect/x1 LDZ2 .Screen/x DEO2 .color LDZ DUP .Screen/pixel DEO
( draw ) .rect/x2 LDZ2 .Screen/x DEO2 .Screen/pixel DEO
Examples cleanup
2021-08-18 02:40:07 +00:00
( incr ) SWP2 INC2 SWP2
Wrote a better controller example
2021-08-02 18:15:21 +00:00
OVR2 OVR2 LTS2 ,&ver JCN
POP2 POP2
Examples cleanup
2021-08-18 02:40:07 +00:00
.rect/x1 LDZ2 INC2 .rect/x2 LDZ2 #0001 --
Wrote a better controller example
2021-08-02 18:15:21 +00:00
&hor
( save ) OVR2 .Screen/x DEO2
( draw ) .rect/y1 LDZ2 .Screen/y DEO2 .color LDZ DUP .Screen/pixel DEO
( draw ) .rect/y2 LDZ2 .Screen/y DEO2 .Screen/pixel DEO
Examples cleanup
2021-08-18 02:40:07 +00:00
( incr ) SWP2 INC2 SWP2
OVR2 OVR2 INC2 LTS2 ,&hor JCN
Wrote a better controller example
2021-08-02 18:15:21 +00:00
POP2 POP2
RTN
@controller-icn
&dpad ffff ffff ffff ffff
&dpad-up 7eff e7c3 ffff ffff
&dpad-down ffff ffff c3e7 ff7e
&dpad-left 7fff efcf cfef ff7f
&dpad-right feff f7f3 f3f7 fffe
&option 0000 7eff ff7e 0000
&button 3c7e ffff ffff 7e3c
@font-hex
003c 4242 4242 3c00 0018 0808 0808 1c00
003c 4202 3c40 7e00 003c 421c 0242 3c00
000c 1424 447e 0400 007e 407c 0242 3c00
003c 407c 4242 3c00 007e 0204 0810 1000
003c 423c 4242 3c00 003c 4242 3e02 3c00
003c 4242 7e42 4200 007c 427c 4242 7c00
003c 4240 4042 3c00 007c 4242 4242 7c00
007e 4078 4040 7e00 007e 4078 4040 4000
Reference in a new issue Copy permalink