mirror of
https://github.com/irmen/prog8.git
synced 2024-11-23 22:33:12 +00:00
23 lines
508 B
Lua
23 lines
508 B
Lua
%import textio
|
|
%import floats
|
|
%zeropage floatsafe
|
|
|
|
; Note: this program is compatible with C64 and CX16.
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
|
|
float ball_t
|
|
ubyte ball_color
|
|
|
|
repeat {
|
|
ubyte xx=(sin(ball_t) * txt.DEFAULT_WIDTH/2.1) + txt.DEFAULT_WIDTH/2.0 as ubyte
|
|
ubyte yy=(cos(ball_t*1.1356) * txt.DEFAULT_HEIGHT/2.1) + txt.DEFAULT_HEIGHT/2.0 as ubyte
|
|
txt.setcc(xx, yy, 81, ball_color)
|
|
ball_t += 0.08
|
|
ball_color++
|
|
}
|
|
}
|
|
}
|