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

(polycat.tal) Cleanup

This commit is contained in:
neauoire 2022-03-13 20:39:03 -07:00
parent 9e9313d064
commit 6ffedca0b4
1 changed files with 28 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
projects/examples/demos/polycat.tal
View File

@ -1,11 +1,5 @@
( 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
|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
@ -33,10 +27,10 @@
( vectors )
;on-mouse .Mouse/vector DEO2
( find center )
.Screen/width DEI2 2// .cat/x STZ2
.Screen/height DEI2 2// .cat/y STZ2
( set screen mode )
AUTO-XADDR
.Screen/width DEI2 #01 SFT2 .cat/x STZ2
.Screen/height DEI2 #01 SFT2 .cat/y STZ2
( set screen mode auto-x )
#05 .Screen/auto DEO
( init )
#ff ;draw-eye/last STA
#ff ;draw-tail/last STA