// Fract 01
/*
camera{location <1.75,4,5.5> look_at 0 up z sky z angle 25}
light_source{20*z,1}
#declare n=4;
#declare f=function(i,x,y,z,xc,yc,zc) {select(i>0 & x*x+y*y+z*z<4, 0, sqrt(x*x+y*y+z*z),f(i-1,pow(x*x+y*y+z*z,n/2)*cos(n*atan2(y,x))*cos(n*atan2(z,sqrt(x*x+y*y)))+xc,pow(x*x+y*y+z*z,n/2)*sin(n*atan2(y,x))*cos(n*atan2(z,sqrt(x*x+y*y)))+yc,-pow(x*x+y*y+z*z,n/2)*sin(n*atan2(z,sqrt(x*x+y*y)))+zc,xc,yc,zc))};
isosurface{function{f(24,0,0,0,x,y,z)} threshold 0.5 max_gradient 1000 contained_by{sphere{0,1.5}} pigment{rgb 1}}
*/

// Fract 02
/*
camera{location <-3.5,5,4> look_at <-0.5,0,0.4> up z sky z angle 25}
light_source{20*z,1}
#declare f=function(i,x,y,z,xc,yc,zc) {select(i>0 & x*x+y*y+z*z<4, 0, sqrt(x*x+y*y+z*z), f(i-1,x*x-y*y-z*z+xc,2*x*y+yc,-2*x*z+zc,xc,yc,zc))};
isosurface{function{f(24,x,y,z,x,y,z)} threshold 2 max_gradient 33566 contained_by{sphere{<-0.5,0,0>,2}} pigment{rgb 1}}
*/

// Fract 03
camera{location <-2.5,5,5> look_at <-0.25,0.1,0.3> up z sky z angle 25}
light_source{20*z,1}
#declare f=function(i,x,y,z,xc,yc,zc) {select(i>0 & x*x+y*y+z*z<4, 0, sqrt(x*x+y*y+z*z), f(i-1,(x*x-y*y)*(1-z*z/(x*x+y*y))+xc,2*x*y*(1-z*z/(x*x+y*y))+yc,-2*z*sqrt(x*x+y*y)+zc,xc,yc,zc))};
isosurface{function{f(24,x,y,z,x,y,z)} threshold 0.25 max_gradient 100 contained_by{sphere{<-0.5,0,0>,2}} pigment{rgb 1}}
/**/

/*
#version 3.7;
global_settings { assumed_gamma 2.2 }

// #include "colors.inc"
// #include "textures.inc"
// #include "math.inc"

camera{
 location <1.75,4,-5.5>
 look_at <0.0, 0.0, 0.0>
 up y
 sky y
 angle 25
}

light_source{<-20.00, 30.00, -20.00> color rgb < 1.0, 0.498039, 0.0 >} // color Coral
light_source{<20.00, -30.00, 0.00> color rgb < 0.847059, 0.847059, 0.74902 >} //color Wheat

#declare n=6;

#declare f=function(i,x,y,z,xc,yc,zc) {select(i>0 & x*x+y*y+z*z<4, 0, sqrt(x*x+y*y+z*z),

f(i-1,pow(x*x+y*y+z*z,n/2)*cos(n*atan2(y,x))*cos(n*atan2(z,sqrt(x*x+y*y)))+xc,
        pow(x*x+y*y+z*z,n/2)*sin(n*atan2(y,x))*cos(n*atan2(z,sqrt(x*x+y*y)))+yc,
        -pow(x*x+y*y+z*z,n/2)*sin(n*atan2(z,sqrt(x*x+y*y)))+zc,xc,yc,zc))};

isosurface{
 function{f(24,0,0,0,x,y,z)}
 threshold 2
 max_gradient 33566 // found by Povray: 33566
 contained_by{sphere{0,1.5}}
 pigment{rgb 1}
}
*/