-- File SifOutputDefs.mesa
-- Last updated: January 27, 1981 12:28 PM

-- ICARUS to CIF conversion driving routines

DIRECTORY

SifGutsDefs: FROM "SifGutsDefs" USING [Point];


SifOutputDefs: DEFINITIONS =

BEGIN

OPEN SifGutsDefs;

PutDefStart: PUBLIC PROCEDURE [num: INTEGER, xScale,yScale:LONG INTEGER, name: STRING];

PutDefFinish: PUBLIC PROCEDURE;

PutComment: PUBLIC PROCEDURE[s: STRING];

PutLayer: PUBLIC PROCEDURE[l: STRING];

PutBox: PUBLIC PROCEDURE [len,wid: LONG INTEGER, center: Point, angle: Point];

PutCall: PUBLIC PROCEDURE [def:INTEGER, mirx,miry:BOOLEAN, rot:Point, trans:Point];

PutName: PUBLIC PROCEDURE [x,y: LONG INTEGER, s: STRING];

PutEnd: PUBLIC PROCEDURE;

PutError: PUBLIC PROCEDURE [msg: STRING];

END.