DIRECTORY Imager USING [Context], ImagerPixelArrayDefs USING [PixelArray], ImagerPixelMap USING [DeviceRectangle, PixelMap], ImagerTransformation USING [Transformation]; ImagerGray: CEDAR DEFINITIONS ~ BEGIN OPEN Imager, ImagerPixelArrayDefs, ImagerPixelMap, ImagerTransformation; Create: PROC [pixelMap: PixelMap, component: ATOM, viewToPixel: Transformation _ NIL, initialScale: REAL _ 1.0, change: PROC[changeData: REF, d: DeviceRectangle, action: PROC] _ NIL, changeData: REF _ NIL, cacheFonts: BOOL _ TRUE] RETURNS [Context]; SetComponent: PUBLIC PROC [context: Context, component: ATOM]; MakePixelArray: PROC [action: PROC [Context], sSize, fSize: NAT, components: LIST OF ATOM, viewToPixel: Transformation _ NIL, initialScale: REAL _ 1.0, lgBitsPerSample: NAT _ 3, cacheFonts: BOOL _ TRUE, blackBackground: BOOL _ FALSE] RETURNS [PixelArray]; LikeScreen: PROC [sSize: NAT] RETURNS [Transformation]; END. –ImagerGray.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last edited by: Mik Lamming - June 9, 1986 1:40:00 pm PDT Vanilla grey Imager context. Creates a context that will draw into the PixelMap. component says which component is desired, i.e., $Intensity, $Red, $Green, $Blue, $Alpha Use LikeScreen to generate a viewToPixel of the most commonly wanted kind. change proc may be supplied to give the client control before and after the pixelMap changes, for locking, etc. It should call action to actually alter pixelMap. Changes the active component of an existing context. Not subject to DoSave. Creates a PixelArray. Using components = LIST[$Red, $Green, $Blue] yields a PixelArray that may be used with the RGBLinear color model. If blackBackground, the background color is black instead of white. Convenience for making a viewToPixel transformation in the favored screen orientation. Ê’˜code™Kšœ Ïmœ1™K™KK˜—š œžœ žœžœžœžœžœ žœžœžœžœžœžœžœžœ˜ÿK™Kšœq™qKšœC™CK˜—š  œžœ žœžœ˜7KšœV™V—K˜—Kšžœ˜K˜—…—˜À