DIRECTORY CADTypes USING [Scad, VariableRec, VisibleMask], Rope USING [ROPE], Vector3d 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: Vector3d.Triple, variables: CADTypes.VariableRec, scad: CADTypes.Scad] RETURNS [cell: NAT]; END. lCADIO.mesa James Rauen, August 20, 1986 7:12:48 pm PDT 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. Κ3˜™ J™+J™—codešΟk ˜ Kšœ œ"˜0Kšœœœ˜Kšœ œ ˜K˜—K˜š›@0œœ œ˜ K˜KšΟnœœœ˜K˜šŸœœœœ˜QKšœW™WK™—šŸ œœœœ˜FKšœ!™!K™—šŸ œœœ˜>Kšœ3™3K™—š Ÿ œœœ#œœ œ˜mK™΄K™—šŸœœOœœ˜wK™ΔK™——Kšœ˜—…—j