DIRECTORY ChoiceButtons, PieViewers, Process, Rope, ViewerClasses; PressScreen: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; Side: TYPE = {leftSide, bothSides, rightSide}; PressScreen: PROCEDURE [pressFileName: ROPE, which: Side]; ScreenParameters: TYPE = RECORD [ sourceHeight: NAT _ NAT.LAST, sourceWidth: NAT _ NAT.LAST, sourceBottom: NAT _ 0, sourceLeft: NAT _ 0, borderWidth: REAL _ 2.0, lockViewers: BOOLEAN _ TRUE, displayCursor: BOOLEAN _ FALSE, displayCarets: BOOLEAN _ FALSE ]; PageParameters: TYPE = RECORD [ magnification: REAL _ 0.5, scaleToFit: MagnificationType _ useMagnification, leftMarginInches, rightMarginInches: REAL _ 0.75, landscape: BOOLEAN _ FALSE ]; MagnificationType: TYPE = {fullPage, halfPage, useMagnification}; AISPressScreen: PROCEDURE [ pressFileName: ROPE, screenParms: ScreenParameters _ [], pageParms: PageParameters _ [] ] RETURNS [fileName: ROPE]; IPScreen: PROCEDURE [ipFileName: ROPE, screenParms: ScreenParameters _ [], pageParms: PageParameters _ []] RETURNS [fileName: ROPE]; StuffScreen: PROCEDURE [screenParms: ScreenParameters _ []]; MagnificationFactorTooLarge: SIGNAL; AISPageAlignmentHackFailed: SIGNAL; NewPressName: PROCEDURE RETURNS [pressFileName: ROPE]; NewAISPressName: PROCEDURE RETURNS [pressFileName: ROPE]; NewIPName: PROCEDURE RETURNS [ipFileName: ROPE]; PressScreenTool: TYPE = REF PressScreenToolRec; PressScreenToolRec: TYPE = RECORD[ stateSaved: BOOLEAN _ FALSE, destroyed: BOOLEAN _ FALSE, tool: ViewerClasses.Viewer, outputStyleChoice: ChoiceButtons.EnumTypeRef, outputStyleRope: ROPE, screenAreaChoice: ChoiceButtons.EnumTypeRef, screenAreaRope: ROPE, magnificationChoice: ChoiceButtons.EnumTypeRef, magnificationRope: ROPE, magnificationViewer: ViewerClasses.Viewer, -- magnification factor magnificationFactor: REAL, ulx, uly, lrx, lry: ViewerClasses.Viewer, -- upper left, lower right coordinates ulX, ulY, lrX, lrY: REAL, formatViewer: ChoiceButtons.EnumTypeRef, formatRope: ROPE, borderViewer: ViewerClasses.Viewer, -- border width borderWidth: REAL, pageMarginViewer: ViewerClasses.Viewer, pageMargin: REAL, countDownTimerViewer: ViewerClasses.Viewer, countDownTime: Process.Ticks, countDownPieViewer: PieViewers.PieViewer, lockViewersTriState: ChoiceButtons.ThreeStateRef, lockViewers: BOOLEAN, displayCursorTriState: ChoiceButtons.ThreeStateRef, displayCursor: BOOLEAN, displayCaretsTriState: ChoiceButtons.ThreeStateRef, displayCarets: BOOLEAN, logViewer: ViewerClasses.Viewer, logMessage: ROPE ]; NewPressScreenTool: PROCEDURE [serverName: ROPE] RETURNS[psTool: PressScreenTool]; END. θPressScreen.mesa Interface to make AIS/press file of display Last edited by Michael Plass on April 25, 1985 11:11:01 am PST Last Edited by: Beach, May 7, 1984 1:34:16 pm PDT Spreitzer, February 4, 1986 1:45:58 pm PST Old interface to convert part or all of the bit mapped screen into a press file. Converts the specified region of the bit mapped screen into a combination AIS and Press file. Such files can be used by CedarGraphics or printed by the TSetter. AISPressScreen can raise two signals: MagnificationFactorTooLarge when the specified rectangle will not fit on an 8.5 by 11 inch page with the supplied margins and magnifications; and AISPageAlignmentHackFailed for an internal error expected when the size of SirPress record definitions change (low probability). Converts the specified region of the bit mapped screen into an Interpress Master file. Such files can be used by the Imager or printed by the TSetter. May raise MagnificationFactorTooLarge. Stuffs the specified region of the bit mapped screen after the current Tioga selection. Such files can be used by the Imager or printed by the TSetter. May raise MagnificationFactorTooLarge. The specified rectangle will not fit on an 8.5 by 11 inch page with the supplied margins and magnifications An internal error expected when the size of SirPress record definitions change (low probability) Returns a file name like "Screen1.press", "Screen2.press", etc. Returns a file name like "Screen1.ais", "Screen2.ais", etc. Returns a file name like "Screen1.IP", "Screen2.IP", etc. Creates a PressScreen tool viewer. Edited on May 7, 1984 1:34:16 pm PDT, by Beach changes to: move PressScreenToolRec into the interface eliminating an opaque TYPE, DIRECTORY, PressScreenTool, PressScreenToolRec, END Κ˜codešœ™Kšœ+™+Kšœ>™>K™1™*K˜——šΟk ˜ K˜K˜ K˜Kšœ˜Kšœ˜K˜—Kšœ œ˜ Kš˜K˜Kšœœœ˜Kšœœ$˜.K˜šΟn œ œœ˜:K™P—K˜šœœœ˜!Kšœœœœ˜Kšœ œœœ˜Kšœœ˜Kšœ œ˜Kšœ œ˜Kšœ œœ˜Kšœœœ˜Kšœœ˜Kšœ˜K˜—šœœœ˜Kšœœ˜Kšœ1˜1Kšœ%œ˜1Kšœ œ˜K˜K˜—šœœ*˜AK˜—šžœ œ˜Kšœœ˜Kšœ#˜#Kšœ˜Kšœœ œ˜K™]K™BKšœΈ™ΈK˜—š žœ œœE œ œ˜„K™VK™?Kšœ&™&K˜—šž œ œ&˜