
<<SVImage.mesa>>
<<Author: Eric Bier>>
<<Last edited by Bier on June 30, 1983 11:27 am>>
<<Contents: Routines for manipulating 24 bit per pixel color images>>

DIRECTORY
AIS,
CoordSys,
Graphics,
GraphicsColor,
Matrix3d,
Rope,
SV2d,
SVBoundBox;

SVImage: DEFINITIONS =
BEGIN

BoundBox: TYPE = SVBoundBox.BoundBox;
Color: TYPE = GraphicsColor.Color;
Matrix4by4: TYPE = Matrix3d.Matrix4by4;
Point2d: TYPE = SV2d.Point2d;

Image: TYPE = REF ImageObj;
ImageObj: TYPE = RECORD [
bAndWOnly: BOOL, redWindow, greenWindow, blueWindow, bwWindow: AIS.WRef];

OpenImage: PROC [aisRope: Rope.ROPE, bAndWOnly: BOOL, realMinX, realMinY, realMaxX, realMaxY, resolution: REAL, raster: AIS.Raster, 
commentString: LONG STRING] RETURNS [I: Image, numberOfSamplesX, numberOfSamplesY: NAT];

PutImage: PROC [I: Image, i, j: INTEGER, color: Color, xSamples, ySamples: NAT];

CloseImage: PROC [I: Image, aisRope: Rope.ROPE];

DrawAndScaleBlackAndWhiteImage: PROC [dc: Graphics.Context, imageName: Rope.ROPE, screenWRTCamera: Point2d, realMinX, realMinY, 
realMaxX, realMaxY: REAL];

DrawAlignedBlackAndWhiteImage: PROC [dc: Graphics.Context, imageName: Rope.ROPE, resolution: REAL, screenWRTCamera: Point2d, 
boundBox: BoundBox, raw: BOOL];

DrawBlackAndWhiteImage: PROC [dc: Graphics.Context, imageName: Rope.ROPE, clipBox: BoundBox _ NIL, resolution: REAL _ 72.0, raw: 
BOOL];

DrawAndScaleColorImage: PROC [dc: Graphics.Context, imageName: Rope.ROPE, screenWRTCamera: Point2d, realMinX, realMinY, realMaxX, 
realMaxY: REAL];

DrawAlignedColorImage: PROC [dc: Graphics.Context, imageName: Rope.ROPE, resolution: REAL, screenWRTCamera: Point2d, boundBox: 
BoundBox];

DrawColorImage: PROC [dc: Graphics.Context, imageName: Rope.ROPE, clipBox: BoundBox _ NIL, resolution: REAL _ 72.0];

END.