// Exercicio 6 de MC930 para POV-ray
// Last edited on 2000-11-09 12:10 by Alencar Junior
// RA: 950060
#include "textures.inc"
background { color rgb <1,1,1> }  //to make the patch easier to see
  light_source { <100, 100, -200>
    color rgb <1,1,1> }
  plane { y, -12
    texture {
      pigment {
        checker
        color rgb <0,1,0>
        color rgb <1,0,0>
      }
    }
 }

camera {
  location  < 0.00, 20.00, -30.00 >
  right     < 2.40, 0.00, 0.00 >
  up        < 0.00, 0.00, 1.80 >
  sky       < 0.00, 0.00, 1.00 >
  look_at   < 0.00, 0.00, 0.00 >
} 

#declare pclips =
sphere {
    < 0.00, 0.00, 0.00 >, 4.00
   texture {pigment { DMFWood4
                      scale 4 }
   finish {phong 1} }

  }

#declare pclipsFuro =
box {
  <-2,0,-2>,
  <2,5,2>
  texture{pigment { color rgb <1,1,1> } }
  }


#declare Mobili =
 prism {
    linear_sweep
    linear_spline
    -4, // sweep the following shape from here ...
    4, // ... up through here
    3, // the number of points making up the shape ...
    <0,0>, <-12,15>, <0,15>
    texture {pigment { DMFWood4
                      scale 4 }
   finish {phong 1} }
  }

#declare Mobili2 =
box {
  <-10,-4,-4>,
  <0,8,4>
  texture {pigment { DMFWood4
                      scale 4 }
   finish {phong 1} }
}

#declare Mobili2Furo =
box {
  <-8,0,-2>,
  <2,9,2>
  texture{pigment { color rgb <1,1,1> } }
}


#declare Pcaneta =
box {
  <20,-4,-4>,
  <30,8,4>
  texture {pigment { DMFWood4
                      scale 4 }
   finish {phong 1} }
}

#declare PcanetaFuro =
box {
  <22,0,-2>,
  <28,9,2>
  texture{pigment { color rgb <1,1,1> } }
}

#declare PcanetaBase =
cylinder { 				
    < 25, -4, 0 >,
    < 25, 0, 0 >,
    7.5
    texture {pigment { DMFWood4
                      scale 4 } }
}

object {
  Mobili
  rotate y*(-90)
  rotate x*(90)
  translate <15,-4,0>
  }

difference{
  object {Mobili2}
  object {Mobili2Furo}
}

difference {
  object{pclips}
  object{pclipsFuro}
  translate <-20,0,0>
}


difference{
  object {Pcaneta}
  object {PcanetaFuro}
}

object {PcanetaBase}