Wouldn't it be handier this way?


#macro fillpoints ( c0, c1, c2, c3 )
  c0,
  c0+((c1 - c0)*1/3),
  c0+((c1 - c0)*2/3),
  c1,
  c0+((c2 - c0)*1/3),
  c0+((c3 - c0)*1/3),
  c2+((c1 - c2)*1/3),
  c1+((c3 - c1)*1/3),
  c0+((c2 - c0)*2/3),
  c2+((c1 - c2)*2/3),
  c0+((c3 - c0)*2/3),
  c1+((c3 - c1)*2/3),
  c2,
  c2+((c3 - c2)*1/3),
  c2+((c3 - c2)*2/3),
  c3
#end


bicubic_patch
{ type 1  flatness 0.5  u_steps 3  v_steps 3
  fillpoints(p1, p2, p3, p4)
}




-- 
#macro N(D,I)#if(I<6)cylinder{M()#local D[I]=div(D[I],104);M().5,2pigment{
rgb M()}}N(D,(D[I]>99?I:I+1))#end#end#macro M()<mod(D[I],13)-6,mod(div(D[I
],13),8)-3,10>#end blob{N(array[6]{11117333955,
7382340,3358,3900569407,970,4254934330},0)}//                     - Warp -

Post a reply to this message