DIRECTORY Imager USING [Context, Rectangle, Transformation], Rope USING [ROPE], TiogaAccess USING [Writer]; ImagerArtwork: CEDAR DEFINITIONS ~ BEGIN Points: PROC RETURNS [Imager.Transformation]; WriteArtwork: PROC [writer: TiogaAccess.Writer, action: PROC [Imager.Context], bounds: Imager.Rectangle, m: Imager.Transformation _ NIL, clip: BOOL _ TRUE, fit: BOOL _ FALSE]; PasteArtwork: PROC [action: PROC [Imager.Context], bounds: Imager.Rectangle, m: Imager.Transformation _ NIL, clip: BOOL _ TRUE, fit: BOOL _ FALSE]; CreateInterpressRope: PROC [action: PROC [Imager.Context], bounds: Imager.Rectangle, m: Imager.Transformation _ NIL, clip: BOOL _ TRUE] RETURNS [Rope.ROPE]; END. œImagerArtwork.mesa Copyright Σ 1985, 1986, 1987 by Xerox Corporation. All rights reserved. Michael Plass, February 12, 1987 10:24:27 am PST Imager clients can use this interface to create Tioga Interpress Artwork nodes. Makes a transformation that transforms 72-per-inch points to meters. Creates a Tioga Artwork node and appends it onto the writer. Use TiogaAccess to put the contents of the writer somewhere interesting. m transforms client coordinates to the Imager Initial Coordinate System (meters). bounds are in client coordinates. Creates a Tioga Artwork node and pastes it at the current selection. Makes an Interpress master in the form of a rope. ΚI˜codešœ™KšœH™HK™0—K™K™OK™šΟk ˜ Kšœœ&˜2Kšœœœ˜Kšœ œ ˜—K˜KšΠbl œœ ˜ Kšœ˜˜šΟnœœœ˜-K™DK˜—šŸ œœ&œHœœœœœ˜―J™