// Last edited on 2005-01-06 01:00:56 by stolfi
// Processed by remove-cam-lights

#include "colors.inc"

#declare semente = seed(492);

background{ color rgb < 0.75, 0.80, 0.85 > }

global_settings {assumed_gamma 1.0}
background {rgb <1,0.9,0.9>}

#declare cor_espelho =  <0.8, 0.8, 0.3> ;

#declare tx_espelho =
  texture {
    pigment { color rgb <1.00, 1.00, 1.00> }
    finish {
      ambient 0.05 diffuse 0.05
      reflection cor_espelho
      specular 0.20 roughness 0.05
      metallic
    }
  }

#declare curvatura1 = 1;
#declare curvatura2 = -1;
#declare curvatura3 = 2;
#declare curvatura4 = -0.8;

#declare B11=<0,curvatura1,6>; #declare B12=<1,curvatura2,6>;
#declare B13=<2,curvatura3,6>; #declare B14=<3,0,6>;
#declare B21=<0,curvatura1,4>; #declare B22=<1,curvatura2,4>;
#declare B23=<2,curvatura3,4>; #declare B24=<3,0,4>;
#declare B31=<0,curvatura1,2>; #declare B32=<1,curvatura2,2>;
#declare B33=<2,curvatura3,2>; #declare B34=<3,0,2>;
#declare B41=<0,0,0>; #declare B42=<1,0,0>;
#declare B43=<2,0,0>; #declare B44=<3,0,0>;

#declare superior =
bicubic_patch {
   type 1 flatness 0.001
   u_steps 4 v_steps 4
   uv_vectors
   <0,0> <1,0> <1,1> <0,1>
   B11, B12, B13, B14
   B21, B22, B23, B24
   B31, B32, B33, B34
   B41, B42, B43, B44
   uv_mapping
   texture {
      pigment {
         checker
  Red
  Black
         scale 1/3
      }
      finish {phong 0.6 phong_size 20}
   }
   no_shadow
}

#declare B11=<0,curvatura1,6>; #declare B12=<1,curvatura4,6>;
#declare B13=<2,curvatura4,6>; #declare B14=<3,0,6>;
#declare B21=<0,curvatura1,4>; #declare B22=<1,curvatura4,4>;
#declare B23=<2,curvatura4,4>; #declare B24=<3,0,4>;
#declare B31=<0,curvatura1,2>; #declare B32=<1,curvatura4,2>;
#declare B33=<2,curvatura4,2>; #declare B34=<3,0,2>;
#declare B41=<0,0,0>; #declare B42=<1,0,0>;
#declare B43=<2,0,0>; #declare B44=<3,0,0>;

#declare inferior =
bicubic_patch {
   type 1 flatness 0.001
   u_steps 4 v_steps 4
   uv_vectors
   <0,0> <1,0> <1,1> <0,1>
   B11, B12, B13, B14
   B21, B22, B23, B24
   B31, B32, B33, B34
   B41, B42, B43, B44
   uv_mapping
   texture {
      pigment {
         checker
  Blue
  Green
         scale 1/3
      }
      finish {phong 0.6 phong_size 20}
   }
   no_shadow
}

#declare curvatura5 = 3;

#declare B11=<.5,0,1.5>; #declare B12=<.1,0,1.5>;
#declare B13=<.2,0,1.5>; #declare B14=<.3,0,1.5>;
#declare B21=<0,0,1>; #declare B22=<.1,0,1>;
#declare B23=<.2,0,1>; #declare B24=<.3,0,1>;
#declare B31=<0,0,0.5>; #declare B32=<.1,0,0.5>;
#declare B33=<.2,0,0.5>; #declare B34=<.3,0,0.5>;
#declare B41=<0,0,0>; #declare B42=<.1,0,0>;
#declare B43=<.2,0,.50>; #declare B44=<.3,0,0>;

#declare helice =
union {
bicubic_patch {
   type 1 flatness 0.001
   u_steps 4 v_steps 4
   uv_vectors
   <0,0> <1,0> <1,1> <0,1>
   B11, B12, B13, B14
   B21, B22, B23, B24
   B31, B32, B33, B34
   B41, B42, B43, B44
   uv_mapping
   texture {
      pigment {
 Black
      }
      finish {phong 0.6 phong_size 20}
   }
   no_shadow
   rotate <-90,90,0>
   scale <3,3,3>
}
cylinder {
  <0,2,-1.5>, <0,2,2>, 0.2
  pigment { Blue }
}
}

#declare asa =
union {
  object { superior }
  object { inferior }
}

#declare asa_voadora =
union {
object { asa }
object { helice
  rotate <0,90,0>
         translate <-2,-0.5,2>
       }
}

#declare duas_asas =
union {
  object { asa_voadora }
  object { asa_voadora
           scale <0,0,-1>
    translate <0,0,15>
  }
}

union {
  object { duas_asas
           scale <1.5,1.5,1.5>
  }
  cylinder { <-4,0,11> <15,0,11> 2.5
           texture { tx_espelho }
  }
  sphere { <-4,0,11> 2.5
           pigment { Red }
  }
  sphere { <15,0,11> 2.5
           texture { tx_espelho }
  }
}

#include "camlight.inc"
camlight(<3,1,8>,<-3,-21,-18>,1.00,(-y),1.0)