diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-06-26 23:41:58 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-06-26 23:41:58 +0000 |
| commit | 9aafe6c5ce226436c5fe69fb05d309d3a95843e0 (patch) | |
| tree | 20c9a746c0ed51988386b1ef1f03ed8a4b322b34 /src/algebra/plot.spad.pamphlet | |
| parent | 459f3ea9524cf70969e440638b4fc91d9a305276 (diff) | |
| download | open-axiom-9aafe6c5ce226436c5fe69fb05d309d3a95843e0.tar.gz | |
* algebra/sf.spad.pamphlet (DoubleFloat) [nan?]: New export.
* algebra/clip.spad.pamphlet (TwoDimensionalPlotClipping): Use it
instead of %fNan?.
* algebra/plot.spad.pamphlet (Plot): Likewise.
Diffstat (limited to 'src/algebra/plot.spad.pamphlet')
| -rw-r--r-- | src/algebra/plot.spad.pamphlet | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/algebra/plot.spad.pamphlet b/src/algebra/plot.spad.pamphlet index 4d3208fc..1bb17da9 100644 --- a/src/algebra/plot.spad.pamphlet +++ b/src/algebra/plot.spad.pamphlet @@ -174,8 +174,7 @@ Plot(): Exports == Implementation where ANGLEBOUND: F := cos inv (4::F) DEBUG: B := false - Fnan?(x: F): Boolean == %fNaN?(x)$Foreign(Builtin) - Pnan?(x) == any?(Fnan?,x) + Pnan?(x) == any?(nan?,x) --% graphics output @@ -236,11 +235,11 @@ Plot(): Exports == Implementation where select(l,f,g) == m := f first l - if Fnan? m then m := 0 + if nan? m then m := 0 for p in rest l repeat n := m m := g(m, f p) - if Fnan? m then m := n + if nan? m then m := n m rangeRefine(curve,nRange) == |