Figure of Revolution Generator

This is a perl script that generates a solid figure of revolution, which is equivalent to a solid figure with a top surface that conforms to a single-valued function of r in cylindrical coordinates - z = f(r).

The example STL is a normalized sinc function, z(r) = sin(π•r)/π•r, but z(0)=1 over the range r:[0,5] and scaled 5:1 in mm. To get this shape:

RevolutionFigure.pl z='sub{ my ($r) = @_; $r *= atan2(1,1)*4.0; return $r==0 ? 1 : sin($r)/$r; }' r=0,5 base=0.35 e=0.005 scale=5 file=si