Send this to interpreter first &sgf[ImagerColorMain] Available devices Uses standard sixteen colors, caches additional colors as used SetDevice[$Std8bpp, [0,0,400,300], [0,0,0,0], TRUE] Puts an 8-bit buffer on each channel. Displays them alternately SetDevice[$DblBffr8bpp, [0,0,400,300], [0,0,0,0], TRUE] Loads grayscale map, produces antialiased figures from imager calls SetDevice[$SmoothGray, [0,0,400,300], [0,0,0,0], TRUE] Uses standard sixteen colors only SetDevice[$Std4bpp, [0,0,400,300], [0,0,64,64], TRUE] Uses black, white, red, and cyan only SetDevice[$Std2bpp, [0,0,400,300], [0,0,0,0], TRUE] Allows full color, note, can only be used on lower resolution (640x480) displays SetDevice[$Std24bpp, [0,0,512,384], [0,0,0,0], TRUE] Games with Pixel Maps PinMap[] UnPinMap[] MoveOverlayTo[500, 400] RecoverContext[0] SwitchBuffers[] Screen Clear, note raw imager coordinates are in meters NameColor["Black"] FillRectangle[0.0, 0.0, .4, .3] NameColor["White"] DrawLine[[0.02, 0.02], [.2, .15], .001] Loads an 8-bit color map with 6x6x6 color cube and 40 gray levels. LoadStd8BitMap[] Rotates map entries from 1 to 254 inclusive for about 10 seconds, leaves zeroth and 255th color map entries untouched Rotate8BitMap[1, 254, 10] Puts cached color map on screen in pattern at bottom middle Show8BitMap[] Loads a continuous ramp into the color table and linearizes it. This example loads a grey scale (0,0,0) to (1,1,1) and exponentiates the values by .43. Can be used to invert colors, put colored backgrounds in smoothgraydisplays, or twiddle TRC. Use with $Std8bpp or $Std24bpp or $SmoothGray. Load8BitRampMap[0.0, 0.0, 0.0, 1.0, 1.0, 1.0, .43] Imager rope display ShowRope[.025, .11, "The Current Color and Font"] ShowRope[.025, .07, "The Current Color", "Xerox/Pressfonts/TimesRoman/MRR", .02] SetDevice[$SmoothGray, [0,0,512,400], [0,0,0,0], TRUE] NameColor["Black"] ShowRope[.005, .073, "This is what small text (.002) looks like on this display.", "Xerox/Pressfonts/TimesRoman/MRR", .002] ShowRope[.005, .075, "This is what small text (.0025) looks like on this display.", "Xerox/Pressfonts/TimesRoman/MRR", .0025] ShowRope[.005, .078, "This is what small text (.003) looks like on this display.", "Xerox/Pressfonts/TimesRoman/MRR", .003] ShowRope[.005, .082, "This is what small text (.0035) looks like on this display.", "Xerox/Pressfonts/TimesRoman/MRR", .0035] ShowRope[.005, .087, "This is what small text (.004) looks like on this display.", "Xerox/Pressfonts/TimesRoman/MRR", .004] ShowRope[.005, .093, "This is what small text (.005) looks like on this display.", "Xerox/Pressfonts/TimesRoman/MRR", .005] ShowRope[.005, .101, "This is what small text (.006) looks like on this display.", "Xerox/Pressfonts/TimesRoman/MRR", .006] ShowRope[.005, .11, "This is what small text (.007) looks like on this display.", "Xerox/Pressfonts/TimesRoman/MRR", .007] ShowRope[.005, .12, "This is what small text (.008) looks like on this display.", "Xerox/Pressfonts/TimesRoman/MRR", .008] Smooth text Display SetDevice[$SmoothGray, [0,0,512,400], [0,0,0,0], TRUE] GetAISFile[ "/ivy/crow/ais/SmoothText.ais"] Load8BitRampMap[1.0, 1.0, 1.0, 0.0, 0.0, 0.0, 1.0] For displaying full-color AIS files SetDevice[$Std24bpp, [0,0,0,0]] Get3AISFiles[ "/ivy/crow/ais/Poobs-red.ais", "/ivy/crow/ais/Poobs-grn.ais", "/ivy/crow/ais/Poobs-blu.ais"] Get3AISFiles[ "/indigo/ais/Baboon-red.ais", "/indigo/ais/Baboon-green.ais", "/indigo/ais/Baboon-blue.ais"] Get3AISFiles[ "/indigo/ais/tiffany-red.ais", "/indigo/ais/tiffany-green.ais", "/indigo/ais/tiffany-blue.ais"] Get3AISFiles[ "/indigo/ais/girl22-red.ais", "/indigo/ais/girl22-green.ais", "/indigo/ais/girl22-blue.ais"] Output full-color to 3 AIS files Put3AISFiles[ "Poobs-red.ais", "Poobs-grn.ais", "Poobs-blu.ais"] Output color in Dorado RG-interleaved format to 1 AIS file PutFastAISFile["Poobs.ais"] For displaying 8-bit AIS files LoadGrey8BitMap[] GetAISFile[ "/ivy/crow/SummedAreaTables/ChkrbdJg.ais"] GetAISFile[ "/ivy/crow/SummedAreaTables/ChkrbdSm.ais"] GetAISFile[ "/ivy/crow/SummedAreaTables/EggsChecked.ais"] GetAISFile[ "/ivy/crow/SummedAreaTables/EggsStriped.ais"] Ouput 8-bit AIS file PutAISFile["Poobs-gray.ais"] Display Standard Color Map (first 16) Yellow Cyan Magenta White Very Dark Grey Very Light Grey Grey Purple Orange Brown Dark Grey Light Grey Black Red Green Blue NameColor["Black"] FillRectangle[0.025, 0.0, .05, .05] NameColor["Red"] FillRectangle[0.075, 0.0, .05, .05] NameColor["Green"] FillRectangle[0.125, 0.0, .05, .05] NameColor["Blue"] FillRectangle[0.175, 0.0, .05, .05] NameColor["Orange"] FillRectangle[0.025, 0.05, .05, .05] NameColor["Brown"] FillRectangle[0.075, 0.05, .05, .05] NameColor["Dark Grey"] FillRectangle[0.125, 0.05, .05, .05] NameColor["Light Grey"] FillRectangle[0.175, 0.05, .05, .05] NameColor["Very Dark Grey"] FillRectangle[0.025, 0.1, .05, .05] NameColor["Very Light Grey"] FillRectangle[0.075, 0.1, .05, .05] NameColor["Grey"] FillRectangle[0.125, 0.1, .05, .05] NameColor["Purple"] FillRectangle[0.175, 0.1, .05, .05] NameColor["Yellow"] FillRectangle[0.025, 0.15, .05, .05] NameColor["Cyan"] FillRectangle[0.075, 0.15, .05, .05] NameColor["Magenta"] FillRectangle[0.125, 0.15, .05, .05] NameColor["White"] FillRectangle[0.175, 0.15, .05, .05] Green to Blue ramp NameColor["Green"] FillRectangle[0.025, 0.175, .025, .025] NameColor["Very Green Blue Green"] FillRectangle[0.05, 0.175, .025, .025] NameColor["Green Blue Green"] FillRectangle[0.075, 0.175, .025, .025] NameColor["Bluish Green"] FillRectangle[0.1, 0.175, .025, .025] NameColor["Blue Green"] FillRectangle[0.125, 0.175, .025, .025] NameColor["Greenish Blue"] FillRectangle[0.15, 0.175, .025, .025] NameColor["Blue Blue Green"] FillRectangle[0.175, 0.175, .025, .025] NameColor["Very Blue Blue Green"] FillRectangle[0.2, 0.175, .025, .025] NameColor["Blue"] FillRectangle[0.225, 0.175, .052, .025] Black to white ramp NameColor["Black"] FillRectangle[0.025, 0.1, .025, .025] NameColor["Very Dark Grey"] FillRectangle[0.05, 0.1, .025, .025] NameColor["Dark Grey"] FillRectangle[0.075, 0.1, .025, .025] NameColor["Light Dark Grey"] FillRectangle[0.1, 0.1, .025, .025] NameColor["Grey"] FillRectangle[0.125, 0.1, .025, .025] NameColor["Dark Light Grey"] FillRectangle[0.15, 0.1, .025, .025] NameColor["Light Grey"] FillRectangle[0.175, 0.1, .025, .025] NameColor["Very Light Grey"] FillRectangle[0.2, 0.1, .025, .025] NameColor["White"] FillRectangle[0.225, 0.1, .052, .025] Green to Gray ramp NameColor["Green"] FillRectangle[0.025, 0.125, .025, .025] NameColor["Very Strong Weak Green"] FillRectangle[0.05, 0.125, .025, .025] NameColor["Strong Weak Green"] FillRectangle[0.075, 0.125, .025, .025] NameColor["Weak Strong Weak Green"] FillRectangle[0.1, 0.125, .025, .025] NameColor["Weak Green"] FillRectangle[0.125, 0.125, .025, .025] NameColor["Strong Very Weak Green"] FillRectangle[0.15, 0.125, .025, .025] NameColor["Very Weak Green"] FillRectangle[0.175, 0.125, .025, .025] NameColor["Very Very Weak Green"] FillRectangle[0.2, 0.125, .025, .025] NameColor["Grey"] FillRectangle[0.225, 0.125, .052, .025] PImagerColorTest.cm Last Edited by: Crow, August 16, 1984 10:38:28 am PDT Ê˜J™J™5Jš0œÐbiœœÏi>œ/Ïkœž@œ3ŸœžCœ2Ÿœž!œ1Ÿœž%œ/ŸœžPœ0ŸœœQ7œrDœvœ;œ@ž²Ðikž1œ5œµŸœ˜ïJšœ{˜{Jšœ}˜}Jšœ{˜{Jšœ}˜}Jšœ{˜{Jšœ{˜{Jšœ{˜{Jšœz˜zJš#œ|œ2ŸœbÑbikœÚ¡œE¡¡œ¡œö¡œ½œ•œÖœ¬œê˜ž!—…—ô_