%
%	Filename: mandelplot.m
%
function mandelplot(run,anz,filename)
my_res = 512;
my_x = 0.87485;
my_y = 0.75145;
my_log_r0 = 1.5;
my_log_r1 = -12;
my_log_r = my_log_r0 + my_log_r1 - my_log_r0*(run-1)/anz;
my_r = exp(my_log_r);
x1 = my_x - my_r;
x2 = my_x + my_r;
y1 = my_y - my_r;
y2 = my_y + my_r;
x=[x1:(x2-x1)/my_res:x2];
y=[y1:(y2-y1)/my_res:y2];
m=zeros(my_res);
m=mandelbrot(my_res,x1,x2,y1,y2);

%clf;surf(x,y,m)
%axis tight;
%shading interp; map=colormap;
%map(1,3)=0;
%colormap(map);
%view(2)

imwrite(m,filename);
end
