mirror of
https://github.com/irmen/prog8.git
synced 2024-11-03 13:07:54 +00:00
27 lines
533 B
Lua
27 lines
533 B
Lua
%import c64utils
|
|
|
|
~ main {
|
|
|
|
const uword width = 40
|
|
const uword height = 25
|
|
|
|
sub start() {
|
|
|
|
uword anglex
|
|
uword angley
|
|
ubyte color
|
|
|
|
while true {
|
|
word x = sin8(msb(anglex)) as word
|
|
word y = cos8(msb(angley)) as word
|
|
ubyte xx=msb(x*39) + 20 ; -127..127 -> 0..39
|
|
ubyte yy=msb(y*24) + 12 ; -127..127 -> 0..24
|
|
c64scr.setchrclr(xx, yy, 81, color)
|
|
|
|
anglex+=800
|
|
angley+=947
|
|
color++
|
|
}
|
|
}
|
|
}
|