--- ray/src/px/falsecolor.csh	1991/05/28 16:06:46	1.6
+++ ray/src/px/falsecolor.csh	1991/08/09 15:13:15	1.8
@@ -79,6 +79,7 @@ while ($#argv > 0)
 end
 mkdir $td
 cat > $td/pc0.cal <<_EOF_
+PI : 3.14159265358979323846 ;
 scale : $scale ;
 mult : $mult ;
 ndivs : $ndivs ;
@@ -86,7 +87,7 @@ ndivs : $ndivs ;
 or(a,b) : if(a,a,b);
 EPS : 1e-7;
 neq(a,b) : if(a-b-EPS,1,b-a-EPS);
-btwn(a,b) : if(a-x,-1,b-x);
+btwn(a,x,b) : if(a-x,-1,b-x);
 clip(x) : if(x-1,1,if(x,x,0));
 frac(x) : x - floor(x);
 boundary(a,b) : neq(floor(ndivs*a),floor(ndivs*b));