//Description:
// A Tanglecube warping animation
// appears to be some odd flower unfolding

/* use as .ini file for rendering

[350x350, AA 0.3 Tangle]
Width=350
Height=350
Antialias=On
Antialias_Threshold=0.3
Initial_Clock=25
Final_Clock=-25
Initial_Frame=0
Final_Frame=100
warning_console=off

*/  

//Author: Ben Scheele
//Date: 4-29-2004


global_settings{ max_trace_level 15 }

#declare clock2 = pow(clock,3); 

camera{ 
  location <8,0,-4>
  up y
  right x
  look_at -.25*y
  angle 24
} 

background{ rgb 1 }  


#macro ls(h,d)

  light_source{ h*1*d rgb d }

#end

ls(1,x)
ls(1,y)
ls(1,z)
ls(-1,x)
ls(-1,y)
ls(-1,z)

  
#declare P = -1+2*clock2;  
#declare a = 1;
#declare b = -1.5;
#declare R = 1;
quartic {
<
a,0,0,0,0,
0,0,0,0,b,
P,0,0,0,0,
0,0,0,0,0,
a*P,0,0,a*P,0,
b*clock2,0,0,0,0,
a,0,b,0,R
>
  sturm
                           // remove visible container surface

  pigment{ rgb <.7,.3,.1> }
  
  finish{ ambient 0 diffuse .35 phong .5 
          reflection { .5 1 } 
          metallic .5 specular.5 roughness .002
  } 

}