SVCaretImpl.mesa
Copyright © 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.
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 [skitter
World: Matrix4by4] = {
skitterWorld ← skitter.skitterWORLD;
};
END.