Simon Adameit wrote:
>
>Its slow but it can be done:
>
>camera{
> location -z
> look_at 0
>}
>
>#declare MaxIter = 5;
>
>#macro _Zr(n,I)
> #if(n<I)
>  (_Zr(n+1,I)*_Zr(n+1,I)-_Zi(n+1,I)*_Zi(n+1,I)+Re)
> #else
>  (Zr*Zr-Zi*Zi+Re)
> #end
>#end
>
>#macro _Zi(n,I)
> #if(n<I)
>  (2*_Zr(n+1,I)*_Zi(n+1,I)+Im)
> #else
>  (2*Zr*Zi+Im)
> #end
>#end
>
>#macro MakeFun(n)
> select(n<MaxIter & _Zr(0,n)*_Zr(0,n)+_Zi(0,n)*_Zi(0,n)<4, 0, n,
>  #if(n<MaxIter)
>   MakeFun(n+1)
>  #else
>   0
>  #end
> )
>#end
>
>#declare MandIter=
>function(Re, Im, Zr, Zi, n){
> MakeFun(0)
>}
>
>#declare Mandel = function { MandIter(x, y, x, y, 0)/MaxIter }
>
>plane{z,0
> pigment{ function { Mandel(x,y,z) }
>    color_map { [0 rgb z*.5][1 rgb <.5,.75,1>][1 rgb 0] }
>    scale 0.3
>  }
>  finish { ambient 1 }
>}
>

Thank you for this code. =)
It's a bit too slow but it's nice to see it can be done.
I think I'll use other fractal programs and import the pictures to POV when
I need them.

If you want challenge make a code that can recurse any fractal. Like 2^z+c
etc.

Post a reply to this message