// Last edited on 2003-06-28 12:44:21 by stolfi

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

background{ color Gray80}

#declare cam = < 0.00, 10.00, -30.00 >;
#declare ctr = <0,-0.5,0>;
camera {
  location  ctr + 1.25*cam
  right 1.0*x
  up 0.75*y 
  sky y
  look_at ctr
} 

light_source { ctr + 100*vrotate(<cam.x,10,cam.z>, -30*y) color 1.2*White } 
light_source { ctr + 100*vrotate(<cam.x,8,cam.z>, +45*y) color 0.7*White } 
light_source { ctr + 100*vrotate(<cam.x,3,cam.z>, +5*y) color 0.6*White } 

#if (clock < 0.3)
  #declare mov1 = 21.66*clock*x;
#else
  #declare mov1 = 6.5*x;
#end

#if (clock > 0.4)
  #if (clock < 0.8)
    #declare mov2 = -225*(clock-0.4)*z;
  #else 
    #declare mov2 = -90*z;
  #end
#else 
  #declare mov2 = 0*z;
#end

#if (clock > 0.8)
  #declare mov3 = -25*(clock-0.8)*y;
#else
  #declare mov3 = 0*y;
#end

#if (clock > 0.5)
  #declare mov4 = 6.5*x + 3.0*(clock-0.3)*x -17*(clock-0.5)*y;
#else
  #declare mov4 = mov1;
#end

#if (clock > 0.5)
  #declare mov5 = 8*(clock-0.5)*x -28*(clock-0.5)*y;
#else
  #declare mov5 = 0*x +0*y;
#end

#declare um =
  box {
    <-9, 2.0, -1>,
    <-4, 4.0,  3>
    texture {Rusty_Iron}
  }

#declare dois =
  difference { 
    box {
      <1.0, -2.0, -1>,
      <5.0, 8.0,  3>
      texture {Rusty_Iron}
    }
    box {
      <0.9, 1.9, -1.1>,
      <2.6, 4.1,  3.1>
      pigment {color Gray80}
    }
  }

#declare tres = 
  difference {  
    box {
      <-5.0, -13.0, -1>,
      <11.0, -7.0,  3>
      texture {Rusty_Iron}
    }
    box {
      <-2.1, -10.1, -1.1>,
      <8.1, -6.9,  3.1>
      pigment {color Blue}
    }
  } 

#declare rebimboca =
  union {
    object {um translate mov1}
    object {dois}
  }

#declare letra1 =
  text {
    ttf "arial.ttf"
    "A"
    0.15.0
    translate <-4, 3, 0> scale 2
  }

#declare letra2 =
  text {
    ttf "arial.ttf"
    "B"
    0.15.0
    translate <1.2, 4.8, 0> scale 2
  }

#declare letra3 =
  text {
    ttf "arial.ttf"
    "C"
    0.15.0
    translate <0, -8.5, 0> scale 2
  }

object {rebimboca rotate mov2 translate mov3}
object {tres}
object {letra1 translate mov4}
object {letra2 translate mov5}
object {letra3}