prog8/compiler/examples/swirl.p8
2018-10-05 17:44:29 +02:00

34 lines
741 B
Lua

%option enable_floats
~ main {
const word width = 320
const word height = 200
sub start() {
_vm_gfx_clearscr(0)
_vm_gfx_text(2, 2, 7, "Swirl !!!")
float x
float y
float t
byte color
while(1) {
x = sin(t*1.01) + cos(t*1.1234)
y = cos(t) + sin(t*0.03456)
_vm_gfx_pixel(screenx(x), screeny(y), color//16)
t += 0.01
color++
}
}
sub screenx(x: float) -> word {
return floor(x * flt(width)/4.1) + width // 2 ; @todo const-fold x*y/z
}
sub screeny(y: float) -> word {
return floor(y * flt(height)/4.1) + height // 2 ; @todo const-fold x*y/z
}
}