#include "colors.inc"


background{ color rgb < 0.00, 0.00, 0.00 > }

light_source {
  < 0.00, 0.00, 3.00 >
  color rgb < 1.00, 1.00, 1.00 >
} 

camera {
  location  <  0.00, 1.50, 5.00 >
  look_at   <  0.00, 1.20, 0.00 >
} 



#declare BracoE =
  sphere
  	{ < 0.0, 0.0, 0.0 >,
          0.5
          pigment { color Green }
	translate < 1.5, 0.5 , 0>
	}

#declare BracoD =
  sphere
  	{ < 0.0, 0.0, 0.0 >,
          0.5
          pigment { color Green }
	translate < -1.5, 0.5 , 0>
	}



#declare R =
   text { ttf "timrom.ttf" "R" 0, 0
    pigment { color White }
    rotate y*180
    translate < 0.2, 0.0, 1.0 >
   }


#declare Corpo =
  sphere
  	{ < 0.0, 0.0, 0.0 >,
          1
          pigment { color Blue }
	}


#declare Cabeca =
  sphere
  	{ < 0.0, 1.75, 0.0 >,
          0.75
          pigment { color White }
	}



#declare Fixo =
union  {
  object { Corpo }
  object { Cabeca }
  object { R }
}



object { Fixo }

 #if ( clock <= 0.5 )
    object { BracoE
      translate < -2*clock, 0, 2*clock>
    }
    object { BracoD
      translate < 2*clock, 0, 2*clock>
    }


  #else

    object { BracoE
      translate < -1.0+2*(clock-0.5), 0, 1-2*(clock-0.5)>
    }
    object { BracoD
      translate < 1.0-2*(clock-0.5), 0, 1-2*(clock-0.5)>
    }


  #end