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];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.   ê  ColorDisplayRender.mesa Last Edited by: Crow, December 4, 1987 7:28:30 pm PSTTypesColorsCalculates pseudocolor value from RGB and leaves in red fieldSets up custom 6x6x6 color cube map for dithering Load ramp running between two colors and bent by exponent, defaults give std grey map Low-level drawingPut a string of characters on the screenFrame Generation and AnimationCompute image described by context Transfer buffered image to viewer or imager contextLoad context.viewPort from viewer specificationCompute image described by context at supplied size, write out to named AIS file, keeps log Take rgb image in rgbContext and dither into dstContextCalculate elliptical orbit about center of interest (or eyepoint if moveEPNotCI is FALSE), write images to series of numbered files if filename # NILCalculate and display (if a displayed context) frames along a straightline pathCalculate and display (if a displayed context) frames along a cubic path through control points‌ت“  ک headڑœ™Jڑœ5™5defaultڑدk	ک	Jڑœ‌œکJڑœ	‌œ‌œکJڑœ
‌œکJڑœ‌œ0‌œکS——head2ڑœ‌œ‌ک%Jک Jڑœ‌کJک —head3ڑذbi™Iunitڑ‌œ‌œ‌œکLڑœ	‌œک%Lڑœ‌œک-Lڑœ‌œک!Lڑœ‌œکLڑœ‌œک#Jڑ‌œ‌œ‌œک—ڑدb™aڑ	ذbnدnœ‌œ
‌œ‌œکAP™>—ڑ،œ‌œک/P™3—ڑ
،œ‌œ‌œ‌œ$‌œک„P™V——ڑں™ڑ،
œ‌œ‌œ‌œC‌œ‌œ‌œک“J™(——ڑں™ڑ،	œکJ™#—ڑ،œک"P™3J™/—ڑ،œ‌œ‌œ‌œ‌œ‌œ‌œکvJ™[—ڑ،œ‌œ‌œ
ک7Jڑœدcœ
¢™8—ڑ،œ‌œ‌œJ‌œ‌œ‌œ‌œ‌œ‌œ‌œ
کلJڑœ•™•—ڑ،œ‌œ‌œk‌œ‌œ ‌œ‌œکشJ™O—ڑ،œ‌œ‌œ"‌œ‌œ#‌œ‌œ ‌œ‌œ‌œ‌œکحJ™_—N™ —Jڑ‌œک— …—    ش  Q  