// Last edited on 2003-12-11 00:39:20 by stolfi

#include "colors.inc"
#include "stones.inc"
#include "textures.inc"

#declare bz_name = "Asa_aviao"

#declare A11 = <-0.60, 1.00, -4.00 >;
#declare A12 = <-3.00, 1.00, 0.00 >;
#declare A13 = <-3.00, 1.00, 2.00 >;
#declare A14 = <-3.00, 1.00, 4.00 >;

#declare A21 = <-0.60, 0.30, -4.00 >;
#declare A22 = <-3.00, -0.80, 0.00 >;
#declare A23 = <-3.00, -1.00, 2.00 >;
#declare A24 = <-3.00, -1.00, 4.00 >;

#declare A31 = <0.7, 0.50, -4.00 >;
#declare A32 = <0.3, 0.50, 0.00 >;
#declare A33 = <0, 0.50, 2.00 >;
#declare A34 = <0, 0.50, 4.00 >;

#declare A41 = <1.00, 0.50, -4.00 >;
#declare A42 = <1.00, 0.50, 0.00 >;
#declare A43 = <1.00, 0.50, 2.00 >;
#declare A44 = <1.00, 0.50, 4.00 >;

#declare B11 = <1.00, 0.50, -4.00 >;
#declare B12 = <1.00, 0.50, 0.00 >;
#declare B13 = <1.00, 0.50, 2.00 >;
#declare B14 = <1.00, 0.50, 4.00 >;

#declare B21 = <1.50, 0.50, -4.00 >;
#declare B22 = <2.00, 0.50, 0.00 >;
#declare B23 = <2.00, 0.50, 2.00 >;
#declare B24 = <2.00, 0.50, 4.00 >;

#declare B31 = <2.50, 0.90, -4.00 >;
#declare B32 = <4.00, 0.70, 0.00 >;
#declare B33 = <4.00, 0.70, 2.00 >;
#declare B34 = <4.00, 0.70, 4.00 >;

#declare B41 = <2.50, 1.00, -4.00 >;
#declare B42 = <4.00, 1.00, 0.00 >;
#declare B43 = <4.00, 1.00, 2.00 >;
#declare B44 = <4.00, 1.00, 4.00 >;

#declare bz_scale = 0.25;
#include "bz-things.inc"

#declare tinta_A = 
  texture {
    pigment { color < 1.0, 0.0, 0.0 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }


#declare parteA =
  union{
    bicubic_patch {
      type 0
      flatness 0.01
      u_steps 4
      v_steps 4
      A11, A12, A13, A14,
      A21, A22, A23, A24,
      A31, A32, A33, A34,
      A41, A42, A43, A44
      // pigment{Blue}
      texture{ bz_tx_A }
    }
    object { bz_grid_A }
  }

#declare parteB =
  union{
    bicubic_patch {
      type 0
      flatness 0.01
      u_steps 4
      v_steps 4
      B11, B12, B13, B14,
      B21, B22, B23, B24,
      B31, B32, B33, B34,
      B41, B42, B43, B44
      // pigment{Blue}
      texture{ bz_tx_B }
    }
    object { bz_grid_B }
  }
 
#declare asa =  
    union {
      object { parteA }
      object { parteB }
      object { parteA scale <1,-1,1> translate <0,2,0>}
      object { parteB scale <1,-1,1> translate <0,2,0>}
     
   }

  
#declare scene =
  object {asa scale<0.5,0.5,0.5>}
  object {asa scale<0.5,0.5,-0.5> translate <-3.7,0,3.5>}
  object {cone { <1,0.5,1.8>, 0.3, <-6,0.5,1.8>, 0.7} texture {tinta_A}}
  
object{ bz_checker_bg }
object{ scene translate bz_rite_pos }