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

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

EditToolData: TYPE = SVInterfaceTypes.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;
numberSize: CARDINAL = 80;
numberSize3: CARDINAL = 160;

BuildCameraSection1: PUBLIC PROC [editToolData: EditToolData] = {

cameraNamePrompt, getButton, setButton, useCameraButton: 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;
};

BuildCameraSection2: PUBLIC PROC [editToolData: EditToolData] = {
originPrompt, focusPointPrompt, slantPrompt: Buttons.Button;
resolutionPrompt, focalLengthPrompt, projectionButton: Buttons.Button;
framePrompt: Buttons.Button;
clippingPlanePrompt, visibleAssemblyPrompt: Buttons.Button;

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]];

projectionButton _ Buttons.Create[
info: [name: "projection:",
wx: editToolData.cameraSection.focalLength.wx +
editToolData.cameraSection.focalLength.ww + entryHSpace,
wy: editToolData.height,
wh: entryHeight,
parent: editToolData.outer,
border: FALSE],
proc: SVEditUser.ProjectionCycle,
clientData: editToolData
];

editToolData.cameraSection.projection _ Labels.Create[
info: [name: "perspect",
wx: projectionButton.wx + projectionButton.ww + entryHSpace,
wy: editToolData.height, wh: entryHeight,
parent: editToolData.outer, 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 BuildCameraSection2


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;

};



END.



pFile: SVEditToolMenusImplB.mesa
Last edited by Bier on August 1, 1985 5:23:16 pm PDT
Copyright c 1984 by Xerox Corporation.  All rights reserved.
Contents: Procedures which build sections of the EditTool (continued).
Declare the standard distances between menu lines.
This section implements a set of buttons in this format:
Camera name: <name>     Get!  Add!  Set!
Camera name: <name>     Get!  Set!  Use!

origin: 0,0,1800        focus point: 0,0,0
resolution: 72          focal length: 1800
style: <DrawStyle>    frame (two points): [-200,200], [200, -200]

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

resolution: 72          focal length: 1800		projection: perspect
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

Κ…˜Iheadš
œ™Jš
œ4™4Jšœ
Οm
œ1™<Jš
œF™FJ˜š
Οk	˜	Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜—J˜šœž˜Jšžœ>˜EJšžœ˜—Jš
ž˜˜Jšœžœ!˜3J˜Jš
œ2™2J˜Jšœ
žœ˜4Jšœ
žœ˜4Jšœ
žœ˜4Jšœ	žœ˜,Jšœ	žœ˜,Jšœ	žœ˜,Jšœ	žœ˜,Jšœžœ˜Jšœ
žœ˜J˜—šΟnœžœ
žœ!˜AJš
œ8™8Jš
œ(™(J˜š
œH˜HJ˜—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˜—šŸœžœ
žœ!˜AJš
œ*™*Jš
œ*™*Jš
œA™AJ™Jš
œ<˜<Jš
œF˜FJš
œ˜Jš
œ;˜;J˜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š
œh˜hJš
œ˜Jš
œ˜Jš
œ˜Jšœžœ˜—Jš
œ!˜!Jš
œ˜Jš
œ˜—J˜š
œ6˜6š
œ˜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šœΟc˜!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˜—J˜Jšžœ
˜J˜J˜J˜—…—$0