From 9aafe6c5ce226436c5fe69fb05d309d3a95843e0 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 26 Jun 2011 23:41:58 +0000 Subject: * algebra/sf.spad.pamphlet (DoubleFloat) [nan?]: New export. * algebra/clip.spad.pamphlet (TwoDimensionalPlotClipping): Use it instead of %fNan?. * algebra/plot.spad.pamphlet (Plot): Likewise. --- src/algebra/plot.spad.pamphlet | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/algebra/plot.spad.pamphlet') 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) == -- cgit v1.2.3