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.
DIRECTORY
Imager USING [Context, Rectangle, Transformation],
Rope USING [ROPE],
TiogaAccess USING [Writer];
ImagerArtwork: CEDAR DEFINITIONS
~ BEGIN
Points: PROC RETURNS [Imager.Transformation];
Make 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,
caption: BOOL ¬ TRUE];
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.
PasteArtwork: PROC [
action: PROC [Imager.Context],
bounds: Imager.Rectangle,
m: Imager.Transformation ¬ NIL,
clip: BOOL ¬ TRUE,
fit: BOOL ¬ FALSE,
caption: BOOL ¬ TRUE];
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.
CreateInterpressRope: PROC [
action: PROC [Imager.Context],
bounds: Imager.Rectangle,
m: Imager.Transformation ¬ NIL,
clip: BOOL ¬ TRUE]
RETURNS [Rope.ROPE];
Make an Interpress master in the form of a rope.
END.