prog8/examples/swirl-float.p8

23 lines
412 B
Plaintext
Raw Normal View History

%import c64utils
%import c64flt
2019-07-29 21:11:13 +00:00
main {
const uword width = 40
const uword height = 25
sub start() {
float t
ubyte color
2020-03-14 17:11:24 +00:00
forever {
2020-07-01 20:23:46 +00:00
ubyte xx=(sin(t) * width/2.2) + width/2.0 as ubyte
ubyte yy=(cos(t*1.1356) * height/2.2) + height/2.0 as ubyte
2019-01-06 20:46:35 +00:00
c64scr.setcc(xx, yy, 81, color)
t += 0.08
color++
}
}
}