aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/clip.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-05-21 02:03:15 +0000
committerdos-reis <gdr@axiomatics.org>2011-05-21 02:03:15 +0000
commit58dc9f8145468998071a2a69d3dbfb6c710eab39 (patch)
tree55dc479b3854da39e13abd1281904e148e7f3f7e /src/algebra/clip.spad.pamphlet
parent8887fe1d244a40fdc3980d87e30f445249ecdf2e (diff)
downloadopen-axiom-58dc9f8145468998071a2a69d3dbfb6c710eab39.tar.gz
* interp/modemap.boot (augModemapsFromDomain): Don't add modemaps
for element types of Vector or List aggregates. * algebrar/: Adjust algebras that depended on this behaviour.
Diffstat (limited to 'src/algebra/clip.spad.pamphlet')
-rw-r--r--src/algebra/clip.spad.pamphlet2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/algebra/clip.spad.pamphlet b/src/algebra/clip.spad.pamphlet
index 30ee0ff3..d4eaf937 100644
--- a/src/algebra/clip.spad.pamphlet
+++ b/src/algebra/clip.spad.pamphlet
@@ -96,6 +96,8 @@ TwoDimensionalPlotClipping(): Exports == Implementation where
Pnan? p == any?(Fnan?,p)
iClipParametric(pointLists,fraction,scale) ==
+ import Point SF
+ import List Point SF
-- error checks and special cases
negative? fraction or (fraction > 1) =>
error "clipDraw: fraction should be between 0 and 1"