diff options
Diffstat (limited to 'src/algebra/view3D.spad.pamphlet')
| -rw-r--r-- | src/algebra/view3D.spad.pamphlet | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/algebra/view3D.spad.pamphlet b/src/algebra/view3D.spad.pamphlet index 22b6d1cd..d1602fe1 100644 --- a/src/algebra/view3D.spad.pamphlet +++ b/src/algebra/view3D.spad.pamphlet @@ -691,6 +691,7 @@ ThreeDimensionalViewport(): Exports == Implementation where [ theta_sf, phi_sf, scale_sf, scaleX_sf, scaleY_sf, scaleZ_sf, deltaX_sf, deltaY_sf ] viewport.viewpoint + viewport.viewpoint viewpoint (viewport:%, viewpt:V):Void == viewport.viewpoint := viewpt @@ -871,6 +872,8 @@ ThreeDimensionalViewport(): Exports == Implementation where sendI(VIEW,0$I)$Lisp -- no more types of things to write getI(VIEW)$Lisp -- acknowledge Filename + "" -- FIXME: We should be indicating failure + "" -- FIXME: We should be indicating failure perspective (viewport,onOff) == if onOff = "on" then viewport.perspective.perspectiveField := yes |