// Exercicio 7
// Last edited on 2001-07-31 12:29:22 by stolfi

#include "colors.inc"

background{ color rgb < 0.00, 0.53, 0.75 > }

light_source {
  < 4.00, 10.00, 50.00 >
  color rgb < 1.00, 1.00, 1.00 >
} 

camera {
  location  <  12.00, 18.00, 30.00 >
  // location  <  0.00, 35.00, 0.00 >
  right     < -1.20, 0.00, 0.00 >
  up        <  0.00, 0.00, 0.90 >
  sky       <  0.00, 0.00, 1.00 >
  look_at   <  0.00, 0.00, 0.00 >
} 

#declare A01 = <0,0,0>;
#declare A02 = <1.5,0,1>;
#declare A03 = <2.5,0,2>;
#declare A04 = <4,0,3>;
#declare A05 = <0,6,0>;
#declare A06 = <1.5,6,1>;
#declare A07 = <2.5,6,2>;
#declare A08 = <4,6,3>;
#declare A09 = <0,12,0>;
#declare A10 = <1,12,0.7>;
#declare A11 = <2,12,1.4>;
#declare A12 = <3,12,2.1>;
#declare A13 = <0,16,0>;
#declare A14 = <0,16,0>;
#declare A15 = <0,16,0>;
#declare A16 = <0,16,0>;

#declare B01 = <0,-6,0>;
#declare B02 = <1.5,-6,1>;
#declare B03 = <2.5,-6,2>;
#declare B04 = <4,-6,3>;
#declare B05 = <0,-4,0>;
#declare B06 = <1.5,-4,1>;
#declare B07 = <2.5,-4,2>;
#declare B08 = <6,-4,3>;
#declare B09 = <0,-4,0>;
#declare B10 = <1.5,-2,1>;
#declare B11 = <2.5,-2,2>;
#declare B12 = <6,-2,3>;
#declare B13 = <0,0,0>;
#declare B14 = <1.5,0,1>;
#declare B15 = <2.5,0,2>;
#declare B16 = <4,0,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
}

object {patchA texture{pigment{ color rgb <1,0,1> }} }
object {patchB texture{pigment{ color rgb <1,0,0> }} }


// added by stolfi:
plane{ <0,0,1>, -3 pigment{ checker color rgb <0.9, 0.9, 0.8>, color rgb <0.8,0.9,0.9> }}
object {patchA scale <-1,1,1> texture{pigment{ color rgb <0.7,0,1.0> }} }
object {patchB scale <-1,1,1> texture{pigment{ color rgb <0.7,0,0.1> }} }