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. –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 Ê#– "cedar" style˜Iheadšœ ™ Iprocšœ™Lšœ-™-LšœA™AL˜LšÏk ˜ Lšœ˜Lšœ ˜ Lšœ ˜ Lšœ˜Lšœ ˜ Lšœ˜Lšœ˜Lšœ ˜ L˜Lšœ œ˜Lš˜L˜Lšœ œ˜%Lšœœ˜"Lšœ œ˜'Lšœ œ˜L˜Lšœœœ ˜Lšœ œœ˜Lšœ œ0œ˜IL˜LšÏn œœœ œ6œ œœœœœ-œ˜ÜL˜Lš žœœœœ$œ˜PL˜Lšž œœœœ˜0L˜Lšžœœ(œDœ˜šL˜Lš žœœ(œœ5œ˜œL˜Lš žœœ(œœœœ˜‡L˜Lšžœœ(œDœ˜’L˜Lšžœœ(œœ0˜‰L˜Lš žœœ(œœœ ˜tL˜Lšœ˜—…—Fÿ