// Exercicio 5 de laboratorio - 07/11/2000
// Marilia Goulart Honorio - 971259

#include "colors.inc"

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

light_source {
  < 30.00, 20.00, 20.00 >
  color rgb < 1.00, 1.00, 1.00 >
}


camera {
//  location  <  40.00, 16.00, 8.00 >
//  location  <  4.00, 16.00, 40.00 >
  location  <  36.00, 8.00, 15.00 >
  right     < -1.20, 0.00, 0.00 >
  up        <  0.00, 0.00, 0.90 >
  sky       <  0.00, 0.00, 1.00 >
  look_at   <  4.00, 16.00, 8.00 >
}

//  camera {
//    location <45, 5, -35>
//    look_at 0
//  }

//  background { color rgb <0.5,0.5,1> }  //to make the patch easier to see

//  light_source { <300, 300, -700> White }

//  plane { y, -12
//    texture {
//      pigment {
//        checker
//        color Green
//        color Yellow
//      }
//    }
//  }


#declare TeePeeTex =
  texture {
    pigment {
      color rgb <1, 0.65, 0.65,>
    }
    finish {
      ambient .2
      diffuse .6
    }
  }


#declare portaClips =
  sphere{
    <4,4,5>, 4
    pigment {
      gradient y
      color_map {
        [ 0.5  color CornflowerBlue ]
        [ 1.0  color MidnightBlue ]
      }
      scale 2 }
  }

#declare caixaCortaPortaClips =
  box{
    <8,8,5>,
    <0,0,9>
    texture { pigment { color rgbt <1,1,1,1> } }
  }

#declare CloudArea = texture {
    pigment {
      agate
      turbulence 1
      lambda 2
      frequency 2
      color_map {
        [0.0 color rgbf <1, 1, 1, 1>]
        [0.5 color rgbf <1, 1, 1, .35>]
        [1.0 color rgbf <1, 1, 1, 1>]
      }
    }
  }

#declare OceanArea = texture {
      pigment {
        bozo
        turbulence .5
        lambda 2
        color_map {
          [0.00, 0.33 color rgb <0, 0, 1>
                      color rgb <0, 0, 1>]
          [0.33, 0.66 color rgbf <1, 1, 1, 1>
                      color rgbf <1, 1, 1, 1>]
          [0.66, 1.00 color rgb <0, 0, 1>
                      color rgb <0, 0, 1>]
        }
      }
    }

#declare LandArea = texture {
      pigment {
        agate
        turbulence 1
        lambda 1.5
        omega .8
        octaves 8
        color_map {
          [0.00 color rgb <.5, .25, .15>]
          [0.33 color rgb <.1, .5, .4>]
          [0.86 color rgb <.6, .3, .1>]
          [1.00 color rgb <.5, .25, .15>]
        }
      }
    }

#declare portaPapel =
  box{
    <10,32,1>,
    <-2,24,4>
    texture { LandArea }
  }

#declare caixaCortaPortaPapel =
  box{
    <10,32,4>,
    <-2,24,5>
    texture { pigment { color rgbt <1,1,1,1> } }
  }

#declare portaLapis =
  cylinder {
    <2,12,8>,
    <2,20,0>,
    2
//    texture { pigment { Red } }
    texture { CloudArea }
  }

#declare CloudArea = texture {
    pigment {
      agate
      turbulence 1
      lambda 2
      frequency 2
      color_map {
        [0.0 color rgbf <1, 1, 1, 1>]
        [0.5 color rgbf <1, 1, 1, .35>]
        [1.0 color rgbf <1, 1, 1, 1>]
      }
    }
  }

#declare caixaCortaPortaLapis =
  box{
    <8,20,6>,
    <0,10,11>
    texture { pigment { color rgbt <1,1,1,1> } }
  }

#declare base =
  box{
    <8,33,0>,
    <0,0,1>
//    texture { pigment { color rgb < 0.5, 0.5, 1 > } }
    texture { pigment { Gold } }
  }

#declare fundo =
  box{
    <8,33,-2>,
    <0,0,0>
    texture { pigment { color rgbt < 1, 1, 1, 1 > } }
  }

// Aqui está a cena, finalmente:

difference{
  union{
    difference{
      object { portaPapel }
      object { caixaCortaPortaPapel }
    }
    difference{
      object { portaClips }
      object { caixaCortaPortaClips }
    }
    difference{
      object { portaLapis }
      object { caixaCortaPortaLapis }
    }
    difference{
      object {
        portaLapis
        rotate <0,0,180>
        translate<8,30,0>
      }
      object { caixaCortaPortaLapis }
    }
    object { base }
  }
  object { fundo }
}