//Steiner's Roman Surface
//Rotating animation
//by Adam Coffman

#include "colors.inc"
#include "stones.inc"
camera {
  location  <1.1, 1.1, -1.45>
  look_at   <0.0, 0.0,  0.0>
}
background {rgb <1,1,1>}
poly { 4 <
  0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 
  0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 0>
  sturm
  bounded_by { box { <-0.5,-0.5,-0.5> ,<0.5,0.5,0.5> } }
  clipped_by { bounded_by }   
  texture { T_Stone15
            scale<1.3,1.3,1.3>
            rotate<0,-90,0> rotate<105,0,0> rotate<0,0,180>
  }                                             
  finish { phong 0.6
           phong_size 30
           ambient 0.6
           diffuse 0.4
           reflection 0    
  }  
  scale 1.6        
  rotate<0,-clock*360,0>
}
light_source { <14, 20, -3> color White }       
light_source { <0, -4, -0.5> color rgb<0.5,0.5,0.5> }