17 lines
393 B
Text
17 lines
393 B
Text
#!/usr/bin/env bx
|
|
use b
|
|
|
|
Main():
|
|
num outside = 16, ox = -0.5, oy = 0, r = 1.5
|
|
long i, max_i = 100, rb_i = 30
|
|
space()
|
|
uint32_t *px = pixel()
|
|
num d = 2*r/h, x0 = ox-d*w_2, y0 = oy+d*h_2
|
|
for(y, 0, h):
|
|
cmplx c = x0 + (y0-d*y)*I
|
|
repeat(w):
|
|
cmplx w = 0
|
|
for i=0; i < max_i && cabs(w) < outside; ++i
|
|
w = w*w + c
|
|
*px++ = i < max_i ? rainbow(i*359 / rb_i % 360) : black
|
|
c += d
|