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

Reverse ball rotation after bouncing.

Browse source
This commit is contained in:
d_m 2023-05-04 18:16:13 -04:00 committed by Devine Lu Linvega
parent 9416a0e813
commit 11a893d10d
1 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
projects/examples/demos/amiga.tal
View file

@ -8,12 +8,14 @@
@ball &x $2 &y $2 &vx $2 &vy $2
@timer $1
@frame $1
@direction $1
(
@|vectors )
|0100
( variables )
#01 .direction STZ
( vectors )
;on-frame .Screen/vector DEO2
( theme )
@ -42,7 +44,7 @@ BRK
( reset timer )
[ LIT2 00 -timer ] STZ
( 12 frames animation )
.frame LDZ INC DUP #0c NEQ MUL .frame STZ
.frame LDZk .direction LDZ ADD #0c DIVk MUL SUB SWP STZ
move-ball
BRK
@ -50,11 +52,18 @@ BRK
(
@|core )
@flip-direction ( zp^ -- )
LDZ2k #ffff EOR2 ( INC2 ) ROT STZ2
.direction LDZk #0a EOR SWP STZ
JMP2r
@check-flip-vx ( x -- x )
( left ) DUP2 #0010 LTH2 ?&flip
( right ) DUP2 .Screen/width DEI2 #0050 SUB2 GTH2 ?&flip !&else
&flip .ball/vx LDZ2k #ffff EOR2 ( INC2 ) ROT STZ2
&flip .ball/vx !flip-direction
&else
JMP2r
@ -62,7 +71,7 @@ JMP2r
@check-flip-vy ( y -- y )
( bottom ) DUP2 .Screen/height DEI2 #0050 SUB2 GTH2 ?&flip !&else
&flip .ball/vy LDZ2k #ffff EOR2 ( INC2 ) ROT STZ2
&flip .ball/vy !flip-direction
&else
JMP2r