DIRECTORY
Buttons,
Labels,
Rope,
Rules,
ViewerTools,
VFonts,
SVEditToolMenus,
SVEditUser,
SVEditUserB;

SVEditToolMenusImplB: PROGRAM
IMPORTS Buttons, Labels, SVEditUser, SVEditUserB, VFonts, ViewerTools
EXPORTS SVEditToolMenus =
BEGIN

EditToolData: TYPE = SVEditUser.EditToolData;


entryHeight: CARDINAL = SVEditToolMenus.entryHeight;
entryVSpace: CARDINAL = SVEditToolMenus.entryVSpace;
entryHSpace: CARDINAL = SVEditToolMenus.entryHSpace;
column0: CARDINAL = SVEditToolMenus.column0;
column1: CARDINAL = SVEditToolMenus.column1;
column2: CARDINAL = SVEditToolMenus.column2;
column3: CARDINAL = SVEditToolMenus.column3;

BuildRenameSection: PUBLIC PROC [editToolData: EditToolData] = {

renameButton, newNamePrompt: Buttons.Button;

renameButton _ Buttons.Create[
info: [name: "Rename!", wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.Rename,
clientData: editToolData
];

newNamePrompt _ Buttons.Create[
info: [name: "new name:",
wx: renameButton.wx + column2,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.NewNamePrompt,
clientData: editToolData
];

editToolData.renameSection.newName _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: newNamePrompt.wx + newNamePrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["<<<<<DogWithYellowCat"],
wh: entryHeight,
data: "NewName",
scrollable: FALSE, border: FALSE]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;


}; -- end of BuildRenameSection

BuildMoveSection: PUBLIC PROC [editToolData: EditToolData] = {

[] _ Buttons.Create[
info: [name: "Move Assembly!",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.Move,
clientData: editToolData
];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

}; -- end of BuildMoveSection

BuildArtworkSection: PUBLIC PROC [editToolData: EditToolData] = {

getArtworkButton, picNamePrompt, isColorButton: Buttons.Button;
materialButton, resolutionButton: Buttons.Button;
setColorButton, rgbPrompt: Buttons.Button;
initialIsColorRope: Rope.ROPE _ "FALSE";
initialResolutionRope: Rope.ROPE _ "72.0";
initialRGBRope: Rope.ROPE _ "0.75, 0.75, 0.75";

getArtworkButton _ Buttons.Create[
info: [name: "GetArtwork!",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.GetArtwork,
clientData: editToolData
];

picNamePrompt _ Buttons.Create[
info: [name: "picName:",
wx: getArtworkButton.wx + getArtworkButton.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.ArtworkNamePrompt,
clientData: editToolData
];

editToolData.artworkSection.picName _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: picNamePrompt.wx + picNamePrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["TinasEyes.ais    "],
wh: entryHeight,
data: "TinaEyes.ais",
scrollable: FALSE, border: FALSE]];

isColorButton _ Buttons.Create[
info: [name: "isColorFile:",
wx: editToolData.artworkSection.picName.wx +
editToolData.artworkSection.picName.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.IsColor,
clientData: editToolData
];

editToolData.artworkSection.isColor _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: isColorButton.wx + isColorButton.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["FALSE   "],
wh: entryHeight,
data: initialIsColorRope,
scrollable: FALSE, border: FALSE]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;


materialButton _ Buttons.Create[
info: [name: "material:",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.MaterialCycle,
clientData: editToolData
];

editToolData.artworkSection.material _ Labels.Create[
info: [name: "plastic",
wx: materialButton.wx + materialButton.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE]];
   
editToolData.artworkSection.materialValue _ 1;
   

resolutionButton _ Buttons.Create[
info: [name: "resolution:",
wx: editToolData.artworkSection.material.wx +
editToolData.artworkSection.material.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.ResolutionPrompt,
clientData: editToolData
];

editToolData.artworkSection.resolution _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: resolutionButton.wx + resolutionButton.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["188.88 "],
wh: entryHeight,
data: initialResolutionRope,
scrollable: FALSE, border: FALSE]];


editToolData.height _ editToolData.height + entryVSpace + entryHeight;


setColorButton _ Buttons.Create[
info: [name: "SetColorArtwork!",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.SetColor,
clientData: editToolData
];

rgbPrompt _ Buttons.Create[
info: [name: "r, g, b:",
wx: setColorButton.wx + column2,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.RGBPrompt,
clientData: editToolData
];

editToolData.artworkSection.rgb _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: rgbPrompt.wx + rgbPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["9.10000e-1, 9.10000e-1, 9.10000e-1      "],
wh: entryHeight,
data: initialRGBRope,
scrollable: FALSE, border: FALSE]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;



};

BuildTubeArtworkSection: PUBLIC PROC [editToolData: EditToolData] = {

setTubeArtworkButton, tubeHeightPrompt, tubeRadiusPrompt: Buttons.Button;
initialHeightRope: Rope.ROPE _ "100";
initialRadiusRope: Rope.ROPE _ "50";

setTubeArtworkButton _ Buttons.Create[
info: [name: "SetTubeArtwork!",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.SetTubeArtwork,
clientData: editToolData
];

tubeHeightPrompt _ Buttons.Create[
info: [name: "tubeH:",
wx: setTubeArtworkButton.wx + setTubeArtworkButton.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.TubeHeightPrompt,
clientData: editToolData
];

editToolData.artworkSection.tubeHeight _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: tubeHeightPrompt.wx + tubeHeightPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["188.88 "],
wh: entryHeight,
data: initialHeightRope,
scrollable: FALSE, border: FALSE]];

tubeRadiusPrompt _ Buttons.Create[
info: [name: "tubeR:",
wx: editToolData.artworkSection.tubeHeight.wx +
editToolData.artworkSection.tubeHeight.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.TubeRadiusPrompt,
clientData: editToolData
];

editToolData.artworkSection.tubeRadius _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: tubeRadiusPrompt.wx + tubeRadiusPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["188.88 "],
wh: entryHeight,
data: initialRadiusRope,
scrollable: FALSE, border: FALSE]];


editToolData.height _ editToolData.height + entryVSpace + entryHeight;

};

BuildBoxArtworkSection: PUBLIC PROC [editToolData: EditToolData] = {

setBoxArtworkButton, xyzPrompt, oMapCycle: Buttons.Button;
initialXYZRope: Rope.ROPE _ "100, 100, 100";
initialOMapRope: Rope.ROPE _ "Orthogonal";

setBoxArtworkButton _ Buttons.Create[
info: [name: "SetBoxArtwork!",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.SetBoxArtwork,
clientData: editToolData
];

xyzPrompt _ Buttons.Create[
info: [name: "X,Y,Z:",
wx: setBoxArtworkButton.wx + setBoxArtworkButton.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.BoxXYZPrompt,
clientData: editToolData
];

editToolData.artworkSection.boxXYZ _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: xyzPrompt.wx + xyzPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["188.88,  188.88  188.88  "],
wh: entryHeight,
data: initialXYZRope,
scrollable: FALSE, border: FALSE]];

oMapCycle _ Buttons.Create[
info: [name: "OMap:",
wx: editToolData.artworkSection.boxXYZ.wx +
editToolData.artworkSection.boxXYZ.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.BoxOCycle,
clientData: editToolData
];

editToolData.artworkSection.oMapLabel _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: oMapCycle.wx + oMapCycle.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["Orthogonal   "],
wh: entryHeight,
data: initialOMapRope,
scrollable: FALSE, border: FALSE]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

}; -- end of BuildBoxArtworkSecition

BuildArtworkTransformSection: PUBLIC PROC [editToolData: EditToolData] = {
rotateButton, degreesPrompt, normButton: Buttons.Button;
initialDegreesRope: Rope.ROPE _ "45";

rotateButton _ Buttons.Create[
info: [name: "Rotate!",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.RotateArtwork,
clientData: editToolData
];

degreesPrompt _ Buttons.Create[
info: [name: "degrees:",
wx: rotateButton.wx + rotateButton.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.ArtworkDegreesPrompt,
clientData: editToolData
];

editToolData.artworkTransformSection.degrees _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: degreesPrompt.wx + degreesPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["188.88,  "],
wh: entryHeight,
data: initialDegreesRope,
scrollable: FALSE, border: FALSE]];


normButton  _ Buttons.Create[
info: [name: "Normalize!",
wx: editToolData.artworkTransformSection.degrees.wx +
editToolData.artworkTransformSection.degrees.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.NormalizeArtwork,
clientData: editToolData
];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

}; -- end of BuildArtworkTransformSection



BuildLightSourceSection: PUBLIC PROC [editToolData: EditToolData] = {

addLightButton, deleteLightButton, editLightButton: Buttons.Button;
lightNamePrompt, positionPrompt, colorPrompt: Buttons.Button;
initialPositionRope: Rope.ROPE _ "600, 600, 600";
initialColorRope: Rope.ROPE _ "0.75, 0.75, 0.75";

addLightButton _ Buttons.Create[
info: [name: "AddLight!",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.AddLight,
clientData: editToolData
];

deleteLightButton _ Buttons.Create[
info: [name: "DeleteLight!",
wx: addLightButton.wx + addLightButton.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.DeleteLight,
clientData: editToolData
];

editLightButton _ Buttons.Create[
info: [name: "EditLight!",
wx: deleteLightButton.wx + deleteLightButton.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.EditLight,
clientData: editToolData
];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

lightNamePrompt _ Buttons.Create[
info: [name: "light name:",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.LightNamePrompt,
clientData: editToolData
];

editToolData.lightSection.name _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: lightNamePrompt.wx + lightNamePrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["WhiteLight    "],
wh: entryHeight,
data: "WhiteLight",
scrollable: FALSE, border: FALSE]];

positionPrompt _ Buttons.Create[
info: [name: "position:",
wx: editToolData.lightSection.name.wx +
editToolData.lightSection.name.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.LightPositionPrompt,
clientData: editToolData
];

editToolData.lightSection.position _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: positionPrompt.wx + positionPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["188.88, 188.188, 188.88   "],
wh: entryHeight,
data: initialPositionRope,
scrollable: FALSE, border: FALSE]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

colorPrompt _ Buttons.Create[
info: [name: "color:",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.LightColorPrompt,
clientData: editToolData
];

editToolData.lightSection.color _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: colorPrompt.wx + colorPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["9.10000e-1, 9.10000e-1, 9.10000e-1   "],
wh: entryHeight,
data: initialColorRope,
scrollable: FALSE, border: FALSE]];


editToolData.height _ editToolData.height + entryVSpace + entryHeight;

};


BuildCameraSection: PUBLIC PROC [editToolData: EditToolData] = {

cameraNamePrompt, getButton, setButton, useCameraButton: Buttons.Button;
originPrompt, focusPointPrompt, slantPrompt: Buttons.Button;
resolutionPrompt, focalLengthPrompt: Buttons.Button;
framePrompt: Buttons.Button;
clippingPlanePrompt, visibleAssemblyPrompt: Buttons.Button;

cameraNamePrompt _ Buttons.Create[
info: [name: "Camera name:",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.CameraNamePrompt,
clientData: editToolData
];

editToolData.cameraSection.name _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: cameraNamePrompt.wx + cameraNamePrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["The view from the west."],
wh: entryHeight,
data: "",
scrollable: FALSE, border: FALSE]];

getButton _ Buttons.Create[
info: [name: "Get!",
wx: editToolData.cameraSection.name.wx +
editToolData.cameraSection.name.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.GetCamera,
clientData: editToolData
];

setButton _ Buttons.Create[
info: [name: "Set!",
wx: getButton.wx + getButton.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.SetCamera,
clientData: editToolData
];


useCameraButton _ Buttons.Create[
info: [name: "Use!",
wx: setButton.wx + setButton.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.UseCamera,
clientData: editToolData
];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

originPrompt _ Buttons.Create[
info: [name: "origin:",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.CameraOriginPrompt,
clientData: editToolData
];

editToolData.cameraSection.origin _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: originPrompt.wx + originPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["-1800, -188.8, -188.8>>>"],
wh: entryHeight,
data: "0,0,1800",
scrollable: FALSE, border: FALSE]];

focusPointPrompt _ Buttons.Create[
info: [name: "focusPoint:",
wx: editToolData.cameraSection.origin.wx +
editToolData.cameraSection.origin.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.FocusPrompt,
clientData: editToolData
];

editToolData.cameraSection.focusPoint _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: focusPointPrompt.wx + focusPointPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["188.8, 188.8, 188"],
wh: entryHeight,
data: "0, 0, 0",
scrollable: FALSE, border: FALSE]];

slantPrompt _ Buttons.Create[
info: [name: "slant:",
wx: editToolData.cameraSection.focusPoint.wx +
editToolData.cameraSection.focusPoint.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.SlantPrompt,
clientData: editToolData
];

editToolData.cameraSection.slant _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: slantPrompt.wx + slantPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["188.8>>>"],
wh: entryHeight,
data: "0",
scrollable: FALSE, border: FALSE]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;


resolutionPrompt _ Buttons.Create[
info: [name: "resolution:",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.ScanResolutionPrompt,
clientData: editToolData
];

editToolData.cameraSection.resolution _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: resolutionPrompt.wx + resolutionPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["188.8>>>"],
wh: entryHeight,
data: "72",
scrollable: FALSE, border: FALSE]];

focalLengthPrompt _ Buttons.Create[
info: [name: "focal length:",
wx: editToolData.cameraSection.resolution.wx + 
editToolData.cameraSection.resolution.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.FocalLengthPrompt,
clientData: editToolData
];

editToolData.cameraSection.focalLength _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: focalLengthPrompt.wx + focalLengthPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["1800     "],
wh: entryHeight,
data: "1800",
scrollable: FALSE, border: FALSE]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

framePrompt _ Buttons.Create[
info: [name: "frame: ",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.FramePrompt,
clientData: editToolData
];

editToolData.cameraSection.frame _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: framePrompt.wx + framePrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["[[302.5,105.6], [302.5,105.6] fullScreen: FALSE]>>>>>"],
wh: entryHeight,
data: "[[0,200],[200,0] fullScreen: TRUE]",
scrollable: FALSE, border: FALSE]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

clippingPlanePrompt _ Buttons.Create[
info: [name: "Clipping Planes: ",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.ClippingPlanePrompt,
clientData: editToolData
];

editToolData.cameraSection.clippingPlanes _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: clippingPlanePrompt.wx + clippingPlanePrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["[1,0,0,1], [2.5,3.2,5.6,7.8], [2.5,3.2,5.6,7.8]>>>"],
wh: entryHeight,
data: "[0,0,1,0]",
scrollable: FALSE, border: FALSE]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

visibleAssemblyPrompt _ Buttons.Create[
info: [name: "Visible Assemblies: ",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.VisibleAssemblyPrompt,
clientData: editToolData
];

editToolData.cameraSection.visibleAssemblies _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: visibleAssemblyPrompt.wx + visibleAssemblyPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["teapot, teacup, table, sceneAssembly, poodle>>>"],
wh: entryHeight,
data: "sceneAssembly",
scrollable: FALSE, border: FALSE]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

}; -- end of BuildCameraSection

BuildCameraOrderSection: PUBLIC PROC [editToolData: EditToolData] = {

orderPrompt, getOrder, setOrder: Buttons.Button;

orderPrompt _ Buttons.Create[
info: [name: "camera order:",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.CameraOrderPrompt,
clientData: editToolData
];

editToolData.cameraOrderSection.order _ ViewerTools.MakeNewTextViewer[[
parent:  editToolData.outer,
wx: orderPrompt.wx + orderPrompt.ww + entryHSpace,
wy: editToolData.height,
ww: VFonts.StringWidth["Front, Top, Side, Bottom, Left, Right>>>"],
wh: entryHeight,
data: "Front, Top, Side",
scrollable: FALSE, border: FALSE]];

getOrder _ Buttons.Create[
info: [name: "Get!",
wx: editToolData.cameraOrderSection.order.wx + editToolData.cameraOrderSection.order.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.GetCameraOrder,
clientData: editToolData
];

setOrder _ Buttons.Create[
info: [name: "Set!",
wx: getOrder.wx + getOrder.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUserB.SetCameraOrder,
clientData: editToolData
];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

};

BuildShadowSection: PUBLIC PROC [editToolData: EditToolData] = {

shadowPrompt, setShadows: Buttons.Button;

shadowPrompt _ Buttons.Create[
info: [name: "Shadows:",
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.ShadowsPrompt,
clientData: editToolData
];

editToolData.shadowSection.shadowLabel _ Labels.Create[
info: [name: "FALSE",
wx: shadowPrompt.wx + shadowPrompt.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE]];
editToolData.shadowSection.shadowValue _ FALSE;

setShadows _ Buttons.Create[
info: [name: "Set!",
wx: editToolData.shadowSection.shadowLabel.wx + editToolData.shadowSection.shadowLabel.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, border: FALSE],
proc: SVEditUser.SetShadows,
clientData: editToolData
];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

};




END.



(File: SVEditToolMenusImplB.mesa
Last edited by Bier on August 18, 1983 5:40 pm
Contents: Procedures which build sections of the EditTool (continued).
Declare the standard distances between menu lines.
This section implements a set of buttons, text windows, and options listers in this format:
Rename!newName: <Rope>
This section implements a set of buttons, text windows, and options listers in this format:
Move Assembly!
This section implements a set of buttons, text windows, and options listers in this format:
SetArtwork! GetArtwork!  picName: <rope> isColorFile: <BOOL>
material:  <plastic>  resolution: <real>
tubeHeight: <real>  tubeRadius: <real>
SET COLOR  R,G,B:  <red, green, blue>
material:  <plastic>  resolution: <real>
SET COLOR  R,G,B:  <red, green, blue>
This section implements a set of buttons, text windows, and options listers in this format:
SetTubeArtwork!  tube height: <real>  tube radius: <real>
This section implements a set of buttons, text windows, and options listers in this format:
SetTubeArtwork!  tube height: <real>  tube radius: <real>
This section implements a set of buttons, text windows, and options listers in this format:
Rotate!  degrees: <real>  Normalize!
This section implements a set of buttons, text windows, and options listers in this format:
AddLight! DeleteLight!  EditLight!
lightName: <rope>  position: <BOOL>  color: <red, green, blue>
This section implements a set of buttons in this format:
Camera name: <name>     Get!  Add!  Set!
origin: 0,0,1800        focus point: 0,0,0
resolution: 72          focal length: 1800
style: <DrawStyle>    frame (two points): [-200,200], [200, -200]
Camera name: <name>     Get!  Set!  Use!

origin: 0,0,1800        focus point: 0,0,0       slant: 0

resolution: 72          focal length: 1800
frame: [[-200,200], [200, -200] fullScreen: TRUE]

This section implements a set of buttons in this format:
camera order:  Front, Top, Side    Get!    Set!
camera order:  Front, Top, Side

This section implements a set of buttons in this format:
Shadows: FALSE     Set!
Shadows: FALSE     Set!

ส1˜Iheadš
œ™Jš
œ.™.Jš
œF™FJ˜š
ฯk	˜	Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜—J˜šœ˜Jšœ>˜EJšœ˜—Jš
˜˜Jšœœ˜-J˜Jš
œ2™2J˜Jšœ
œ˜4Jšœ
œ˜4Jšœ
œ˜4Jšœ	œ˜,Jšœ	œ˜,Jšœ	œ˜,Jšœ	œ˜,J˜šฯnœœ
œ!˜@Jš
œ[™[Jš
œ™J˜Jš
œ,˜,J˜š
œ˜Jš
œA˜AJšœ$œ˜+Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œ˜š
œ˜Jš
œ˜Jš
œ)˜)Jšœ$œ˜+—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œD˜DJš
œ˜Jš
œ6˜6Jš
œ˜Jš
œ0˜0Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜Jš
œF˜FJ˜J˜Jš
œ˜—J˜šžœœ
œ!˜>Jš
œ[™[Jš
œ™J˜š
œ˜š
œ˜Jš
œ)˜)Jšœ$œ˜+—Jš
œ˜Jš
œ˜Jš
œ˜—Jš
œF˜FJ˜Jš
œ˜—J˜šžœœ
œ!˜AJš
œ[™[Jš
œ<™<Jš
œ(™(Jš
œ&™&Jš
œ%™%J˜Jš
œ?˜?Jš
œ1˜1Jš
œ*˜*Jšœœ˜(Jšœœ
˜*Jšœœ˜/J˜š
œ"˜"š
œ˜JšœNœ˜U—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œ˜š
œ˜Jšœ‹
œ˜’
—Jš
œ#˜#Jš
œ˜Jš
œ˜—J˜š
œE˜EJš
œ˜Jš
œ6˜6Jš
œ˜Jš
œ,˜,Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜š
œ˜š
œ˜Jšœฑ
œ˜ธ
—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œE˜EJš
œ˜Jš
œ6˜6Jš
œ˜Jš
œ#˜#Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜Jš
œF˜FJ˜Jš
œ(™(J˜š
œ ˜ š
œ˜JšœNœ˜U—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œ5˜5š
œ˜Jšœ‡
œ˜
——Jš
œ˜Jš
œ.˜.Jš
œ˜J˜š
œ"˜"š
œ˜Jš
œ-˜-Jš
œ6˜6Jš
œ)˜)Jšœ$œ˜+—Jš
œ"˜"Jš
œ˜Jš
œ˜—J˜š
œH˜HJš
œ˜Jš
œ<˜<Jš
œ˜Jš
œ"˜"Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜J˜Jš
œF˜FJ˜Jš
œ%™%J˜š
œ ˜ š
œ ˜ JšœNœ˜U—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œ˜š
œ˜Jšœoœ˜v—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œA˜AJš
œ˜Jš
œ.˜.Jš
œ˜Jš
œC˜CJš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜Jš
œF˜FJ˜J˜J˜Jš
œ˜—J˜šžœœ
œ!˜EJš
œ[™[Jš
œ9™9J˜Jš
œI˜IJšœœ	˜%Jšœœ˜$J˜š
œ&˜&š
œ˜JšœNœ˜U—Jš
œ!˜!Jš
œ˜Jš
œ˜—J˜š
œ"˜"š
œ˜Jšœ“
œ˜š
—Jš
œ"˜"Jš
œ˜Jš
œ˜—J˜š
œH˜HJš
œ˜Jš
œ<˜<Jš
œ˜Jš
œ"˜"Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜š
œ"˜"š
œ˜Jšœท
œ˜พ
—Jš
œ"˜"Jš
œ˜Jš
œ˜—J˜š
œH˜HJš
œ˜Jš
œ<˜<Jš
œ˜Jš
œ"˜"Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜J˜Jš
œF˜FJ˜Jš
œ˜—J˜šžœœ
œ!˜DJš
œ[™[Jš
œ9™9J˜Jš
œ:˜:Jšœœ˜,Jšœœ˜*J˜š
œ%˜%š
œ˜JšœNœ˜U—Jš
œ ˜ Jš
œ˜Jš
œ˜—J˜š
œ˜š
œ˜Jšœ‘
œ˜˜
—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œD˜DJš
œ˜Jš
œ.˜.Jš
œ˜Jš
œ4˜4Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜š
œ˜š
œ˜Jšœฏ
œ˜ถ
—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œG˜GJš
œ˜Jš
œ.˜.Jš
œ˜Jš
œ(˜(Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜Jš
œF˜FJ˜Jš
œ$˜$—J˜šžœœ
œ!˜JJš
œ[™[Jš
œ$™$Jš
œ8˜8Jšœœ˜%J˜š
œ˜š
œ˜JšœNœ˜U—Jš
œ ˜ Jš
œ˜Jš
œ˜—J˜š
œ˜š
œ˜Jšœƒ
œ˜Š
—Jš
œ&˜&Jš
œ˜Jš
œ˜—J˜š
œN˜NJš
œ˜Jš
œ6˜6Jš
œ˜Jš
œ$˜$Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜J˜š
œ˜š
œ˜Jšœร
œ˜ส
—Jš
œ#˜#Jš
œ˜Jš
œ˜—J˜Jš
œF˜FJ˜Jš
œ)˜)—J˜J˜J˜šžœœ
œ!˜EJš
œ[™[Jš
œ"™"Jš
œ>™>J˜Jš
œC˜CJš
œ=˜=Jšœœ˜1Jšœœ˜1J˜š
œ ˜ š
œ˜JšœNœ˜U—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œ#˜#š
œ˜Jšœ‡
œ˜Ž
—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œ!˜!š
œ˜Jšœ
œ˜”
—Jš
œ˜Jš
œ˜Jš
œ˜—J˜Jš
œF˜FJ˜š
œ!˜!š
œ˜JšœNœ˜U—Jš
œ!˜!Jš
œ˜Jš
œ˜—J˜š
œ@˜@Jš
œ˜Jš
œ:˜:Jš
œ˜Jš
œ)˜)Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜š
œ ˜ š
œ˜Jšœง
œ˜ฎ
—Jš
œ%˜%Jš
œ˜Jš
œ˜—J˜š
œD˜DJš
œ˜Jš
œ8˜8Jš
œ˜Jš
œ5˜5Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜Jš
œF˜FJ˜š
œ˜š
œ˜JšœNœ˜U—Jš
œ"˜"Jš
œ˜Jš
œ˜—J˜š
œA˜AJš
œ˜Jš
œ2˜2Jš
œ˜Jš
œ@˜@Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜J˜Jš
œF˜FJ˜Jš
œ˜—J˜J˜šžœœ
œ!˜@Jš
œ8™8Jš
œ(™(Jš
œ*™*Jš
œ*™*Jš
œA™AJ˜Jš
œH˜HJš
œ<˜<Jš
œ4˜4Jš
œ˜š
œ;˜;J˜—Jš
ฯb)™)š
œ"˜"š
œ˜JšœNœ˜U—Jš
œ"˜"Jš
œ˜Jš
œ˜—J˜š
œA˜AJš
œ˜Jš
œ<˜<Jš
œ˜Jš
œ2˜2Jš
œ˜Jš
œ	˜	Jšœœ
œ˜#—J˜š
œ˜š
œ˜Jšœฉ
œ˜ฐ
—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œ˜š
œ˜Jšœ}œ˜„
—Jš
œ˜Jš
œ˜Jš
œ˜—J˜J˜š
œ!˜!š
œ˜Jšœ}œ˜„
—Jš
œ˜Jš
œ˜Jš
œ˜—J˜Jš
œF˜FJ˜Jš
Ÿ:™:š
œ˜š
œ˜JšœNœ'˜z—Jš
œ˜Jš
œ˜—J˜š
œC˜CJš
œ˜Jš
œ4˜4Jš
œ˜Jš
œ3˜3Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜š
œ"˜"š
œ˜Jšœญ
œ˜ด
—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œG˜GJš
œ˜Jš
œ<˜<Jš
œ˜Jš
œ,˜,Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜š
œ˜š
œ˜Jšœต
œ˜ผ
—Jš
œ˜Jš
œ˜Jš
œ˜—š
œB˜BJš
œ˜Jš
œ2˜2Jš
œ˜Jš
œ#˜#Jš
œ˜Jš
œ
˜
Jšœœ
œ˜#—J˜Jš
œF˜FJ˜Jš
Ÿ*™*J˜š
œ"˜"š
œ˜JšœNœ˜U—Jš
œ&˜&Jš
œ˜Jš
œ˜—J˜š
œG˜GJš
œ˜Jš
œ<˜<Jš
œ˜Jš
œ#˜#Jš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜š
œ#˜#š
œ˜Jšœถ
œ˜ฝ
—Jš
œ#˜#Jš
œ˜Jš
œ˜—J˜š
œH˜HJš
œ˜Jš
œ>˜>Jš
œ˜Jš
œ$˜$Jš
œ˜Jš
œ
˜
Jšœœ
œ˜#—J˜Jš
œF˜FJ˜Jš
Ÿ2™2š
œ˜š
œ˜JšœNœ˜U—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œB˜BJš
œ˜Jš
œ2˜2Jš
œ˜Jš
œP˜PJš
œ˜Jš
œ+˜+Jšœœ
œ˜$—Jš
œF˜FJ˜š
œ%˜%š
œ!˜!JšœNœ˜U—Jš
œ%˜%Jš
œ˜Jš
œ˜—J˜š
œK˜KJš
œ˜Jš
œB˜BJš
œ˜Jš
œM˜MJš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜Jš
œF˜FJ˜š
œ'˜'š
œ$˜$JšœNœ˜U—Jš
œ'˜'Jš
œ˜Jš
œ˜—J˜š
œN˜NJš
œ˜Jš
œF˜FJš
œ˜Jš
œJ˜JJš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜Jš
œF˜FJ˜Jš
œ ˜ —šžœœ
œ!˜EJš
œ8™8Jš
œ/™/J˜š
œ0˜0J˜—Jš
Ÿ ™ š
œ˜š
œ˜JšœNœ˜U—Jš
œ#˜#Jš
œ˜Jš
œ˜—J˜š
œG˜GJš
œ˜Jš
œ2˜2Jš
œ˜Jš
œC˜CJš
œ˜Jš
œ˜Jšœœ
œ˜#—J˜š
œ˜š
œ˜Jšœต
œ˜ผ
—Jš
œ!˜!Jš
œ˜Jš
œ˜—š
œ˜š
œ˜Jšœ{œ˜‚
—Jš
œ!˜!Jš
œ˜Jš
œ˜—Jš
œG˜GJ˜—šžœœ
œ!˜@Jš
œ8™8Jš
œ™J˜š
œ)˜)J˜—Jš
Ÿ™š
œ˜š
œ˜JšœNœ˜U—Jš
œ˜Jš
œ˜Jš
œ˜—J˜š
œ7˜7š
œ˜Jšœƒ
œ˜‹
——Jšœ)œ˜0š
œ˜š
œ˜Jšœท
œ˜พ
—Jš
œ˜Jš
œ˜Jš
œ˜—Jš
œG˜GJ˜J˜——J˜J˜J˜Jšœ
˜J˜J˜J˜—…—Ws[