-- ImagerAlpha4Device.mesa
-- Copyright © 1985 by Xerox Corporation. All rights reserved.
-- Mik Lamming - October 17, 1985 8:56:36 am PDT
Last edited by: Mik Lamming - November 18, 1985 9:11:15 am PST
DIRECTORY
Imager USING [Context],
ImagerColorDefs USING [ConstantColor],
ImagerDevice USING [Device],
ImagerPixelArray USING [PixelArray],
ImagerPixelMap USING [PixelMap],
ImagerTransformation USING [Transformation],
Rope USING [ROPE];
ImagerAlpha4Device: 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] ;
CreateDevice:
PUBLIC PROC [
devicePms: LIST OF ImagerPixelMap.PixelMap,
deviceToPixel: ImagerTransformation.Transformation ← NIL -- transformation from device space
]
RETURNS [ImagerDevice.Device] ;
MakeConstantColor: PROC [color: ImagerColorDefs.ConstantColor, alpha: REAL ← 1.0]
RETURNS [alphaColor: ImagerColorDefs.ConstantColor] ;
MakePixelArrayFromAIS:
PROC [
r,g,b,a: Rope.ROPE ← NIL
] 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.
END.