//Torus, intersecting a tangent plane in a quartic curve
//Major radius constant, minor radius variable
//by Adam Coffman


global_settings { max_trace_level 100 }

#include "shapes.inc"
#include "colors.inc"
#include "golds.inc"
background { color White }
#declare T=17*clock+0.15;
  
#declare gadget = union{
  torus {6.0, T                                                     
         texture {
                  pigment { color <.9,.9,1,.7>}  
                 }
         finish {                     
                  diffuse 0.6
                  ambient 0.5
                 }                   
         bounded_by { box { <-100,-100,-100>, <100,100,6-T> } }
         clipped_by { bounded_by }           

   }                 
  torus {6.0, T                                                     
          texture{T01}
         finish {
                  ambient 0.45        
                  phong 0.6
                  phong_size 15   

                 }                   
         bounded_by { box { <-100,-100,6-T>, <100,100,100> } }
         clipped_by { bounded_by }          
   }                                   
  }

object{gadget rotate y*-45}
  
light_source { <-50.0, 100, -80.0> color White }
light_source { <42, 0, 0> color White }
light_source { <-42, 0, 0> color White }
light_source { <0, 0, -42> color White }
light_source { <0, 0, 42> color White }
   
camera {
   location <0.0, 32.0, -40.0>
   look_at <0, 0, 0>
}