DIRECTORY Vector3d USING [Triple]; Animation3D: CEDAR DEFINITIONS ~ BEGIN Triple: TYPE ~ Vector3d.Triple; -- RECORD [ x, y, z: REAL]; MoveInOrbit: PROC[eyePt, lookingAt, axis: Triple, displayProc: PROC[Triple, Triple], framesPerRev, numFrames: NAT, startAt: NAT _ 0 ]; MoveOnLine: PROC[eyePt, lookingAt, toEyePt, toLookingAt: Triple, displayProc: PROC[Triple, Triple], numFrames: NAT, startAt: NAT _ 0 ]; MoveOnCurve: PROC[eyePts, lookingAts: LIST OF Triple, displayProc: PROC[Triple, Triple], numFrames: NAT, startAt: NAT _ 0 ]; END. θAnimation3D.mesa Copyright c 1984 by Xerox Corporation. All rights reserved. Last Edited by: Crow, March 28, 1986 3:18:39 pm PST Basic Types Procedures for Animation These generate a sequence of positions to drive animations Κ˜Iheadšœ™šœ Οmœ1™