DIRECTORY CD USING [Design, Layer, Rect, undefLayer], Imager USING [Rectangle], Rope USING [ROPE]; Nectarine: CEDAR DEFINITIONS ~ BEGIN invalidPrinter, communicationsFailure, tooComplex: SIGNAL; DoInterpress: PROC [design: CD.Design, chipNDaleWindow: CD.Rect, clip, onlySel, singleLayer: BOOL _ FALSE, layer: CD.Layer _ CD.undefLayer, lambda: REAL _ 0.0, firstPage, lastPage: BOOL _ TRUE, abortFlag: REF BOOL] RETURNS [masterName: Rope.ROPE, usedField: Imager.Rectangle]; Print: PROC [masterName: Rope.ROPE, printerKey: ATOM, copies: INT _ 1, doNotScale: BOOL _ FALSE, sizeHint: REF Imager.Rectangle _ NIL] RETURNS [peachName: Rope.ROPE]; ReportXNSprintingStatus: PROC END. ψNectarine.mesa Copyright Σ 1986, 1987 by Xerox Corporation. All rights reserved. Giordano Bruno Beretta, April 11, 1986 7:57:41 pm PST gbb March 16, 1987 3:55:21 pm PST Implements an alternate way to produce Interpress masters from ChipNDale drawings. The difference is in the user interface. It is similar to the one in programs by Imaging Folks, and it is simpler to use for casual users. Fuzzless and sweeter than peaches (Suzanne Williams) Produces an Interpress master of the design. The master is scaled such that it fits a whole page. chipNDaleWindow is either the bounding box of the design or a window in it. In the latter case, clip must be set to TRUE, and objects completetly outside the window will be ommitted from the Interpress master (because of things like mitering, actual clipping can be performed only when a bitmap is created). The usedField is specified in millimeters. It is useful for subsequent processing of the Interpress master as long as this field cannot be specified in the preamble of Interpress masters themselves. If onlySel is true, only the selected object are included in the Interpress master. If singleLayer is true, only objects in the layer layer are included in the Interpress master. If lambda = 0 then scale such that the window fills the field, else scale such that 1  will be lambda mm in the Interpress master. If not last page, the Interpress master is not closed, hence the next call of this procedure will add a page to the same master instead of creating a new document. May return signal tooComplex if it is believed that there might be too many rectangles in a horizontal cross section. The used criterion is the width of the design; if you do not agree, use the Interpreter to increase the risk. Produces (if necessary) a PD file from an Interpress master and ships it to the printer. Valid printer keys are $NVersatec, $NColorVersatec, $NPeachExpand, $NBw400, $NColor400, $NRaven300, $NRaven384, $NPlateMaker. May return signals invalidPrinter. If the image is in portrait format and the printer uses roll paper, the rectangle usedField from DoInterpress can be specified as a sizeHint to increase the scale so a to use the full roll width. If doNotScale then Print does not fit the field to the medium. Traverses Nectarine's private queues, updates them, and prints a status report. gbb September 5, 1986 11:02:07 am PDT Added the parameter sizeHint to the print procedure. changes to: Print gbb February 2, 1987 6:00:10 pm PST Added the capability to print at a given scale, i.e., to define  in millimetres changes to: DoInterpress: added parameter lambda, Print: added parameter doNotScale. gbb February 10, 1987 2:34:49 pm PST Added a procedure to report the XNS printing status. Added the ability to print only a single layer. Κ˜šœ™IcodešœB™BJšœ5™5K™!J™—™ίIquote™4—code2šΟk ˜ Kšœœ#˜+Kšœœ ˜Kšœœœ˜—MšΠln œœ ˜šœ˜Mšœ3œ˜:šΟn œœ œœ#œœ œ œœœœ œœœœ˜”KšœdΟeœR œœ»™˜Kšœ  œΊ™ΗKšœ œI™SKšœ  œ$ œ'™^Kšœ` œ™ƒK™£Kšœ  œΓ œ™δ—šŸœœœœ œœœ œœœœ˜¦Mš œœU œ #œ  œ" œ™ϋMšœR  œ  œ œ7™ΓMšœ  œ œ&™>—šŸœ˜K™O——Mšœ˜™%Kšœ œ™4Kšœ  ™—™#K™PKš œ   œ œ œ  œ™T—™$K™4K™/——…—€¬