<> <> <> 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.