
<<SVImage.mesa>>
<<Author: Eric Bier>>
<<Last edited by Bier on March 1, 1987 5:53:44 pm PST>>
<<Contents: Routines for manipulating 24 bit per pixel color images>>

DIRECTORY
AIS, AtomButtonsTypes, Imager, Rope, SV2d, SV3d, SVBasicTypes, SVModelTypes, ViewerClasses;

SVImage: CEDAR DEFINITIONS =
BEGIN

BoundBox: TYPE = SVBasicTypes.BoundBox;
Color: TYPE = Imager.Color;
FeedbackData: TYPE = AtomButtonsTypes.FeedbackData;
Matrix4by4: TYPE = SV3d.Matrix4by4;
Point2d: TYPE = SV2d.Point2d;

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

OpenImage: PROC [aisRope: Rope.ROPE, bAndWOnly: BOOL, realMinX, realMinY, realMaxX, realMaxY, resolution: REAL, feedback: 
FeedbackData] RETURNS [I: Image, numberOfSamplesX, numberOfSamplesY: NAT];
RGBTo8Bits: PROC [r,g,b: REAL] RETURNS [red, green, blue, black: NAT];
CountSamples: PROC [realMinX, realMinY, realMaxX, realMaxY, resolution: REAL] RETURNS [numberOfSamplesX, numberOfSamplesY: NAT];
PutImage: PROC [I: Image, i, j: INTEGER, color: Color, xSamples, ySamples: NAT];
CloseImage: PROC [I: Image, aisRope: Rope.ROPE, comment: Rope.ROPE, feedback: FeedbackData];

DrawAlignedBlackAndWhiteImage: PROC [dc: Imager.Context, imageName: Rope.ROPE, resolution: REAL, screenWRTCamera: Point2d, 
boundBox: BoundBox, feedback: FeedbackData];
DrawAlignedColorImage: PROC [dc: Imager.Context, imageName: Rope.ROPE, resolution: REAL, screenWRTCamera: Point2d, boundBox: 
BoundBox, feedback: FeedbackData];

DrawBlackAndWhiteAtOrigin: PROC [dc: Imager.Context, imageName: Rope.ROPE, resolution: REAL _ 72.0, feedback: FeedbackData];
DrawColorImageAtOrigin: PROC [dc: Imager.Context, imageName: Rope.ROPE, resolution: REAL _ 72.0, feedback: FeedbackData];


END.