DIRECTORY AtomButtonsTypes, BufferedRefresh, BufferedRefreshTypes, Containers, FunctionCache, Imager, ImagerBackdoor, ImagerFont, IO, Rope, SlackProcess, SV2d, SV3d, SVBasicTypes, SVCatScan, SVModelTypes, SVSceneTypes, SVStoragePools, ViewerClasses; SVInterfaceTypes: CEDAR DEFINITIONS = BEGIN BoundBox: TYPE = SVBasicTypes.BoundBox; Camera: TYPE = SVModelTypes.Camera; CatScan: TYPE = SVCatScan.CatScan; Color: TYPE = Imager.Color; CoordSystem: TYPE = SVModelTypes.CoordSystem; CSGTree: TYPE = SVSceneTypes.CSGTree; EnumTypeRef: TYPE = AtomButtonsTypes.EnumTypeRef; FeedbackData: TYPE = AtomButtonsTypes.FeedbackData; GraphicsState: TYPE = AtomButtonsTypes.GraphicsState; Line3d: TYPE = SV3d.Line3d; Matrix4by4: TYPE = SV3d.Matrix4by4; Path: TYPE = SV2d.Path; Point2d: TYPE = SV2d.Point2d; Point3d: TYPE = SV3d.Point3d; PointSetOp: TYPE = SVSceneTypes.PointSetOp; Primitive: TYPE = SVSceneTypes.Primitive; Scene: TYPE = SVSceneTypes.Scene; SelectMode: TYPE = SVSceneTypes.SelectMode; Slice: TYPE = SVSceneTypes.Slice; SliceDescriptor: TYPE = SVSceneTypes.SliceDescriptor; SortedButtonHandle: TYPE = AtomButtonsTypes.SortedButtonHandle; StoragePool: TYPE = SVStoragePools.StoragePool; TwoState: TYPE = AtomButtonsTypes.TwoState; Vector3d: TYPE = SV3d.Vector3d; Viewer: TYPE = ViewerClasses.Viewer; SVData: TYPE = REF SVDataObj; SVDataObj: TYPE = RECORD [ outer: Viewer _ NIL, actionArea: Viewer _ NIL, feedback: FeedbackData, height: CARDINAL _ 0, yBounded: LIST OF Viewer _ NIL, -- used in SVViewerToolImpl for viewer resizing. xBounded: LIST OF Viewer _ NIL, originalWDir: Rope.ROPE, currentWDir: Rope.ROPE, mouseMode, state: ATOM, scene: Scene, -- the collection of 3d objects we are looking at camera: Camera, -- our point of view drag: DragData, refresh: RefreshData, measure: MeasureData, hitTest: Filters, select: SelectData, debug: DebugData, slackHandle: SlackProcess.SlackHandle, aborted: PACKED ARRAY AbortFlags OF BOOL _ ALL[FALSE], gravityPool: REF ANY, textSection: ViewerTextData, editToolData: EditToolData, sceneStyleIndex: NAT, -- corresponds to camera.style baseCS: CoordSystem, -- **** mode: InteractionMode, showCoordSys: BOOL ]; DisplayContextProc: TYPE = PROC [Imager.Context]; RefreshData: TYPE = RECORD [ suppressRefresh: BOOL _ FALSE, paintAction: ATOM, paintProc: DisplayContextProc, showColors: AtomButtonsTypes.TwoState, screenStyle: AtomButtonsTypes.EnumTypeRef, sandwich: BufferedRefreshTypes.Sandwich, lineCache: FunctionCache.Cache, -- remembers which lines have been drawn in Foreground dragInProgress: BOOL _ FALSE, caretIsMoving: BOOL _ FALSE, overlayList: LIST OF SliceDescriptor, orderedOverlayList: LIST OF SliceDescriptor, -- NIL => must rebuild ordered list addedObject: REF ANY _ NIL, -- used to implement GGRefresh.FinishedAdding slice: Slice, spotPoint: Point2d, -- in CAMERA coords. For TestGravity. hitPoint: Point3d, -- in WORLD coords. For TestGravity. startBoundBox: BoundBox _ NIL, currentY, minX, minY, maxX, maxY: REAL -- RayCastProgress indicators ]; MeasureData: TYPE = RECORD [ caret0: Point3d, caret1: Point3d, caret2Value: Point3d, caret2: Viewer, slopeViewValue: REAL, slopeView: Viewer, azimuthViewValue: REAL, azimuthView: Viewer ]; DragData: TYPE = RECORD [ assembly: Slice _ NIL, -- The corresponding assembly (if any). planeDepth: REAL, -- in Target coordinates cameraVector: Vector3d, target: Slice _ NIL, startSkitter: Matrix4by4, -- in WORLD coords transform: Matrix4by4, -- in WORLD coords currentPoint: Point2d, -- in CAMERA coords selectState: SelectMode _ joint, -- what are we in the process of selecting? extendMode: SelectMode _ joint, -- what are we extending to? savedCaret: Skitter, startPoint: Point3d -- in WORLD coords ]; GravityType: TYPE = {pointsPreferred, linesPreferred, facesPreferred}; Filters: TYPE = REF FiltersObj; FiltersObj: TYPE = RECORD [ t: REAL _ 25.0, -- see GGGravity.Map triggerBag: TriggerBag, oldTriggerBag: TriggerBag, alignBag: AlignBag, oldAlignBag: AlignBag, sceneBag: TriggerBag, oldSceneBag: TriggerBag, hitCount: NAT _ 0, gravityType: GravityType, gravityTypeMenu: EnumTypeRef, -- initialized in SVWindowImpl gravityExtentButton: GraphicsState, gravButton: TwoState, midpointButton: TwoState, heuristicsButton: TwoState, slopeHandle: SortedButtonHandle, slopeCount: NAT _ 0, azimuthHandle: SortedButtonHandle, azimuthCount: NAT _ 0, slopeLineHandle: SortedButtonHandle, slopeLineCount: NAT _ 0, slopePlaneHandle: SortedButtonHandle, slopePlaneCount: NAT _ 0, scaleUnit: REAL _ 72.0, -- value of one scale unit, in screen dots. Initially set to 72.0 (1 inch) horizontalDegrees: REAL -- slope considered horizontal. Initialized to 0 degrees (screen horizontal) ]; DebugData: TYPE = RECORD [ typescript: Viewer, lastMessage: Rope.ROPE _ NIL, logFileName: Rope.ROPE, logStream: IO.STREAM ]; GravityExtentData: TYPE = REF GravityExtentDataObj; GravityExtentDataObj: TYPE = RECORD [ extent: REAL ]; AbortFlags: TYPE = {refresh, playback, gravitytest, bags, spare2, spare3}; SelectData: TYPE = RECORD [ cycler: FeatureCycler ]; ViewerTextData: TYPE = RECORD [ activateLabel: Viewer _ NIL, viewStyle: Viewer _ NIL, xyz: Viewer _ NIL, showCoords: Viewer _ NIL, selected: Viewer _ NIL, isSelected: BOOL ]; InteractionMode: TYPE = {select, cast}; DCProc: TYPE = PROC [Imager.Context]; TriggerBag: TYPE = REF TriggerBagObj; TriggerBagObj: TYPE = RECORD [ tree: CSGTree, ignoreMoving: BOOL, -- should the current tree ignore moving objects? scene: Scene, slices: LIST OF FeatureData, anchor: FeatureData ]; AlignBag: TYPE = REF AlignBagObj; AlignBagObj: TYPE = RECORD [ slopeLines: LIST OF FeatureData, slopePlanes: LIST OF FeatureData, anchor: FeatureData ]; AlignmentPoint: TYPE = REF AlignmentPointObj; AlignmentPointObj: TYPE = RECORD [ point: Point2d, tangent: BOOL, -- is this a point of tangency? (for Describe purposes) curve1: FeatureData, curve2: FeatureData ]; AlignmentLine: TYPE = REF AlignmentLineObj; AlignmentLineObj: TYPE = RECORD [ line: Line3d, azimuth: REAL, slope: REAL, triggerPoints: LIST OF Point3d _ NIL ]; AlignmentObject: TYPE = REF ANY; -- types: AlignmentLine, AlignmentCircle, AlignmentPoint, SliceDescriptor FeatureData: TYPE = REF FeatureDataObj; FeatureDataObj: TYPE = RECORD [ type: FeatureType, shape: AlignmentObject ]; FeatureType: TYPE = {slice, distanceLine, slopeLine, angleLine, symmetryLine, radiiCircle, intersectionPoint, midpoint, anchor}; ResultFeatureType: TYPE = {slice, distanceLine, slopeLine, angleLine, symmetryLine, radiiCircle, intersectionPoint, midpoint, anchor}; GoodPoint: TYPE = REF GoodPointObj; GoodPointObj: TYPE = RECORD [ dist: REAL, point: Point3d, normal: Vector3d, featureData: FeatureData, -- this point hitData: REF ANY, -- a description of this point dimension: [0..2] -- is this a hit on a point, line, or face? ]; NearVertexEdgeAndFaces: TYPE = REF NearVertexEdgeAndFacesObj; NearVertexEdgeAndFacesObj: TYPE = RECORD [ things: SEQUENCE len: NAT OF GoodPoint]; FeatureCycler: TYPE = REF FeatureCyclerObj; FeatureCyclerObj: TYPE = RECORD [ nearVEF: NearVertexEdgeAndFaces, count: NAT, index: INTEGER, cameraPt: Point2d, camera: Camera ]; EditToolData: TYPE = REF EditToolDataObj; EditToolDataObj: TYPE = RECORD [ outer: Containers.Container _ NIL, height: CARDINAL _ 0, printFont: ImagerFont.Font, screenFont: ImagerFont.Font, skitter: Skitter, sceneSection: CurrentSceneSectionData, sphereSection: SphereSectionData, blockSection: BlockSectionData, cylinderSection: CylinderSectionData, coneSection: ConeSectionData, torusSection: TorusSectionData, linSection: LinSectionData, transformSection: TransformSectionData, cameraSection: CameraSectionData, cameraOrderSection: CameraOrderSectionData, shadowSection: ShadowSectionData, artworkSection: ArtworkSectionData, artworkTransformSection: ArtworkTransformSectionData, lightSection: LightSectionData, utilitySection: UtilitySectionData, scratchpad: Viewer, artworkTool: Viewer, messages: Viewer, allViewers: LIST OF ViewerCell, currentSVData: SVData, originalWorkingDirectory: Rope.ROPE ]; ViewerCell: TYPE = REF ViewerCellObj; ViewerCellObj: TYPE = RECORD [ scene: Scene, viewersOnScene: Viewer]; -- viewersOnScene is a list of viewers since each viewer has a link to the next one. CurrentSceneSectionData: TYPE = RECORD [ defaultScene: Scene, currentScene: Scene _ NIL, sceneName: Viewer _ NIL, current: Viewer _ NIL, text1: Viewer _ NIL, text2: Viewer _ NIL, source: Viewer _ NIL, target: Viewer _ NIL, new: Viewer _ NIL, parent: Viewer _ NIL, plane: Viewer _ NIL, opLabel: Viewer _ NIL, op: PointSetOp]; SphereSectionData: TYPE = RECORD [ radius: Viewer _ NIL]; BlockSectionData: TYPE = RECORD [ xyz: Viewer _ NIL]; CylinderSectionData: TYPE = RECORD [ radius: Viewer _ NIL, height: Viewer _ NIL]; ConeSectionData: TYPE = RECORD [ radius: Viewer _ NIL, height: Viewer _ NIL]; TorusSectionData: TYPE = RECORD [ bigRadius: Viewer _ NIL, sectionRadius: Viewer _ NIL]; LinSectionData: TYPE = RECORD [ depth: Viewer _ NIL]; TransformSectionData: TYPE = RECORD [ degrees: Viewer _ NIL, transXYZ: Viewer _ NIL, scaleXYZ: Viewer _ NIL, scalar: Viewer _ NIL]; CameraSectionData: TYPE = RECORD [ name: Viewer _ NIL, origin: Viewer _ NIL, focusPoint: Viewer _ NIL, slant: Viewer _ NIL, resolution: Viewer _ NIL, focalLength: Viewer _ NIL, projection: Viewer _ NIL, projectionValue: NAT _ 1, frame: Viewer _ NIL, clippingPlanes: Viewer _ NIL, visibleAssemblies: Viewer _ NIL]; CameraOrderSectionData: TYPE = RECORD [ order: Viewer _ NIL]; ShadowSectionData: TYPE = RECORD [ shadowLabel: Viewer _ NIL, shadowValue: BOOL _ FALSE]; ArtworkSectionData: TYPE = RECORD [ tubeHeight: Viewer _ NIL, tubeRadius: Viewer _ NIL, boxXYZ: Viewer _ NIL, picName: Viewer _ NIL, material: Viewer _ NIL, materialValue: NAT _ 1, resolution: Viewer _ NIL, isColor: Viewer _ NIL, rgb: Viewer _ NIL, oMapLabel: Viewer _ NIL]; ArtworkTransformSectionData: TYPE = RECORD [ degrees: Viewer _ NIL]; LightSectionData: TYPE = RECORD [ name: Viewer _ NIL, position: Viewer _ NIL, color: Viewer _ NIL]; UtilitySectionData: TYPE = RECORD [ stuffNum: Viewer _ NIL]; Skitter: TYPE = REF SkitterObj; SkitterObj: TYPE = SVSceneTypes.SkitterObj; Selection: TYPE = REF SelectionObj; SelectionObj: TYPE = RECORD [ coincident: Slice, -- the hook jack, floater jack, or sitting-in for coordSys referents. indirect: Slice, -- the assembly we claim to be sitting on if we are a hook, NIL otherwise. svData: SVData, referentType: ReferentType, selectionType: SelectionType]; ReferentType: TYPE = {hook, coordSys}; SelectionType: TYPE = {target, movee, plane}; SelectionGenerator: TYPE = REF SelectionGeneratorObj; SelectionGeneratorObj: TYPE = RECORD [ currentPtr: LIST OF Selection ]; Artwork: TYPE = SVModelTypes.Artwork; ArtworkToolData: TYPE = REF ArtworkToolDataObj; ArtworkToolDataObj: TYPE = RECORD [ outer: Containers.Container _ NIL, editToolData: EditToolData, height: CARDINAL _ 0, picture: Viewer _ NIL, textSection: TextSectionData, origin: Point2d, scalar: REAL, proc: PROC [dc: Imager.Context], artwork: Artwork, paintColor: Color]; TextSectionData: TYPE = RECORD [ scalar: Viewer _ NIL, color: Viewer _ NIL ]; ScratchViewerData: TYPE = REF ScratchViewerDataObj; ScratchViewerDataObj: TYPE = RECORD [ outer: Containers.Container _ NIL, -- handle for the enclosing container height: CARDINAL _ 0, textSection: ScratchTextSectionData, scratchpad: ViewerClasses.Viewer _ NIL, editToolData: EditToolData ]; ScratchTextSectionData: TYPE = REF TextSectionDataObj; TextSectionDataObj: TYPE = RECORD [ degrees: ViewerClasses.Viewer _ NIL]; ScratchpadData: TYPE = REF ScratchpadDataObj; ScratchpadDataObj: TYPE = RECORD [ origin: Point2d, path: Path, catScan: CatScan, mode: ScratchpadMode, index: NAT, scratchViewerData: ScratchViewerData, proc: ImagerProc, imager: Imager.Context]; ImagerProc: TYPE = PROC [dc: Imager.Context]; ScratchpadMode: TYPE = {off, pointAt, drawLin, drawRevo, drawCatScan}; END. File: SVInterfaceTypes.mesa Last edited by: Eric Bier on July 10, 1987 12:04:50 pm PDT Copyright c 1984 by Xerox Corporation. All rights reserved. Contents: Defining these types in the modules which use them just doesn't seem to work. Compilation dependencies reign. Many objects wish to contain pointers to these records, which in turn wish to contain objects of that type. Let's try putting them all in one place. SVData Unique to Gargoyle3d Hit Testing The EditTool Selections Artwork Tool Scratchpads ΚΥ˜Iheadšœ™J™:Jšœ Οmœ1™Mšœ žœŸ˜*M˜Mšœžœ˜MšœŸ˜,MšœŸ˜)MšœŸ˜*Lšœ!Ÿ,˜MLšœ Ÿ˜