/*=========================================================
      
  Metodi e Modelli Matematici          
  Gian Marco Todesco, ottobre 2007
  http://archinet.uniroma3.it/mate/metodi/2007
  
=========================================================*/

#include "colors.inc"
#include "textures.inc"

camera {
  location 2*<0,1,-4>
  right x*image_width/image_height
  look_at 0
  angle 50
}
 
 
light_source {<5,7,-5> color 1 }
light_source {<-5,7,-5> color 1 }


plane {y,-2 pigment {White}}

#declare Pulse = 0.5 + 0.5*sin(clock*pi*2*2);
#declare Radius = (1-Pulse) * 1 + sqrt(2) * Pulse;

union {

  box {-1,1 
    texture {
      Yellow_Pine 
      scale 5 
      rotate 20*y 
      rotate -20*x 
    }
  }  
  
  sphere {0,Radius 
    texture {
      pigment {Green*(1-Pulse) + Yellow*Pulse }
      finish {Metal}
    }
  }

  rotate (30+360*clock)*y
  rotate (-20+360*clock)*x
}