// Exercicio de Computaçao Grafica - Stolfi
// Solange Tieko Sakaguti - Ra007847 - 30/06/2001
// Last edited on 2001-07-31 12:37:26 by stolfi

#include "colors.inc"

background{Gray}

light_source {
  <10,50,100>
  White
} 

camera {
  // location  <100, 100, 100>
  location < -120, 0, 120 >
  right     <-1.2,0,0>
  up        <0,0,0.9>
  sky       <0,0,1>
  look_at   <0,0,0>
} 

#declare A01 = <0,0,0>;
#declare A02 = <10,0,10>;
#declare A03 = <20,0,20>;
#declare A04 = <30,0,30>;
#declare A05 = <0,20,0>;
#declare A06 = <10,20,10>;
#declare A07 = <25,20,25>;
#declare A08 = <29,20,29>;
#declare A09 = <0,40,0>;
#declare A10 = <5,40,5>;
#declare A11 = <10,40,10>;
#declare A12 = <15,40,15>;
#declare A13 = <0,50,0>;
#declare A14 = <1,50,1>;
#declare A15 = <2,50,2>;
#declare A16 = <3,50,3>;

#declare B01 = <0,-39,0>;
#declare B02 = <5,-39,5>;
#declare B03 = <10,-39,10>;
#declare B04 = <15,-39,15>;
#declare B05 = <0,-30,0>;
#declare B06 = <5,-30,5>;
#declare B07 = <15,-30,15>;
#declare B08 = <21,-30,21>;
#declare B09 = <0,-10,0>;
#declare B10 = <10,-10,10>;
#declare B11 = <20,-10,20>;
#declare B12 = <30,-10,30>;
#declare B13 = <0,0,0>;
#declare B14 = <10,0,10>;
#declare B15 = <20,0,20>;
#declare B16 = <30,0,30>;

#declare C01 = <13,-62,13>;
#declare C02 = <14,-62,14>;
#declare C03 = <15,-62,15>;
#declare C04 = <16,-62,16>;
#declare C05 = <13,-55,13>;
#declare C06 = <15,-55,13>;
#declare C07 = <20,-55,20>;
#declare C08 = <24,-55,24>;
#declare C09 = <13,-50,13>;
#declare C10 = <15,-50,13>;
#declare C11 = <20,-50,20>;
#declare C12 = <23,-50,23>;
#declare C13 = <14,-40,14>;
#declare C14 = <14,-40,14>;
#declare C15 = <14,-40,14>;
#declare C16 = <14,-40,14>;

#declare D01 = <10,-62,10>;
#declare D02 = <11,-62,11>;
#declare D03 = <12,-62,12>;
#declare D04 = <13,-62,13>;
#declare D05 = <0,-60,0>;
#declare D06 = <1,-60,1>;
#declare D07 = <2,-60,2>;
#declare D08 = <3,-60,3>;
#declare D09 = <0,-55,0>;
#declare D10 = <1,-55,1>;
#declare D11 = <2,-55,2>;
#declare D12 = <3,-55,3>;
#declare D13 = <0,-50,0>;
#declare D14 = <1,-50,1>;
#declare D15 = <2,-50,2>;
#declare D16 = <3,-50,3>;



#declare patchA = 
  bicubic_patch {
    type 1
    flatness 0.001
    u_steps 5
    v_steps 5
      A01, A02, A03, A04,
      A05, A06, A07, A08,      
      A09, A10, A11, A12,
      A13, A14, A15, A16
  }

#declare patchB = 
  bicubic_patch {
    type 1
    flatness 0.001
    u_steps 5
    v_steps 5
      B01, B02, B03, B04,
      B05, B06, B07, B08,      
      B09, B10, B11, B12,
      B13, B14, B15, B16
  }

#declare patchC = 
  bicubic_patch {
    type 1
    flatness 0.001
    u_steps 5
    v_steps 5
      C01, C02, C03, C04,
      C05, C06, C07, C08,      
      C09, C10, C11, C12,
      C13, C14, C15, C16
  }

#declare patchD = 
  bicubic_patch {
    type 1
    flatness 0.001
    u_steps 5
    v_steps 5
      D01, D02, D03, D04,
      D05, D06, D07, D08,      
      D09, D10, D11, D12,
      D13, D14, D15, D16
  }



sphere {A01, 1 texture {pigment{Red}}}
sphere {A02, 1 texture {pigment{Red}}}
sphere {A03, 1 texture {pigment{Red}}}
sphere {A04, 1 texture {pigment{Red}}}
sphere {A05, 1 texture {pigment{Red}}}
sphere {A06, 1 texture {pigment{Red}}}
sphere {A07, 1 texture {pigment{Red}}}
sphere {A08, 1 texture {pigment{Red}}}
sphere {A09, 1 texture {pigment{Red}}}
sphere {A10, 1 texture {pigment{Red}}}
sphere {A11, 1 texture {pigment{Red}}}
sphere {A12, 1 texture {pigment{Red}}}
sphere {A13, 1 texture {pigment{Red}}}
sphere {A14, 1 texture {pigment{Red}}}
sphere {A15, 1 texture {pigment{Red}}}
sphere {A16, 1 texture {pigment{Red}}}

sphere {B01, 1 texture {pigment{Red}}}
sphere {B02, 1 texture {pigment{Red}}}
sphere {B03, 1 texture {pigment{Red}}}
sphere {B04, 1 texture {pigment{Red}}}
sphere {B05, 1 texture {pigment{Red}}}
sphere {B06, 1 texture {pigment{Red}}}
sphere {B07, 1 texture {pigment{Red}}}
sphere {B08, 1 texture {pigment{Red}}}
sphere {B09, 1 texture {pigment{Red}}}
sphere {B10, 1 texture {pigment{Red}}}
sphere {B11, 1 texture {pigment{Red}}}
sphere {B12, 1 texture {pigment{Red}}}
sphere {B13, 1 texture {pigment{Red}}}
sphere {B14, 1 texture {pigment{Red}}}
sphere {B15, 1 texture {pigment{Red}}}
sphere {B16, 1 texture {pigment{Red}}}

sphere {C01, 1 texture {pigment{Red}}}
sphere {C02, 1 texture {pigment{Red}}}
sphere {C03, 1 texture {pigment{Red}}}
sphere {C04, 1 texture {pigment{Red}}}
sphere {C05, 1 texture {pigment{Red}}}
sphere {C06, 1 texture {pigment{Red}}}
sphere {C07, 1 texture {pigment{Red}}}
sphere {C08, 1 texture {pigment{Red}}}
sphere {C09, 1 texture {pigment{Red}}}
sphere {C10, 1 texture {pigment{Red}}}
sphere {C11, 1 texture {pigment{Red}}}
sphere {C12, 1 texture {pigment{Red}}}
sphere {C13, 1 texture {pigment{Red}}}
sphere {C14, 1 texture {pigment{Red}}}
sphere {C15, 1 texture {pigment{Red}}}
sphere {C16, 1 texture {pigment{Red}}}

sphere {D01, 1 texture {pigment{Red}}}
sphere {D02, 1 texture {pigment{Red}}}
sphere {D03, 1 texture {pigment{Red}}}
sphere {D04, 1 texture {pigment{Red}}}
sphere {D05, 1 texture {pigment{Red}}}
sphere {D06, 1 texture {pigment{Red}}}
sphere {D07, 1 texture {pigment{Red}}}
sphere {D08, 1 texture {pigment{Red}}}
sphere {D09, 1 texture {pigment{Red}}}
sphere {D10, 1 texture {pigment{Red}}}
sphere {D11, 1 texture {pigment{Red}}}
sphere {D12, 1 texture {pigment{Red}}}
sphere {D13, 1 texture {pigment{Red}}}
sphere {D14, 1 texture {pigment{Red}}}
sphere {D15, 1 texture {pigment{Red}}}
sphere {D16, 1 texture {pigment{Red}}}

#declare metade = 
  union{
    object {
        patchA 
        texture {pigment{Blue}}}
    object {
        patchB 
        texture {pigment{Green}}}
    object {
        patchC 
        texture {pigment{Red}}}
    object {
        patchD 
        texture {pigment{Magenta}}}
  }

object{metade} 

// added by stolfi:
object{metade scale <-1,1,-1>}