Curves.pov

#declare e = 2.71828;
#include "textures.inc"
#include "colors.inc"
#include "glass.inc"
camera {
location <0, 0, -10>
look_at <0,0,0>
}
light_source
{
<0,0,-10>
color rgb <1.0, 1.0, 1.0>
shadowless
spotlight
rotate y*clock*-100
}
#declare Ball =
  sphere{<0,0,0>,0.08
    texture{
      pigment{color rgb<1,0.8,0>}
      finish {diffuse 0.9 phong 1}
    }// end of texture
  }// end of sphere

//------------------------------------
#declare X = -5;    // start value X
#declare EndX = 5;  //   end value X
#declare Step = 0.001;// step value
#declare Sine =
union{
#while ( X < EndX + Step)//loop start
  object{ Ball translate <X,sin(X),0>}

#declare X = X + Step; // next X
#end // ------------------- loop end
};
#declare X = -5;    // start value X
#declare EndX = 5;  //   end value X
#declare Step = 0.001;// step value
#declare Curvedd =
union{
#while ( X < EndX + Step)//loop start
  object{ Ball pigment {color rgb<0,0,1>} translate <X,cos(X)+cos(pow(X,2)),0>}

#declare X = X + Step; // next X
#end // ------------------- loop end
};

#declare X = 0;    // start value X
#declare EndX = 6.28;  //   end value X
#declare Step = 0.001;// step value
#declare Cardioid =
union{
#while ( X < EndX + Step)//loop start
  #declare r = 1 - sin(X);
  object{ Ball pigment {color rgb<0,1,0>} translate <r*cos(X),r*sin(X),0>}

#declare X = X + Step; // next X
#end}; // ------------------- loop end

#declare X = 0;    // start value X
#declare EndX = 6.28;  //   end value X
#declare Step = 0.001;// step value
#declare Butterfly =
union{
#while ( X < EndX + Step)//loop start
  #declare r = pow(e,sin(X)) - 2*cos(4*X) + pow(sin((2*X-pi)/24),5);
  object{ Ball texture{Polished_Brass} translate <r*cos(X),r*sin(X),0>}

#declare X = X + Step; // next X
#end}; // ------------------- loop end

#declare X = -6.28;    // start value X
#declare EndX = 6.28*2
;  //   end value X
#declare Step = 0.001;// step value
#declare log_spiral =
union{
#while ( X < EndX + Step)//loop start
  #declare b = log(1.61803397)/(3.14159/2);
  #declare r = 1*pow(e,b*X);
  object{ Ball texture{Gold_Metal} translate <r*cos(X),r*sin(X),0>}

#declare X = X + Step; // next X
#end}; // ------------------- loop end


#declare X = -6.28;    // start value X
#declare EndX = 6.28
;  //   end value X
#declare Step = 0.001;// step value
#declare Fermat_spiral =
union{
#while ( X < EndX + Step)//loop start
  #declare r = pow(X,0.5);
  object{ Ball texture{Polished_Brass} translate <r*cos(X),r*sin(X),0>}
  #declare r = -1*pow(X,0.5);
  object{ Ball texture{Polished_Brass} translate <r*cos(X),r*sin(X),0>}
#declare X = X + Step; // next X
#end}; // ------------------- loop end

/*object {Butterfly texture{Jade}}
object {Cardioid}
object {Sine}
object {Curvedd}
object {Fermat_spiral} */
object {log_spiral}


sphere{ <0,0,0>, 1
        texture{T_Glass3
               } // end of texture
        interior
        {I_Glass_Fade_Sqr1}
        finish
        {F_Glass1}
        scale 100
      }