mirror of
https://github.com/irmen/prog8.git
synced 2024-08-23 10:29:40 +00:00
32 lines
559 B
Lua
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++
|
|
}
|
|
}
|
|
}
|