prog8/compiler/examples/mandelbrot.p8

40 lines
1.1 KiB
Plaintext
Raw Normal View History

%import c64utils
%option enable_floats
~ main {
2018-10-10 07:21:20 +00:00
const uword width = 320 // 2
const uword height = 256 // 2
const uword xoffset = 40
const uword yoffset = 30
sub start() {
vm_gfx_clearscr(11)
vm_gfx_text(2, 1, 1, "Calculating Mandelbrot Fractal...")
2018-10-10 07:21:20 +00:00
for ubyte pixely in yoffset to yoffset+height-1 {
float yy = (pixely-yoffset as float)/3.6/height+0.4
2018-09-23 00:42:42 +00:00
2018-10-10 07:21:20 +00:00
for uword pixelx in xoffset to xoffset+width-1 {
float xx = (pixelx-xoffset as float)/3.0/width+0.2
float xsquared = 0.0
float ysquared = 0.0
float x = 0.0
float y = 0.0
2018-10-10 07:21:20 +00:00
ubyte iter = 0
2018-10-05 15:44:29 +00:00
while (iter<32 and xsquared+ysquared<4.0) {
y = x*y*2.0 + yy
2018-09-26 23:35:35 +00:00
x = xsquared - ysquared + xx
xsquared = x*x
ysquared = y*y
2018-09-23 00:42:42 +00:00
iter++
}
vm_gfx_pixel(pixelx, pixely, iter)
}
}
vm_gfx_text(11, 21, 1, "Finished!")
}
}