<> <> DIRECTORY Terminal USING [ Virtual ], Rope USING [ ROPE ], Imager USING [ Context ], ThreeDBasics USING [ Context, ContextProc, ImagerProc, Pair, Pixel, RGB, Triple ]; ColorDisplayRender: CEDAR DEFINITIONS ~ BEGIN <> ROPE: TYPE ~ Rope.ROPE; Context: TYPE ~ ThreeDBasics.Context; ContextProc: TYPE ~ ThreeDBasics.ContextProc; Pixel: TYPE ~ ThreeDBasics.Pixel; Pair: TYPE ~ ThreeDBasics.Pair; Triple: TYPE ~ ThreeDBasics.Triple; RGB: TYPE ~ ThreeDBasics.RGB; <> MappedRGB: PROC[context: REF Context, clr: Pixel] RETURNS[Pixel]; <> LoadStd8BitClrMap: PROC [vt: Terminal.Virtual]; <> LoadColorRamp: PROC [ vt: Terminal.Virtual, clr1: RGB _ [0,0,0], clr2: RGB _ [255,255,255], exponent: RGB _ [.43,.43,.43] ]; <> <> Draw2DRope: PROC[ context: REF Context, rope: ROPE, position: Pair, color: Pixel _ [255,255,255,0,0], size: REAL _ 20, font: ROPE _ NIL ]; <> <> MakeFrame: ContextProc; <> StuffBuf: ThreeDBasics.ImagerProc; <> <> MakeHiResFrame: PROC[ context: REF Context, width, height: NAT, name: Rope.ROPE, keepLog: BOOLEAN _ TRUE ]; <> DitherImage: PROC[dstContext, rgbContext: REF Context]; << Take rgb image in rgbContext and dither into dstContext>> Orbit: PROC[ context: REF Context, lookingFrom, lookingAt, axis, base: Triple, moveEPNotCI: BOOLEAN _ TRUE, framesPerRev: NAT _ 16, startAt: NAT _ 0, endAt: NAT _ 32767, filename: Rope.ROPE _ NIL ]; <> MakeFramesFromTo: PROC[ context: REF Context, lookingFrom, lookingAt, toLookingFrom, toLookingAt: Triple, framesOnLine: NAT, startAt, endAt: NAT _ 0, filename: Rope.ROPE _ NIL ]; <> MakeFramesOnPath: PROC[ context: REF Context, lookingFrom, lookingAt: LIST OF Triple, framesOnPath: NAT, startAt, endAt: NAT _ 0, filename: Rope.ROPE _ NIL, closed: BOOLEAN _ TRUE ]; <> <<>> END.