DIRECTORY AIS USING [WRef], ExtraAIS USING [VRef], IO USING [STREAM], Rope USING [ROPE], ViewerClasses USING [Viewer]; AISCopy: CEDAR DEFINITIONS = BEGIN State: TYPE = REF StateRec; StateRec: TYPE = RECORD [ oScansViewer, oPixelsViewer, oScaleS, oScaleP, heightViewer, leftViewer, topViewer, widthViewer, emptyViewer: ViewerClasses.Viewer, container, wdViewer, inFnViewer, outFnViewer, logViewer, pie, AISViewer: ViewerClasses.Viewer, out: IO.STREAM, sourceW, sourceH: CARDINAL _ 2048, imageX,imageY: INTEGER _ 0, imageH, imageW: CARDINAL _ 0, -- part to be copied copyH, copyW: CARDINAL _ 0, -- size of copy to be produced scaleX,scaleY: REAL _ 1.0, -- scale factor for copy showFilename: Rope.ROPE, abort,parameterError: BOOLEAN _ FALSE, originX, originY: REAL _ 0, x1,y1,x2,y2: REAL, scale: REAL _ 1.0 ]; GetNumberFromViewer: PROC[s: State, v: ViewerClasses.Viewer, lb,ub: INTEGER, er: Rope .ROPE] RETURNS[i: INTEGER]; GetRealFromViewer: PROC[s: State, v: ViewerClasses.Viewer, lb,ub: REAL, er: Rope.ROPE] RETURNS[r: REAL]; GetFileName: PROC[s: State, v: ViewerClasses.Viewer] RETURNS[hasExtensionAIS: BOOLEAN, fileStem: Rope.ROPE]; ShrinkNoOfLines: PROC[s: State, wIn: ExtraAIS.VRef, wOut: AIS.WRef]; ExpandNoOfLines: PROC[s: State, wIn: ExtraAIS.VRef, wOut: AIS.WRef]; END. άAISCopy.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Mik Lamming - August 30, 1983 12: 12 pm Last Edited by: Spreitzer, July 21, 1984 4: 23: 29 pm PDT Rick Beach, May 23, 1985 4:47:11 pm PDT Κί˜code™ Kšœ Οmœ1™