DIRECTORY SVEditUser; SVEditToolMenus: DEFINITIONS = BEGIN EditToolData: TYPE = SVEditUser.EditToolData; entryHeight: CARDINAL = 15;-- height of a line of items entryVSpace: CARDINAL = 1;-- vertical leading between lines entryHSpace: CARDINAL = 4; -- horizontal space between items on a line column0: CARDINAL = 0; -- horizontal space between margin and column 0; column1: CARDINAL = 80; -- horizontal space between margin and column 1; column2: CARDINAL = 160; -- horizontal space between margin and column 2. column3: CARDINAL = 290; -- horizontal space between margin and column 3; BuildCurrentSceneSection: PROC [editToolData: EditToolData]; BuildCompositeSection: PROC [editToolData: EditToolData]; BuildHalfSpaceSection: PROC [editToolData: EditToolData]; BuildSphereSection: PROC [editToolData: EditToolData]; BuildBlockSection: PROC [editToolData: EditToolData]; BuildCylinderSection: PROC [editToolData: EditToolData]; BuildConeSection: PROC [editToolData: EditToolData]; BuildTorusSection: PROC [editToolData: EditToolData]; BuildLinearSweepSection: PROC [editToolData: EditToolData]; BuildRevoluteSweepSection: PROC [editToolData: EditToolData]; BuildCopySection: PROC [editToolData: EditToolData]; BuildRenameSection: PROC [editToolData: EditToolData]; -- (B) BuildMoveSection: PROC [editToolData: EditToolData];-- (B) BuildTransformSection: PROC [editToolData: EditToolData]; BuildListingSection: PROC [editToolData: EditToolData]; BuildCameraSection: PROC [editToolData: EditToolData]; -- (B) BuildCameraOrderSection: PROC [editToolData: EditToolData]; -- (B) BuildShadowSection: PROC [editToolData: EditToolData]; -- (B) BuildArtworkSection: PROC [editToolData: EditToolData]; -- (B) BuildTubeArtworkSection: PROC [editToolData: EditToolData]; -- (B) BuildBoxArtworkSection: PROC [editToolData: EditToolData]; -- (B) BuildArtworkTransformSection: PROC [editToolData: EditToolData]; -- (B) BuildLightSourceSection: PROC [editToolData: EditToolData]; -- (B) AddARule: PROC [editToolData: EditToolData]; END. ŒFile: SVEditToolMenus.mesa Last edited by Bier on August 18, 1983 4:47 pm Contents: Procedures which build sections of the EditTool. Κ– "cedar" style˜Iheadšœ™Iprocšœ.™.Lšœ:™:L˜šΟk ˜ Lšœ ˜ —L˜Lšœ œ˜Lš˜˜Lšœœ˜-L˜Lšœ œ"˜7Lšœ œ&˜;Lšœ œ1˜FLšœ œ6˜GLšœ œ7˜HLšœ œ8˜ILšœ œ8˜IL˜LšΟnœœ˜Lšžœœ%˜BLšžœœ%˜ALšžœœ%˜GLšžœœ%˜BLšžœœ˜,—L˜Lšœ˜—…—μ 