(polycat.tal) Cleanup
This commit is contained in:
parent
9e9313d064
commit
6ffedca0b4
|
@ -1,11 +1,5 @@
|
||||||
( polycat )
|
( polycat )
|
||||||
|
|
||||||
%2// { #01 SFT2 }
|
|
||||||
%!~ { NEQk NIP }
|
|
||||||
%AUTO-XADDR { #05 .Screen/auto DEO }
|
|
||||||
|
|
||||||
( devices )
|
|
||||||
|
|
||||||
|00 @System &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1
|
|00 @System &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1
|
||||||
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|
||||||
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2
|
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2
|
||||||
|
@ -33,10 +27,10 @@
|
||||||
( vectors )
|
( vectors )
|
||||||
;on-mouse .Mouse/vector DEO2
|
;on-mouse .Mouse/vector DEO2
|
||||||
( find center )
|
( find center )
|
||||||
.Screen/width DEI2 2// .cat/x STZ2
|
.Screen/width DEI2 #01 SFT2 .cat/x STZ2
|
||||||
.Screen/height DEI2 2// .cat/y STZ2
|
.Screen/height DEI2 #01 SFT2 .cat/y STZ2
|
||||||
( set screen mode )
|
( set screen mode auto-x )
|
||||||
AUTO-XADDR
|
#05 .Screen/auto DEO
|
||||||
( init )
|
( init )
|
||||||
#ff ;draw-eye/last STA
|
#ff ;draw-eye/last STA
|
||||||
#ff ;draw-tail/last STA
|
#ff ;draw-tail/last STA
|
||||||
|
|
Loading…
Reference in New Issue