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.
DIRECTORY
Imager USING [Context, Rectangle, Transformation],
Rope USING [ROPE],
TiogaAccess USING [Writer];
ImagerArtwork: CEDAR DEFINITIONS
~ BEGIN
Points: PROC RETURNS [Imager.Transformation];
Makes a transformation that transforms 72-per-inch points to meters.
WriteArtwork: 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.
PasteArtwork: PROC [action: PROC [Imager.Context], bounds: Imager.Rectangle, m: Imager.Transformation ← NIL, clip: BOOL ← TRUE, fit: BOOL ← FALSE];
Creates a Tioga Artwork node and pastes it at the current selection.
CreateInterpressRope: PROC [action: PROC [Imager.Context], bounds: Imager.Rectangle, m: Imager.Transformation ← NIL, clip: BOOL ← TRUE] RETURNS [Rope.ROPE];
Makes an Interpress master in the form of a rope.
END.