end
end
-local function make_mandelbrot_pigment()
-
- local maxiter = 100
- local set_colour = {0,0,0}
+local function make_mandelbrot_pigment(set_colour, max_iter)
local function get_col(x,y,cx,cy,iter)
if iter == 0 then
2*x*y + cy,
cx, cy, iter-1)
end
-
- local xp = x^2 - y^2 + cx
- local yp = 2*x*y + cy
end
return function (x,y)
- get_col(0,0,x,y,maxiter)
+ get_col(0,0,x,y,max_iter)
end
end
make_flat_texture = make_flat_texture,
make_count_texture = make_count_texture,
make_solid_pigment = make_solid_pigment,
- make_checkered_pigment = make_checkered_pigment
+ make_checkered_pigment = make_checkered_pigment,
+ make_mandelbrot_pigment = make_mandelbrot_pigment
}
return Textures