#include "colors.inc"


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

background{ color White} 


light_source {
  < 0.00, 8.00, 0.00 >
  color rgb < 1.00, 1.00, 1.00 >
} 


light_source {
  < 10.00, 0.00, 0.00 >
  color rgb < 1.00, 1.00, 1.00 >
} 


light_source {
  < 0.00, 10.00, 0.00 >
  color rgb < 1.00, 1.00, 1.00 >
} 


light_source {
  < 8.00, 0.00, 0.00 >
  color rgb < 1.00, 1.00, 1.00 >
} 

 

light_source {
  < 0.00, 0.00, 8.00 >
  color rgb < 1.00, 1.00, 1.00 >
} 


camera {
  location  <0.00, 0.00, 10.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 A =  array[4][4] {
  {<3,3,0>, <3,1,0.5>, <3,-1, 0.5>,  <3,-3, 0>},
  {<1,3,0.5>, <1,1,2>, <1,-1,2>,  <1,-3,0.5>}
  {<-1,3,0.5>, <-1,1,1>, <-1,-1,1>,  <-1,-3,0.5>},
  {<-3,3,1>, <-3,1,1>, <-3,-1,1>,  <-3,-3, 1>}
}


#declare B =  array[4][4] {
  {<1,0,0>, <2,2, 0>, <3,2, 0>,  <4,2, 0>},
  {<1,0,0>, <2,2.0,-1>, <3,2.5,-1>,  <4,3,-1>},
  {<1,0,0>, <2,1.5,-2>, <3,0.8,-2>,  <4,1,-2>},
  {<1,0,0>, <2,1.0, 0>, <3,0.2, 0>,  <4,0, 0>}
}


#macro rtl(pts,cor)
bicubic_patch {
  type 1
  flatness 0
  u_steps 4  v_steps 4

  pts[0][0]  pts[0][1]  pts[0][2]  pts[0][3]
  pts[1][0]  pts[1][1]  pts[1][2]  pts[1][3]
  pts[2][0]  pts[2][1]  pts[2][2]  pts[2][3]
  pts[3][0]  pts[3][1]  pts[3][2]  pts[3][3]
   
   pigment {color cor}
 
}
  
#end

object {rtl(A,Brown) scale <0,0.5,0>}
object {rtl(A,Brown) rotate z*180 translate <-6,0,0> scale <0,0.5,0>}