DIRECTORY SV3d, SVCaret, SVInterfaceTypes, SVSceneTypes; SVCaretImpl: CEDAR PROGRAM IMPORTS EXPORTS SVCaret = BEGIN Matrix4by4: TYPE = SV3d.Matrix4by4; Skitter: TYPE = SVSceneTypes.Skitter; Copy: PUBLIC PROC [from: Skitter, to: Skitter] = { to^ _ from^; }; Kill: PUBLIC PROC [skitter: Skitter] = { skitter.alive _ FALSE; }; Exists: PUBLIC PROC [skitter: Skitter] RETURNS [BOOL] = { RETURN[skitter.alive]; }; GetPosition: PUBLIC PROC [skitter: Skitter] RETURNS [skitterWorld: Matrix4by4] = { skitterWorld _ skitter.skitterWORLD; }; END. ΜSVCaretImpl.mesa Copyright c 1987 by Xerox Corporation. All rights reserved. Last edited by Bier on May 22, 1987 3:58:24 pm PDT Contents: Routines for placing the skitter in a Gargoyle3D scene. ΚD˜J˜Icodešœ™Kšœ Οmœ1™