--File AuxOutputDefs.mesa
--March 12, 1981 4:57 PM

DIRECTORY

IntStorageDefs: FROM "IntStorageDefs" USING [ObjectName],

IntTransDefs: FROM "IntTransDefs" USING [Transform],

ParserTypeDefs: FROM "ParserTypeDefs" USING [Point, Path];

AuxOutputDefs: DEFINITIONS =

BEGIN

--Each routine below implements the output of one primitive geometric construct form CIF.
AuxWire: PROCEDURE [layerName: CARDINAL, width: LONG CARDINAL, a: ParserTypeDefs.Path];

AuxFlash: PROCEDURE [layerName: CARDINAL, diameter: LONG CARDINAL, center: ParserTypeDefs.Point];

AuxPolygon: PROCEDURE [layerName: CARDINAL, a: ParserTypeDefs.Path];

AuxBox: PROCEDURE [layerName: CARDINAL, length, width: LONG CARDINAL,
center: ParserTypeDefs.Point, xRotation, yRotation: LONG INTEGER];

AuxUserObject: PROCEDURE [layerName: CARDINAL, size: CARDINAL, data: POINTER TO UNSPECIFIED];

AuxCall: PROCEDURE [IntStorageDefs.ObjectName, LONG CARDINAL, IntTransDefs.Transform];

END.