diff options
Diffstat (limited to 'src/algebra/space.spad.pamphlet')
| -rw-r--r-- | src/algebra/space.spad.pamphlet | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/algebra/space.spad.pamphlet b/src/algebra/space.spad.pamphlet index 3d269880..52c9de91 100644 --- a/src/algebra/space.spad.pamphlet +++ b/src/algebra/space.spad.pamphlet @@ -587,25 +587,25 @@ ThreeSpace(R:Ring):Exports == Implementation where space lp space == - if ^space.converted then space := convertSpace space + if not space.converted then space := convertSpace space space.rep3DField.lp lllip space == - if ^space.converted then space := convertSpace space + if not space.converted then space := convertSpace space space.rep3DField.llliPt -- lllp space == --- if ^space.converted then space := convertSpace space +-- if not space.converted then space := convertSpace space -- space.rep3DField.lllPt llprop space == - if ^space.converted then space := convertSpace space + if not space.converted then space := convertSpace space space.rep3DField.llProp lprop space == - if ^space.converted then space := convertSpace space + if not space.converted then space := convertSpace space space.rep3DField.lProp -- this function is just to see how this representation really -- does work objects space == - if ^space.converted then space := convertSpace space + if not space.converted then space := convertSpace space numPts := 0$NNI numCurves := 0$NNI numPolys := 0$NNI @@ -628,13 +628,13 @@ ThreeSpace(R:Ring):Exports == Implementation where [numPts,numCurves,numPolys,numConstructs] check(s) == - ^s.converted => convertSpace s + not s.converted => convertSpace s s subspace(s) == s.subspaceField coerce(s) == - if ^s.converted then s := convertSpace s + if not s.converted then s := convertSpace s hconcat(["3-Space with "::O, _ (sizo:=#(s.rep3DField.llliPt))::O, _ (sizo=1=>" component"::O;" components"::O)]) |