| # | Line 79 | Line 79 | while ($#argv > 0) | |
|---|---|---|
| 79 | end | |
| 80 | mkdir $td | |
| 81 | cat > $td/pc0.cal <<_EOF_ | |
| 82 | + | PI : 3.14159265358979323846 ; |
| 83 | scale : $scale ; | |
| 84 | mult : $mult ; | |
| 85 | ndivs : $ndivs ; | |
| # | Line 86 | Line 87 | ndivs : $ndivs ; | |
| 87 | or(a,b) : if(a,a,b); | |
| 88 | EPS : 1e-7; | |
| 89 | neq(a,b) : if(a-b-EPS,1,b-a-EPS); | |
| 90 | < | btwn(a,b) : if(a-x,-1,b-x); |
| 90 | > | btwn(a,x,b) : if(a-x,-1,b-x); |
| 91 | clip(x) : if(x-1,1,if(x,x,0)); | |
| 92 | frac(x) : x - floor(x); | |
| 93 | boundary(a,b) : neq(floor(ndivs*a),floor(ndivs*b)); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |