######################################################################
# Numerical constants -- say "use Constants" to get 'em in your package.

*PI = \((atan2 1,1)*4);
if(ref $PI) { $PI = $PI->dummy(0,1)->at(0); }  # Force real perl number
*RADEG = \(180 / $PI);
*DEGRA = \($PI / 180);

*E = \(exp 1);

1;