// Jessi Sherman (HON301)
// Suggested clock values: 1 to 25
// AVI file based on 50 frames  
// This animation shows a lunar eclipse from an imaginary planet with a comet
// streaking across the sky.  There are still a few problems...the sun seems
// to stop producing light at one point.

#include "colors.inc"
#include "textures.inc"
#include "shapes.inc"
#include "metals.inc"
#include "stones1.inc"

global_settings {max_trace_level 5}

light_source { <500, 500, -1000> White }
    
light_source { <10, 12, 0> White }  

light_source { <10, 3, 8> Gold*5 }
  
light_source { <10, 10, -30> White }  

camera {
    location <10, 10, -10>
    look_at <10, 7, 10>                                                                    
  }

plane { z, 50 
        texture {Starfield} 
  }            
  
sphere { <10, -19, -19>, 30
        texture {T_Stone18}
  }                        
  
sphere { <clock, 6, 8>, 3.3
        texture {T_Grnt15}
  } 
  
sphere {<10, 3, 22>, 7
        texture {Tinny_Brass}
  }
  
#declare comet=  union{
        sphere { <0, 0, 0>, 1.25 texture {T_Silver_1E}}
        cone { <0, 0, 0>, 1.25, <5, 1, 0>, .05 texture {Brushed_Aluminum}}
        cone { <0,0,0>, 1, <10, 2, 0>, 0 texture {Brushed_Aluminum}}
  }

object {comet translate <120-(clock*10), 17-(clock*.07), 25> }