AISCopy.mesa
Copyright © 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
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.