I have been using this:

#macro fillpoints ( c0, c1, c2, c3 )

        #declare A = c0;
        #declare D = c1;
        #declare M = c2;
        #declare P = c3;

        #declare B = A+((D - A)*1/3);
        #declare C = A+((D - A)*2/3);

        #declare N = M+((P - M)*1/3);
        #declare O = M+((P - M)*2/3);

        #declare E = A+((M - A)*1/3);
        #declare I = A+((M - A)*2/3);

        #declare H = D+((P - D)*1/3);
        #declare L = D+((P - D)*2/3);

        #declare F = A+((P - A)*1/3);
        #declare K = A+((P - A)*2/3);

        #declare G = M+((D - M)*1/3);
        #declare J = M+((D - M)*2/3);
#end
bicubic_patch  {   type 1  flatness 0.5  u_steps 3  v_steps 3 A B C D E F G
H I J K L M N O P   }

Post a reply to this message