prog8/examples/swirl-float.p8
2019-07-29 23:11:13 +02:00

25 lines
463 B
Lua

%import c64utils
%import c64flt
main {
const uword width = 40
const uword height = 25
sub start() {
float t
ubyte color
while true {
float x = sin(t)
float y = cos(t*1.1356)
ubyte xx=(x * width/2.2) + width/2.0 as ubyte
ubyte yy=(y * height/2.2) + height/2.0 as ubyte
c64scr.setcc(xx, yy, 81, color)
t += 0.08
color++
}
}
}