// Last edited on 2003-06-28 03:48:43 by stolfi

#include "colors.inc"

#declare camX=8;
#declare camY=7;
#declare camZ=5;

camera {
  location  1.35 * <camX , camY, camZ>
  right -4/3*x  up 1.0*y  sky z
  look_at <  6, 0.00, 0.00 >
}

light_source { 50*<  8,  1, 10 > color 1.2*White }
light_source { 50*<  2,  7,  7 > color 0.8*White }
light_source { 50*<  6,  8, 20 > color 0.4*White }

background { Gray75 }

#include "metals.inc"
#include "woods.inc"
#include "glass.inc"
#include "skies.inc"

#declare letra_a = object
{
  text {
    ttf "arial.ttf"
    "A"
    0.15,0
    pigment{White}
  }
}

#declare letra_b = object
{
  text {
    ttf "arial.ttf"
    "B"
    0.15,0
    pigment{White}
  }
}

#declare letra_c = object
{
  text {
    ttf "arial.ttf"
    "C"
    0.15,0
    pigment{White}
  }
}


#declare combustor= union
{
box{
 <0, 0 ,0>,
 <1 ,2, 3>
 pigment{ White}
}
object{ letra_a rotate<90,0,90> translate <1,0,0>  pigment{Red} }
}


#declare bloco_r=union{
  cylinder {
  <0, 0, 0>,
  <0 , 4 ,0>,
   0.5
   pigment{ checker White, Gray60 scale 0.5 }
   rotate <0,0,90>
}
object{ letra_b rotate<90,0,90> translate <-2,1,1>  pigment{Red} }
translate <7 - clock*3.2 ,1,1>
}

#declare basculante=union
{
difference{
  sphere {
  <0,0, 0> 2.1
  pigment {White}
 }

  sphere {
  <0,0, 0> 2
  pigment { Cyan }
 }
 plane{
 <0,0,-1>,0
}
}
object{ letra_c rotate<90,0,90> translate <0,-1,0>  pigment{Red} }
translate <10 - clock*4.5,1,2>
}

#declare seta = object{
  prism {
   linear_sweep
   linear_spline
   0,
   1,
   7,
   <0,0>, <0,4>, <1,4> <-0.5,5> <-2,4> <-1,4>,<-1,0>
   scale 0.2
   rotate <180,0,0>
   translate <8 - 4*clock ,0,4>
   #if(clock<0.5)
     pigment {Black}
   #else
     pigment {White}
   #end
}
}

#declare cena= union{
  object{ combustor}
  object{ bloco_r}
  object{ basculante}
  object{ seta}
}

cena