diff options
Diffstat (limited to 'src/algebra/view3D.spad.pamphlet')
| -rw-r--r-- | src/algebra/view3D.spad.pamphlet | 56 |
1 files changed, 28 insertions, 28 deletions
diff --git a/src/algebra/view3D.spad.pamphlet b/src/algebra/view3D.spad.pamphlet index 226145a6..25f1f30c 100644 --- a/src/algebra/view3D.spad.pamphlet +++ b/src/algebra/view3D.spad.pamphlet @@ -596,7 +596,7 @@ ThreeDimensionalViewport(): Exports == Implementation where viewport.lighting.lightX := convert(Xlight)@SF viewport.lighting.lightY := convert(Ylight)@SF viewport.lighting.lightZ := convert(Zlight)@SF - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,lightDef)$Lisp checkViewport viewport => @@ -608,7 +608,7 @@ ThreeDimensionalViewport(): Exports == Implementation where axes (viewport,onOff) == if onOff = "on" then viewport.flags.axesOn := yes else viewport.flags.axesOn := no - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,axesOnOff)$Lisp checkViewport viewport => @@ -618,7 +618,7 @@ ThreeDimensionalViewport(): Exports == Implementation where diagonals (viewport,onOff) == if onOff = "on" then viewport.flags.diagonalsOn := yes else viewport.flags.diagonalsOn := no - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,diagOnOff)$Lisp checkViewport viewport => @@ -628,7 +628,7 @@ ThreeDimensionalViewport(): Exports == Implementation where outlineRender (viewport,onOff) == if onOff = "on" then viewport.flags.outlineRenderOn := yes else viewport.flags.outlineRenderOn := no - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,outlineOnOff)$Lisp checkViewport viewport => @@ -638,7 +638,7 @@ ThreeDimensionalViewport(): Exports == Implementation where controlPanel (viewport,onOff) == if onOff = "on" then viewport.flags.showCP := yes else viewport.flags.showCP := no - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,hideControl)$Lisp checkViewport viewport => @@ -655,14 +655,14 @@ ThreeDimensionalViewport(): Exports == Implementation where else if (how = "smooth") then -- smooth viewport.flags.style := smooth else viewport.flags.style := wireMesh - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,viewport.flags.style)$Lisp checkViewport viewport => getI(VIEW)$Lisp -- acknowledge reset viewport == - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,SPADBUTTONPRESS)$Lisp checkViewport viewport => @@ -670,7 +670,7 @@ ThreeDimensionalViewport(): Exports == Implementation where getI(VIEW)$Lisp -- acknowledge close viewport == - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,closeAll)$Lisp checkViewport viewport => @@ -678,7 +678,7 @@ ThreeDimensionalViewport(): Exports == Implementation where viewport.key := 0$I viewpoint (viewport:%):V == - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,queryVIEWPOINT)$Lisp checkViewport viewport => @@ -698,7 +698,7 @@ ThreeDimensionalViewport(): Exports == Implementation where viewpoint (viewport:%, viewpt:V):Void == viewport.viewpoint := viewpt - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,changeVIEWPOINT)$Lisp checkViewport viewport => @@ -744,7 +744,7 @@ ThreeDimensionalViewport(): Exports == Implementation where title (viewport,Title) == viewport.title := Title - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,TITLE)$Lisp checkViewport viewport => @@ -753,7 +753,7 @@ ThreeDimensionalViewport(): Exports == Implementation where colorDef (viewport,HueOffset,HueNumber) == viewport.colors := [h := (hue HueOffset),(hue HueNumber) - h] - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,COLORDEF)$Lisp checkViewport viewport => @@ -767,7 +767,7 @@ ThreeDimensionalViewport(): Exports == Implementation where move(viewport,xLoc,yLoc) == viewport.moveTo := [xLoc,yLoc] - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,MOVE)$Lisp checkViewport viewport => @@ -777,7 +777,7 @@ ThreeDimensionalViewport(): Exports == Implementation where resize(viewport,xSize,ySize) == viewport.size := [xSize,ySize] - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,RESIZE)$Lisp checkViewport viewport => @@ -800,7 +800,7 @@ ThreeDimensionalViewport(): Exports == Implementation where rotate(viewport:%,Theta:F,Phi:F) == viewport.viewpoint.theta := convert(Theta)@SF viewport.viewpoint.phi := convert(Phi)@SF - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,ROTATE)$Lisp checkViewport viewport => @@ -810,7 +810,7 @@ ThreeDimensionalViewport(): Exports == Implementation where zoom(viewport:%,Scale:F) == viewport.viewpoint.scale := convert(Scale)@SF - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,ZOOM)$Lisp checkViewport viewport => @@ -821,7 +821,7 @@ ThreeDimensionalViewport(): Exports == Implementation where viewport.viewpoint.scaleX := convert(ScaleX)@SF viewport.viewpoint.scaleY := convert(ScaleY)@SF viewport.viewpoint.scaleZ := convert(ScaleZ)@SF - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,zoomx)$Lisp checkViewport viewport => @@ -833,7 +833,7 @@ ThreeDimensionalViewport(): Exports == Implementation where translate(viewport,DeltaX,DeltaY) == viewport.viewpoint.deltaX := convert(DeltaX)@SF viewport.viewpoint.deltaY := convert(DeltaY)@SF - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,TRANSLATE)$Lisp checkViewport viewport => @@ -845,7 +845,7 @@ ThreeDimensionalViewport(): Exports == Implementation where if (Amount < 0$F) or (Amount > 1$F) then error "The intensity must be a value between 0 and 1, inclusively." viewport.lighting.translucence := convert(Amount)@SF - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,translucenceDef)$Lisp checkViewport viewport => @@ -860,7 +860,7 @@ ThreeDimensionalViewport(): Exports == Implementation where write(viewport:%,Filename:S,thingsToWrite:L S) == stringToSend : S := "" - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,writeView)$Lisp checkViewport viewport => @@ -879,7 +879,7 @@ ThreeDimensionalViewport(): Exports == Implementation where perspective (viewport,onOff) == if onOff = "on" then viewport.perspective.perspectiveField := yes else viewport.perspective.perspectiveField := no - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,perspectiveOnOff)$Lisp checkViewport viewport => @@ -889,7 +889,7 @@ ThreeDimensionalViewport(): Exports == Implementation where showRegion (viewport,onOff) == if onOff = "on" then viewport.flags.showRegionField := yes else viewport.flags.showRegionField := no - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,region3D)$Lisp checkViewport viewport => @@ -899,7 +899,7 @@ ThreeDimensionalViewport(): Exports == Implementation where showClipRegion (viewport,onOff) == if onOff = "on" then viewport.volume.clipRegionField := yes else viewport.volume.clipRegionField := no - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,clipRegionOnOff)$Lisp checkViewport viewport => @@ -909,7 +909,7 @@ ThreeDimensionalViewport(): Exports == Implementation where clipSurface (viewport,onOff) == if onOff = "on" then viewport.volume.clipSurfaceField := yes else viewport.volume.clipSurfaceField := no - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,clipSurfaceOnOff)$Lisp checkViewport viewport => @@ -918,7 +918,7 @@ ThreeDimensionalViewport(): Exports == Implementation where eyeDistance(viewport:%,EyeDistance:F) == viewport.perspective.eyeDistance := convert(EyeDistance)@SF - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,eyeDistanceData)$Lisp checkViewport viewport => @@ -927,7 +927,7 @@ ThreeDimensionalViewport(): Exports == Implementation where hitherPlane(viewport:%,HitherPlane:F) == viewport.perspective.hitherPlane := convert(HitherPlane)@SF - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,hitherPlaneData)$Lisp checkViewport viewport => @@ -937,7 +937,7 @@ ThreeDimensionalViewport(): Exports == Implementation where modifyPointData(viewport,anIndex,aPoint) == (n := dimension aPoint) < 3 => error "The point should have dimension of at least 3" viewport.space3D := modifyPointData(viewport.space3D,anIndex,aPoint) - (key(viewport) ^= 0$I) => + (key(viewport) ~= 0$I) => sendI(VIEW,typeVIEW3D)$Lisp sendI(VIEW,modifyPOINT)$Lisp checkViewport viewport => @@ -950,7 +950,7 @@ ThreeDimensionalViewport(): Exports == Implementation where getI(VIEW)$Lisp -- acknowledge -- print viewport == --- (key(viewport) ^= 0$I) => +-- (key(viewport) ~= 0$I) => -- sendI(VIEW,typeVIEW3D)$Lisp -- sendI(VIEW,printViewport)$Lisp -- checkViewport viewport => |