2019-01-05 01:42:58 +00:00
|
|
|
%import c64utils
|
2019-01-05 15:09:05 +00:00
|
|
|
%import c64flt
|
2019-01-05 01:42:58 +00:00
|
|
|
|
2019-07-29 21:11:13 +00:00
|
|
|
main {
|
2019-01-05 01:42:58 +00:00
|
|
|
|
|
|
|
|
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)
|
2019-01-05 01:42:58 +00:00
|
|
|
t += 0.08
|
|
|
|
|
color++
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
