ImagerArtwork.mesa
Copyright © 1985, 1986 by Xerox Corporation. All rights reserved.
Michael Plass, August 28, 1986 3:56:33 pm PDT
Imager clients can use this interface to create Tioga 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.