You are quite right, sir!! Seems I just got lucky.

How about something different - squaring a cylinder maybe?

Squaring the column

#############

s = Surface(GRAY7,1,GRAY9, 0.3, 0.01)

Radius = 0.16            #For standard cylinder prop
Angle = 2 * pi * U        #Turn U into an angle
Trig = Max ( Abs(Cos(Angle)), Abs(Sin(Angle))) #Switch between sin / cos as we go around
Disp = Radius * (1 /Trig - 1)    #Displace out to make the flat surface

Disp = Disp * Interpolate(V, ['d', 0.1,1,1,0,'d', 0.5, 0,'d', 0.1,0,1]) #just the ends

s.Displacement = 30 * Disp * (Abs(N(0,1,0)) <= .01) # no caps, scalefactor adjusted by eye

This is fun (but, then again, I have a wierd idea of "fun")

Rô

My favourite question is "Why?", my second favourite is "Why not?"