// Trabalho de laboratorio numero 7
// Ferrari Grand Price
// MP004 -1s/2001
// Aluna: Simone da Silva Amorim
// Last edited on 2001-07-31 12:06:54 by stolfi 

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

light_source {
  < 8.00, 2.00, 4.00 >
  color rgb < 1.00, 1.00, 1.00 >
}

light_source {
    < 100.0, -100.0, 100.0>
  color rgb 1.8* < 1, 1, 1 >
}

camera {
  location  0.5*<  6.00, 6.00, 5.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.75, 1.50, 0.00 >
}



#declare chao =
    plane { <0, 0, 1>, -4
    pigment { radial frequency 1.07 turbulence 50 scale 0.15
            color_map{[0.2 color rgb <1,0,0>][0.75 color rgb <0.9,0,0>]}}
    finish{phong 1 reflection .5}
    }

#declare A01 = <0,0,0>;
#declare A02 = <0.5,0,0.5>;
#declare A03 = <1,0,1>;
#declare A04 = <1.5,0,1.5>;
#declare A05 = <0,0.5,0.75>;
#declare A06 = <0.5,0.5,0.75>;
#declare A07 = <1,0.5,1.75>;
#declare A08 = <1.5,0.5,1.75>;
#declare A09 = <0,1,0.75>;
#declare A010 = <0.5,1,0.75>;
#declare A011 = <1,1,1.75>;
#declare A012 = <1.5,1,1.75>;
#declare A013 = <0,1.5,0>;
#declare A014 = <0.5,1.5,0.5>;
#declare A015 = <1,1.5,1>;
#declare A016 = <1.5,1.5,1.5>;

#declare B01 = <1,2,1.5>;
#declare B02 = <0.75,2,1>;
#declare B03 = <0.5,2,0.5>;
#declare B04 = <0,2,0>;

#declare B05 = <1,2.5,1.5>;
#declare B06 = <0.75,2.5,1>;
#declare B07 = <0.5,2.5,0.5>;
#declare B08 = <0,2.5,0>;

#declare B09 = <1,3,1.5>;
#declare B010 = <0.75,3,1>;
#declare B011 = <0.5,3,0.5>;
#declare B012 = <0,3,0>;

#declare parteA =
    bicubic_patch {
       type 1
       flatness 0.001
       u_steps 5
       v_steps 5
       A01,A02,A03,A04,
       A05,A06,A07,A08,
       A09,A010,A011,A012,
       A013,A014,A015,A016
       pigment {color rgb<1, 0, 0>}
    }

#declare parteB =
    bicubic_patch {
       type 1
       flatness 0.001
       u_steps 5
       v_steps 5
       A013,A014,A015,A016,
       B01,B02,B03,B04,
       B05,B06,B07,B08,
       B09,B010,B011,B012
       pigment {color rgb<0, 1, 0>}
    }

#declare pontosA =
    union{
      sphere{A01,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A02,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A03,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A04,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A05,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A06,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A07,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A08,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A09,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A010,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A011,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A012,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A013,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A014,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A015,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{A016,0.1 texture{pigment{color rgb<1,0,0>}}}
      }

#declare pontosB =
    union{
      sphere{B01,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{B02,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{B03,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{B04,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{B05,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{B06,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{B07,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{B08,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{B09,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{B010,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{B011,0.1 texture{pigment{color rgb<1,0,0>}}}
      sphere{B012,0.1 texture{pigment{color rgb<1,0,0>}}}
      }

#declare parte1 =
    bicubic_patch {
      type 0
      flatness 0.0100
      u_steps 4
      v_steps 4
      <0,0,0>,
      <0.5,0,0.5>
      <1,0,1>
      <1.5,0,1.5>
      <0,0.5,0>,
      <0.5,0.5,0.5>
      <1,0.5,1>
      <1.5,0.5,1.5>
      <0,1,0>,
      <0.5,1,0.5>
      <1,1,1>
      <1.5,1,1.5>
      <0,1.5,0>,
      <0.5,1.5,0.5>
      <1,1.5,1>
      <1.5,1.5,1.5>
      pigment {color rgb<1, 0, 0>}
   }

#declare parte2 =
    bicubic_patch {
      type 0
      flatness 0.0100
      u_steps 4
      v_steps 4
      <0,-1,0>,
      <0,-1.5,0.5>,
      <0,-2.0,0.25>
      <0,-3, -0.5>
      <0.5,-1,0>,
      <0.5,-1.5,0.5>,
      <0.5,-2.0,0.25>
      <0.5,-3, -0.5>
      <1.0,-1,0>,
      <1.0,-1.5,0.5>,
      <1.0,-2.0,0.25>
      <1.0,-3, -0.5>
      <1.5,-1,0>,
      <1.5,-1.5,0.5>,
      <1.5,-2.0,0.25>
      <1.5,-3, -0.5>
       pigment {color rgb<1, 0, 0>}
   }

//cylinder { <-10,0,0> <10,0,0>, 0.02 pigment{color rgb<1,0,0>}}
//cylinder { <0,-10,0> <0,10,0>, 0.02 pigment{color rgb<0,1,0>}}
//cylinder { <0,0,-10> <0,0,10>, 0.02 pigment{color rgb<0,0,1>}}

// Aqui está a cena, finalmente:
//object { pontosB rotate 45*y}
object { parteA rotate 45*y}
object { parteB rotate 45*y}
//object { chao}