DIRECTORY CADTypes USING [Scad, VariableRec, VisibleMask], Rope USING [ROPE], Geometry3dVector USING [Triple]; CADIO: CEDAR DEFINITIONS ~ BEGIN Error: ERROR[why: ATOM]; ReadVAXCadFiles: PROC [cadFile, csFile: Rope.ROPE] RETURNS [info: CADTypes.Scad]; ReadInfoFile: PROC[filename: Rope.ROPE] RETURNS [info: CADTypes.Scad]; WriteInfoFile: PROC[filename: Rope.ROPE, info: CADTypes.Scad]; SelectCell: PROC[scad: CADTypes.Scad, mask: REF CADTypes.VisibleMask, title: Rope.ROPE] RETURNS [index: INT]; WhatCellIsItOn: PROC[point: Geometry3dVector.Triple, variables: CADTypes.VariableRec, scad: CADTypes.Scad] RETURNS [cell: NAT]; END. ¨CADIO.mesa James Rauen, August 20, 1986 7:12:48 pm PDT Last edited by: James Rauen January 13, 1988 4:08:25 pm PST Reads CAD and covering set files written by the VAX, then converts them to Scad format. Reads the Scad from an info file. Writes the information in the Scad to an info file. Pops up a menu containing one entry for each cell in scad. Each entry contains the indices of the cell and a marker indicating whether or not it is visible. If the user selects a cell, the index of that cell in the scad is returned (first cell is 0). If there is a timeout, or if the menu is aborted, returns -1. If the number of cells in scad does not equal the number of maskings in the mask, Error[$WrongNumberOfCells] is raised. Finds a cell in scad that point appears to be on. If point doesn't reasonably satisfy any of the defining formulas ("reasonably" is defined in the implementation), Error[$NotOnAnyCell] is raised. Κ6˜™ J™+Icode™;J™—šΟk ˜ Kšœ œ"˜0Kšœœœ˜Kšœœ ˜ K˜—K˜š›@0œœ œ˜ K˜KšΟnœœœ˜K˜šŸœœœœ˜QKšœW™WK™—šŸ œœœœ˜FKšœ!™!K™—šŸ œœœ˜>Kšœ3™3K™—š Ÿ œœœ#œœ œ˜mK™΄K™—šŸœœWœœ˜K™ΔK™——Kšœ˜—…—zX