Assembly: TYPE = REF AssemblyObj;
AssemblyObj: TYPE = DisplayList3d.AssemblyObj;
Color: TYPE = GraphicsColor.Color;
CoordSystem: TYPE = CoordSys.CoordSystem;
CSGTree: TYPE = DisplayList3d.CSGTree;
ExecHandle: TYPE = REF ExecRecord;
ExecRecord: TYPE = UserExec.ExecRecord;
MasterObject: TYPE = REF MasterObjectRec;
MasterObjectRec: TYPE = DisplayList3d.MasterObjectRec;
Point2d: TYPE = Matrix3d.Point2d;
Scene: TYPE = DisplayList3d.Scene;
Viewer: TYPE = ViewerClasses.Viewer;
Declare the standard distances between menu lines.
entryHeight: CARDINAL = 12;-- height of a line of items
entryVSpace: CARDINAL = 3;-- vertical leading between lines
entryHSpace: CARDINAL = 8; -- horizontal space between items on a line
column0: CARDINAL = 0; -- horizontal space between margin and column 0;
column1: CARDINAL = 100; -- horizontal space between margin and column 1;
column2: CARDINAL = 200; -- horizontal space between margin and column 2.
column3: CARDINAL = 300; -- horizontal space between margin and column 3;
EditToolData: TYPE = REF EditToolDataObj;
EditToolDataObj: TYPE = SVEditUser.EditToolDataObj;
SphereSectionData: TYPE = SVEditUser.SphereSectionData;
BlockSectionData: TYPE = SVEditUser.BlockSectionData;
CylinderSectionData: TYPE = SVEditUser.CylinderSectionData;
ConeSectionData: TYPE = SVEditUser.ConeSectionData;
Init:
PROC = {
UserExec.RegisterCommand[
name: "SolidViews",
proc: BuildEditTool,
briefDoc: "Create a 3d graphics tool"
];
[] ← BuildEditTool[NIL, UserExec.GetExecHandle[], NIL];-- create an instance of our tool
};
BuildEditTool: UserExec.CommandProc =
TRUSTED {
Here we create the container
editToolData: EditToolData ← NEW[EditToolDataObj];
editToolData.outer ← Containers.Create[[
name: "SolidViews EditTool",
iconic: TRUE,
column: right,
scrollable: TRUE
]];
editToolData.sceneSection.defaultScene ← DisplayList3d.CreateScene["DefaultScene"];
editToolData.sceneSection.currentScene ← editToolData.sceneSection.defaultScene;
editToolData.allViewers ← NIL;
SVEditToolMenus.BuildCurrentSceneSection[editToolData];
SVEditToolMenus.AddARule[editToolData];
SVEditToolMenus.BuildCompositeSection[editToolData];
SVEditToolMenus.BuildHalfSpaceSection[editToolData];
SVEditToolMenus.BuildSphereSection[editToolData];
SVEditToolMenus.BuildBlockSection[editToolData];
SVEditToolMenus.BuildCylinderSection[editToolData];
SVEditToolMenus.BuildConeSection[editToolData];
SVEditToolMenus.BuildTorusSection[editToolData];
SVEditToolMenus.BuildLinearSweepSection[editToolData];
SVEditToolMenus.BuildRevoluteSweepSection[editToolData];
SVEditToolMenus.BuildCopySection[editToolData];
SVEditToolMenus.BuildRenameSection[editToolData];
SVEditToolMenus.BuildMoveSection[editToolData];
SVEditToolMenus.AddARule[editToolData];
SVEditToolMenus.BuildTransformSection[editToolData];
SVEditToolMenus.AddARule[editToolData];
SVEditToolMenus.BuildListingSection[editToolData];
SVEditToolMenus.AddARule[editToolData];
SVEditToolMenus.BuildCameraSection[editToolData];
SVEditToolMenus.AddARule[editToolData];
SVEditToolMenus.BuildCameraOrderSection[editToolData];
SVEditToolMenus.AddARule[editToolData];
SVEditToolMenus.BuildShadowSection[editToolData];
SVEditToolMenus.AddARule[editToolData];
SVEditToolMenus.BuildArtworkSection[editToolData];
SVEditToolMenus.BuildTubeArtworkSection[editToolData];
SVEditToolMenus.BuildBoxArtworkSection[editToolData];
SVEditToolMenus.BuildArtworkTransformSection[editToolData];
SVEditToolMenus.AddARule[editToolData];
SVEditToolMenus.BuildLightSourceSection[editToolData];
SVEditToolMenus.AddARule[editToolData];
[----,editToolData.scratchpad] ←
Scratchpad2d.CreateScratchpad[editToolData.outer];
editToolData.artworkTool ← SVArtworkTool.Create[paint: TRUE];
ViewerOps.PaintViewer[editToolData.outer, all];
ViewerOps.OpenIcon[editToolData.outer, TRUE, TRUE, TRUE];
SVEditUser.NewViewer[NIL, editToolData, red, FALSE, FALSE];
}; -- end of BuildEditTool
Init[];