DIRECTORY Imager USING [Context], ImagerColorDefs USING [ConstantColor], ImagerPixelArray USING [PixelArray], ImagerPixelMap USING [PixelMap], ImagerTransformation USING [Transformation], Rope USING [ROPE]; ImagerAlphaDevice: CEDAR DEFINITIONS ~ BEGIN OPEN Imager, ImagerPixelMap, ImagerTransformation; Create: PROC [ devicePms: LIST OF PixelMap, deviceToPixel: Transformation _ NIL, -- transformation from device space initialScale: REAL _ 1.0] RETURNS [Context] ; MakeConstantColor: PROC [color: ImagerColorDefs.ConstantColor, alpha: REAL _ 1.0] RETURNS [alphaColor: ImagerColorDefs.ConstantColor] ; MakePixelArrayFromAIS: PROC [ r,g,b: Rope.ROPE, a: Rope.ROPE _ NIL, defaultAlpha: REAL _ 1.0 ] RETURNS [pa: ImagerPixelArray.PixelArray] ; END. Š-- ImagerAlphaDevice.mesa -- Copyright c 1985 by Xerox Corporation. All rights reserved. -- Mik Lamming - October 17, 1985 8:56:36 am PDT Last edited by: Mik Lamming - October 17, 1985 12:48:55 pm PDT Makes a pixel array suitable for Imager.SetSampledColor on this device. If 'a' is defaulted then an AIS file the same size as 'r' is assumed. Its value will be defaultAlpha throughout. Κi˜Jšœ™Jšœ Οmœ1™?™0Icode™>—J˜K˜šΟk ˜ Kšœžœ ˜Kšœžœ˜&Kšœžœ˜$Kšœžœ ˜ Kšœžœ˜,Kšœžœžœ˜K˜—KšΠlnœžœž ˜$šœž œ-ž˜:K˜šΟnœžœ˜Kšœ žœžœ ˜Kšœ žœΟc#˜HKšœžœ˜Kšžœ ˜K˜—Kš œžœ/žœžœ.˜‡K˜š œžœ˜Kšœ žœ˜Kšœžœžœ˜Kšœžœ˜Kšœžœ$˜-—KšœG™GKšœq™qK˜—K˜Kšžœ˜—…—τη