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, caption: BOOL ¬ TRUE]; PasteArtwork: PROC [ action: PROC [Imager.Context], bounds: Imager.Rectangle, m: Imager.Transformation ¬ NIL, clip: BOOL ¬ TRUE, fit: BOOL ¬ FALSE, caption: BOOL ¬ TRUE]; 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, 1992 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. Make a transformation that transforms 72-per-inch points to meters. Create a Tioga Artwork node and append 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. Create a Tioga Artwork node and paste it at the current selection. If the current is selection's granularity is point, then create a new node; otherwise, replace the selected text with the artwork. Make an Interpress master in the form of a rope. Κ•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ ΟeœC™NK™0K™K™OK™—šΟk ˜ Kšœžœ&˜2Kšœžœžœ˜Kšœ žœ ˜—K˜KšΠbl œžœž ˜ Kšœž˜˜šΟnœžœžœ˜-K™CK˜—š  œžœ˜Kšœ˜Kšœžœ˜Kšœ˜Kšœžœ˜Kšœžœžœ˜Kšœžœžœ˜Kšœ žœžœ˜J™:JšœH™HJšœQ™QJšœ!™!K˜—š  œžœ˜Kšœžœ˜Kšœ˜Kšœžœ˜Kšœžœžœ˜Kšœžœžœ˜Kšœ žœžœ˜J™BJ™KJ™6K˜—š œžœ˜Kšœžœ˜Kšœ˜Kšœžœ˜Kšœžœžœ˜Kšžœžœ˜K™0K˜——Kšžœ˜K˜—…—ΰ