Steve wrote:

>How'd ya do it?
>
Like this and some variations on the theme:

#declare Bez_arr=array[16]{
   <0, 0, 6>, <2, 0, 6>, < 4, 0, 6>, < 6, 0, 6,>
   <0, 0, 4>, <2, 0, 4>, < 4, 0, 4>, < 6, 0, 4,>
   <0,-3, 2>, <2, 0, 2>, < 4, 0, 2>, < 6, 0, 2,>
   <0,-3, 0>, <2,-3, 0>, < 4, 0, 0>, < 6, 0, 0,>
}

#declare Nr=0;
#declare St=0.3;
#declare P1= union{
#while (Nr<5)
   #declare I=0;
   #declare N=dimension_size(Bez_arr,1);
   bicubic_patch{
      type 1
      flatness 0
      u_steps 5
      v_steps 5 
      #while (I<N)
         #if (I=8|I=12|I=13)
            Bez_arr[I]+<Nr/3,Nr,Nr/3>
         #else
            Bez_arr[I]+<0,Nr/10,0>
         #end
         #declare I=I+1;
      #end
      double_illuminate
      pigment {rgb 1}
   }
   #declare Nr=Nr+St;
#end
}

Ingo

-- 
Photography: http://members.home.nl/ingoogni/
Pov-Ray    : http://members.home.nl/seed7/

Post a reply to this message