prog8/examples/cx16/swirl.p8
2020-09-09 22:53:34 +02:00

32 lines
559 B
Lua

%target cx16
%import cx16lib
%import cx16textio
%zeropage basicsafe
main {
const uword width = 79
const uword height = 59
struct Ball {
uword anglex
uword angley
ubyte color
}
sub start() {
Ball ball
repeat {
ubyte x = msb(sin8u(msb(ball.anglex)) as uword * width)
ubyte y = msb(cos8u(msb(ball.angley)) as uword * height)
txt.setcc(x, y, 81, ball.color)
ball.anglex+=266
ball.angley+=215
ball.color++
}
}
}