-- 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.(635)\55b9B175b13B118b7B83b8B92b10B61b6B136b13B83b7B