ImagerArtworkExtras.mesa
Copyright Ó 1988, 1992 by Xerox Corporation. All rights reserved.
Pier, October 10, 1988 5:15:35 pm PDT
Imager clients can use this interface to create Tioga Interpress Artwork nodes.
DIRECTORY
Imager USING [Context, Rectangle, Transformation],
TiogaAccess USING [Writer];
ImagerArtworkExtras: CEDAR DEFINITIONS
~ BEGIN
WriteArtworkNoCaption: PROC [writer: TiogaAccess.Writer, action: PROC [Imager.Context], bounds: Imager.Rectangle, m: Imager.Transformation ¬ NIL, clip: BOOL ¬ TRUE, fit: BOOL ¬ FALSE];
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.
ReplaceArtwork: PROC [action: PROC [Imager.Context], bounds: Imager.Rectangle, m: Imager.Transformation ¬ NIL, clip: BOOL ¬ TRUE, fit: BOOL ¬ FALSE];
Creates a Tioga Artwork node and replaces the current selection with it.
END.