<> <> <> DIRECTORY Rope USING [ ROPE ], ThreeDBasics USING [ Context, Pair, ShapeInstance, ShapeProc, Triple, TripleSequence ]; Animation3D: CEDAR DEFINITIONS ~ BEGIN <> Context: TYPE ~ ThreeDBasics.Context; Pair: TYPE ~ ThreeDBasics.Pair; Triple: TYPE ~ ThreeDBasics.Triple; -- RECORD [ x, y, z: REAL]; TripleSequence: TYPE ~ ThreeDBasics.TripleSequence; ShapeInstance: TYPE ~ ThreeDBasics.ShapeInstance; ViewProc: TYPE ~ PROC[context: REF Context, lookingFrom, lookingAt: Triple, frameNo: NAT]; <> <> MoveEyePointInOrbit: PROC[ context: REF Context, eyePt, lookingAt, axis, base: Triple, displayProc: ViewProc, framesPerRev: NAT, startAt, endAt: NAT _ 0 ]; MoveCtrOfInterestInOrbit: PROC[ context: REF Context, eyePt, lookingAt, axis, base: Triple, displayProc: ViewProc, framesPerRev: NAT, startAt, endAt: NAT _ 0 ]; MoveOnLine: PROC[ context: REF Context, eyePt, lookingAt, toEyePt, toLookingAt: Triple, displayProc: ViewProc, framesOnLine: NAT, startAt, endAt: NAT _ 0 ]; MoveOnOpenCurve: PROC[ context: REF Context, eyePts, lookingAts: REF TripleSequence, displayProc: ViewProc, framesOnCurve: NAT, startAt, endAt: NAT _ 0 ]; MoveOnClosedCurve: PROC[ context: REF Context, eyePts, lookingAts: REF TripleSequence, displayProc: ViewProc, framesOnCurve: NAT, startAt, endAt: NAT _ 0 ]; <> ShowOpenCurve: PROC[ context: Context, eyePts, lookingAts: REF TripleSequence, numFrames: NAT, startAt: NAT _ 0 ]; ShowClosedCurve: PROC[ context: Context, eyePts, lookingAts: REF TripleSequence, numFrames: NAT, startAt: NAT _ 0 ]; ShowOrbit: PROC[ context: Context, startPt, axis, base: Triple, framesPerRev: NAT ]; <> <> SetTxtrTranslation: PROC[ context: REF Context, shapeName: Rope.ROPE, translation: Pair, frames: NAT ]; <> <> SetShapeInterpolation: PUBLIC PROC[ context: REF Context, shapeName: Rope.ROPE, begin, end: REF ShapeInstance, frames: NAT ]; <> <> SetShapeManipulation: PUBLIC PROC[ context: REF Context, shapeName: Rope.ROPE, prop, propVal: REF ANY, proc: ThreeDBasics.ShapeProc ]; <> AddShapeManipulation: PUBLIC PROC[ context: REF Context, shapeName: Rope.ROPE, prop, propVal: REF ANY, proc: ThreeDBasics.ShapeProc ]; <> END.