-- ImagerAlphaDevice.mesa
-- Copyright © 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
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] ;
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.
END.