SVImage.mesa
Author: Eric Bier
Last edited by Bier on August 17, 1985 10:11:56 pm PDT
Contents: Routines for manipulating 24 bit per pixel color images
DIRECTORY
AIS,
Imager,
Rope,
SV2d,
SV3d,
SVModelTypes;
SVImage: DEFINITIONS =
BEGIN
BoundBox: TYPE = SVModelTypes.BoundBox;
Color: TYPE = Imager.Color;
Matrix4by4: TYPE = SV3d.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, commentString: Rope.ROPE] 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];
DrawAlignedBlackAndWhiteImage: PROC [dc: Imager.Context, imageName: Rope.ROPE, resolution: REAL, screenWRTCamera: Point2d, boundBox: BoundBox];
DrawAlignedColorImage: PROC [dc: Imager.Context, imageName: Rope.ROPE, resolution: REAL, screenWRTCamera: Point2d, boundBox: BoundBox];
DrawBlackAndWhiteAtOrigin: PROC [dc: Imager.Context, imageName: Rope.ROPE, resolution: REAL ← 72.0];
DrawColorImageAtOrigin: PROC [dc: Imager.Context, imageName: Rope.ROPE, resolution: REAL ← 72.0];
END.