<<-- ImagerAlphaDevice.mesa>> <<-- Copyright © 1985 by Xerox Corporation. All rights reserved.>> <<-- Mik Lamming - October 17, 1985 8:56:36 am PDT>> <> 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.