12-22-2013, 09:29 PM
This is an approximation which uses the triangle_p function to display the Mandelbrot set. This is much faster about 20 secs) than iterating through all pixels but still fairly slow and the resulting image is blur (a bit like over compressed jpeg). It also consumes a fair amount of memory due to usage of very large matrices. In other words, this is not very nice nor practical, just experimental...
Possible improvements:
- is it possible to somehow use the ITERATE function and achieve faster results?
- would be nice to use cursor and zoom (may be with a box?)
- implement better palette
If anybody can think of possible optimizations, please do not hesitate to share ideas.
Possible improvements:
- is it possible to somehow use the ITERATE function and achieve faster results?
- would be nice to use cursor and zoom (may be with a box?)
- implement better palette
If anybody can think of possible optimizations, please do not hesitate to share ideas.
Code:
grid, color;
func(c);
export Mandel()
begin
local cx:=-0.5, cy:=0, zoom:=80, N:=100;
local minx,miny,dx,dy;
minx:= cx-160/zoom;
miny:=cy-119/zoom;
dx:=320/N/zoom;
dy:=240/N/zoom;
// Create the grid
grid:=makemat(((I-1)*320/N,(J-1)*240/N),N+1,N+1);
color:=makemat(func((minx+I*dx,miny+J*dy)),N+1,N+1);
triangle_p(G0,grid,color);
wait(0);
end;
func(c)
begin
local idxcolor,i:=0, z:=0, max:=50;
while i<max do
z:=z^2+c;
if abs(z)>=2 then
idxcolor:=2*pi*i/max;
return RGB(255*(1+sin(idxcolor))/2,0,255*(1+cos(idxcolor))/2);
end;
i:=i+1;
end;
return RGB(0,0,0);
end;