// Exercicio 6  da 7a. aula de Laboratorio - MC930 - Prof. Stolfi
// Eduardo C. Lazarine - RA 970561

#include "colors.inc"
#include "stones.inc"
#include "woods.inc"

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


light_source {
  < 32,32, 26 >
  color rgb < 1.00, 1.00, 1.00 >
} 


camera { 
  location  < 20, 20, 20 >
  right     < 2.40, 0.00, 0.00 >
  up        < 0.00, 0.00, 1.80 >
  sky       < 0.00, 0.00, 1.00 >
  look_at   < 15.00,- 5.00, -15.00 >
} 


#declare raio1 = 0.700;
#declare raio2 = 1.00;         
#declare raio3 = 1.100;
#declare raio4 = 1.5;

#declare base =

box {
   < 2, 2, -1>,
   < 32,12, 0>
   texture { T_Stone25 scale 4 }
}

#declare portalapis = 
 
cylinder {
    
   <6,7,0>,
   <6,7,4>,
   raio4
   open
   texture { T_Wood7 scale 4 }
}


#declare portaclips =

difference {

  box {
        <26,6,0>,
        <29,9,3>
        texture{ T_Wood7 scale 4 }
}

  box {
        <26.2, 6.2, 0.2>
        <28.8, 8.8, 5>
        texture{ T_Wood7 scale 4}
}
}

#declare portapapel =

box {
      <8,9,0>,
      <26,10,1>
      texture { T_Wood7 scale 4}
}


#declare S1 = sphere{ <13.5, 11,1>, raio1 texture{ pigment{color rgb
<0,1,0>} finish {reflection .1}}}

#declare S2 = sphere{ <20.5,11,1>, raio1 texture{ pigment{color rgb
<0,1,0>} finish {reflection .1}}}

#declare S3 = sphere{ <17,11,1>, raio3 texture {pigment {color rgb
<0,0,1>} finish {reflection .1}}}

#declare c1 =

  cone{
        <10,11,0>, raio4
        <10,11,3>, 0
        texture { T_Stone24 scale 4}
}

#declare c2 =

  cone{
       <24,11,0>, raio4
       <24,11,3>, 0
       texture { T_Stone24 scale 4}
}

//-------Finalmente, o bibelo!

//object {cylinder {<0,0,0> <10,0,0> raio1 pigment{Green} }}
//object {cylinder {<0,0,0> <0,10,0> raio1 pigment{Red}  }}
//object {cylinder {<0,0,0> <0,0,10> raio1 pigment{Blue}  }}
object {base}
object {portalapis}
object {portaclips}
object {portapapel}
object {S1}
object {S2}
object {S3}
object {c1}
object {c2}