// 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} } */