prog8/examples/swirl-float.p8

25 lines
460 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 {
float x = sin(t)
float y = cos(t*1.1356)
2019-01-06 20:46:35 +00:00
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++
}
}
}