proc setDistInterpolSliderMinMax {distVanishPt} {
global distInterpol
set distVanishPtValue [$distVanishPt getCurrentValue]
if {"$distVanishPtValue" != "" && $distVanishPtValue > 0} {
$distInterpol setLowBound "-[$distVanishPt getCurrentValue]"
$distInterpol setHighBound [$distVanishPt getCurrentValue]
GuidoExecServer "SetDistInterpolSliderMinMax" [subst {distVanishPt = "$distVanishPtValue"} ]
}
}
proc setDistInterpolSlider {distInterpol copyDirection stringRange func_context} {
set distInterpolValue [$distInterpol getCurrentValue]
set copyDirection [$copyDirection getCurrentValue]
set stringRange [$stringRange getCurrentValue]
set func_context [$func_context getCurrentValue]
if {"$distInterpolValue" != "" && "&stringRange" != ""} {
GuidoExecServer "SetDistInterpolSlider" [subst {distInterpol = "$distInterpolValue" copyDirection = "$copyDirection" stringRange = "$stringRange" func_context = "$func_context"} ]
}
}
proc updateGraphicsWithSliderChange {distInterpol copyDirection str_id seg_id func_context} {
set distInterpolValue [$distInterpol getCurrentValue]
set copyDirection [$copyDirection getCurrentValue]
set stringRange [$stringRange getCurrentValue]
set func_context [$func_context getCurrentValue]
if {"$distInterpolValue" != "" && "&stringRange" != ""} {
GuidoExecServer "UpdateGraphicsWithSliderChange" [subst {distInterpol = "$distInterpolValue" copyDirection = "$copyDirection" stringRange = "$stringRange" func_context = "$func_context"} ]
}
}
proc setSlopeLowHighBounds {extrude_method} {
global slope
set extrudeMethodValue [$extrude_method getCurrentValue]
if {"$extrudeMethodValue" == "bearing, distance, slope"} {
$slope setLowBound "-1.5533430343"
$slope setHighBound "1.5533430343"
} else {
$slope setLowBound "-1.5707963269"
$slope setHighBound "1.5707963269"
}
}
GuidoForm frm00923 {
-default_buttons
-label "Extrude and triangulate a string range"
-layout CentreLineLayout
GuidoField stringRange {
-label "String range to extrude"
-display_length 20
-max_length MAX_RNG_LENGTH
-format range
-null true
-translate none
-tip TRIANGULATE_EXTRUDE_STRING_RANGE_TIP
}
GuidoField object_id {
-label "Object ID"
-display_length 5
-format integer
-max_length 5
-low_bound 1
-high_bound 32000
-null false
-translate none
-tip TRIANGULATE_EXTRUDE_OBJECT_ID_TIP
}
GuidoLabel l0 {
-label "Increment"
}
GuidoButtonGroupPanel incrementObjectID {
-layout BoxLayout X_AXIS
GuidoRadioButton frm00921_2 {
-caption "Object ID"
-selected_value "y"
-tip TRIANGULATE_EXTRUDE_INCREMENT_OBJECT_ID_TIP
}
GuidoRadioButton incrementTrisolationID {
-caption "Trisolation ID"
-selected_value "n"
-tip TRIANGULATE_EXTRUDE_INCREMENT_TRISOLATION_TIP
}
}
GuidoCheckBox triangulate_inside_start {
-label "Triangulate start segment"
-default false
-selected_value y
-unselected_value n
-tip TRIANGULATE_EXTRUDE_TRIANGULATE_START_FACE_TIP
}
GuidoCheckBox triangulate_inside_end {
-label "Triangulate end segment"
-default false
-selected_value y
-unselected_value n
-tip TRIANGULATE_EXTRUDE_TRIANGULATE_END_FACE_TIP
}
GuidoLabel l2 {
-label "Direction to copy segment"
}
GuidoButtonGroupPanel copyDirection {
-layout BoxLayout X_AXIS
GuidoRadioButton forwardButton {
-caption "forward"
-selected_value "forward"
-tip TRIANGULATE_EXTRUDE_COPY_FORWARD_TIP
}
GuidoRadioButton forwardBAckwardButton {
-caption "forward & backward"
-selected_value "forward & backward"
-tip TRIANGULATE_EXTRUDE_COPY_FORWARD_AND_BACKWARD_TIP
}
}
GuidoLabel l1 {
-label "Copy string range by"
}
GuidoButtonGroupPanel extrude_method {
-layout BoxLayout Y_AXIS
-action initial {[setSlopeLowHighBounds $extrude_method]}
-action valueChanged {[setSlopeLowHighBounds $extrude_method]}
GuidoRadioButton frm00921_2 {
-caption "xyz offsets"
-selected_value "xyz offsets"
-tip TRIANGULATE_EXTRUDE_USING_XYZ_OFFSETS_TIP
}
GuidoRadioButton frm00921_3 {
-caption "bearing, distance, slope"
-selected_value "bearing, distance, slope"
-tip TRIANGULATE_EXTRUDE_USING_BEARING_TIP
}
GuidoRadioButton frm00921_4 {
-caption "expand by horizontal offset"
-selected_value "expand by horizontal offset"
-tip TRIANGULATE_EXTRUDE_USING_HORIZONTAL_OFFSET_TIP
}
GuidoRadioButton frm00921_5 {
-caption "expand by vertical offset"
-selected_value "expand by vertical offset"
-tip TRIANGULATE_EXTRUDE_USING_VERTICAL_OFFSET_TIP
}
GuidoRadioButton frm00921_6 {
-caption "perpendicular to segment plane"
-selected_value "perpendicular to segment plane"
-tip TRIANGULATE_EXTRUDE_USING_PERPENDICULAR_TO_PLANE_TIP
}
GuidoRadioButton frm00921_7 {
-caption "shrink to a vanishing point"
-selected_value "shrink to a vanishing point"
-tip TRIANGULATE_EXTRUDE_USING_SHRINK_TO_VANISH_POINT_TIP
}
}
GuidoFiller f1 {
-height 1
}
GuidoFiller f2 {
-height 1
}
GuidoLabel l1 {
-font_style bold
-label "Segment copy parameters"
}
GuidoFiller f3 {
-height 1
}
GuidoPanel row1_column1 {
-layout OverlayLayout
GuidoPanel p1 {
-dependency {[$extrude_method getCurrentValue] == "xyz offsets"}
GuidoLabel l1 {
-label "X offset"
}
}
GuidoPanel p2 {
-dependency {[$extrude_method getCurrentValue] == "bearing, distance, slope"}
GuidoLabel l2 {
-dependency {[$extrude_method getCurrentValue] == "bearing, distance, slope"}
-label "Bearing"
}
}
}
GuidoPanel row1_column2 {
-layout OverlayLayout
GuidoPanel p3 {
-dependency {[$extrude_method getCurrentValue] == "xyz offsets"}
GuidoField xoffset {
-dependency {[$extrude_method getCurrentValue] == "xyz offsets"}
-display_length 16
-format double
-max_length 16
-null false
-translate upper
-tip TRIANGULATE_EXTRUDE_XOFFSET_TIP
}
}
GuidoPanel p4 {
-dependency {[$extrude_method getCurrentValue] == "bearing, distance, slope"}
GuidoField bearing {
-dependency {[$extrude_method getCurrentValue] == "bearing, distance, slope"}
-display_length 16
-format decimal_angle
-max_length 16
-low_bound 0
-high_bound 6.2831853071
-null false
-translate upper
-tip TRIANGULATE_EXTRUDE_BEARING_TIP
}
}
}
GuidoPanel row2_column1 {
-layout OverlayLayout
GuidoPanel p5 {
-dependency {[$extrude_method getCurrentValue] == "xyz offsets"}
GuidoLabel l3 {
-label "Y offset"
}
}
GuidoPanel p6 {
-dependency {[$extrude_method getCurrentValue] == "bearing, distance, slope" || [$extrude_method getCurrentValue] == "expand by horizontal offset"}
GuidoLabel l4 {
-dependency {[$extrude_method getCurrentValue] == "bearing, distance, slope" || [$extrude_method getCurrentValue] == "expand by horizontal offset"}
-label "Horizontal distance"
}
}
GuidoPanel p7 {
-dependency {[$extrude_method getCurrentValue] == "expand by vertical offset"}
GuidoLabel l5 {
-dependency {[$extrude_method getCurrentValue] == "expand by vertical offset"}
-label "Vertical distance"
}
}
GuidoPanel p7a {
-dependency {[$extrude_method getCurrentValue] == "perpendicular to segment plane"}
GuidoLabel l5 {
-dependency {[$extrude_method getCurrentValue] == "perpendicular to segment plane"}
-label "Distance"
}
}
GuidoPanel p7b {
-dependency {[$extrude_method getCurrentValue] == "shrink to a vanishing point"}
GuidoLabel l6 {
-dependency {[$extrude_method getCurrentValue] == "shrink to a vanishing point"}
-label "Distance to vanishing point"
}
}
}
GuidoPanel row2_column2 {
-layout OverlayLayout
GuidoPanel p8 {
-dependency {[$extrude_method getCurrentValue] == "xyz offsets"}
GuidoField yoffset {
-dependency {[$extrude_method getCurrentValue] == "xyz offsets"}
-display_length 16
-format double
-max_length 16
-null false
-translate upper
-tip TRIANGULATE_EXTRUDE_YOFFSET_TIP
}
}
GuidoPanel p14 {
-layout FlowLayout LEFT
-dependency {[$extrude_method getCurrentValue] == "shrink to a vanishing point"}
GuidoField distVanishPt {
-dependency {[$extrude_method getCurrentValue] == "shrink to a vanishing point"}
-display_length 16
-format double
-low_bound 0.1
-max_length 16
-null false
-translate upper
-action initial {[setDistInterpolSliderMinMax $distVanishPt]}
-action valueChanged {[setDistInterpolSliderMinMax $distVanishPt]}
-tip TRIANGULATE_EXTRUDE_DIST_VANISH_POINT
}
}
GuidoPanel p9 {
-dependency {[$extrude_method getCurrentValue] != "xyz offsets"}
-dependency {[$extrude_method getCurrentValue] != "shrink to a vanishing point"}
GuidoField distance {
-dependency {[$extrude_method getCurrentValue] != "xyz offsets"}
-dependency {[$extrude_method getCurrentValue] != "shrink to a vanishing point"}
-display_length 16
-format double
-max_length 16
-null false
-translate upper
-tip TRIANGULATE_EXTRUDE_DISTANCE_TIP
}
}
}
GuidoPanel row3_column1 {
-layout OverlayLayout
GuidoPanel p10 {
-dependency {[$extrude_method getCurrentValue] == "xyz offsets"}
GuidoLabel l5 {
-dependency {[$extrude_method getCurrentValue] == "xyz offsets"}
-label "Z offset"
}
}
GuidoPanel p10a {
-dependency {[$extrude_method getCurrentValue] == "shrink to a vanishing point"}
GuidoLabel l5 {
-dependency {[$extrude_method getCurrentValue] == "shrink to a vanishing point"}
-label "Distance to interpolation plane"
}
}
GuidoPanel p11 {
-dependency {[$extrude_method getCurrentValue] != "xyz offsets"}
-dependency {[$extrude_method getCurrentValue] != "shrink to a vanishing point"}
GuidoLabel l6 {
-dependency {[$extrude_method getCurrentValue] != "xyz offsets"}
-dependency {[$extrude_method getCurrentValue] != "shrink to a vanishing point"}
-label "Slope angle"
}
}
}
GuidoPanel row3_column2 {
-layout OverlayLayout
GuidoPanel p12 {
-dependency {[$extrude_method getCurrentValue] == "xyz offsets"}
GuidoField zoffset {
-dependency {[$extrude_method getCurrentValue] == "xyz offsets"}
-display_length 16
-format double
-max_length 16
-null false
-translate upper
-tip TRIANGULATE_EXTRUDE_ZOFFSET_TIP
}
}
GuidoPanel p12a {
-dependency {[$extrude_method getCurrentValue] == "shrink to a vanishing point"}
GuidoLabel distInterpol_start {
-status_item "distInterpol_min"
}
GuidoSlider distInterpol_slider {
-maximum_width 12.0
-status_item "setDistInterpolSlider"
-update_method "SetDistInterpolPosition"
-minimum -100
-maximum 100
-increment 1
-tip "Select the interpolation plane distance"
-action mouseDragged {[setDistInterpolSlider $distInterpol $copyDirection $stringRange $func_context]}
-action keyReleased {[setDistInterpolSlider $distInterpol $copyDirection $stringRange $func_context]}
}
GuidoLabel distInterpol_end {
-status_item "distInterpol_max"
}
GuidoField distInterpol {
-display_length 5
-format integer
-null disallowed
-input allowed
-max_length 32
-translate none
-action focusGained {[setDistInterpolSlider $distInterpol $copyDirection $stringRange $func_context]}
-action valueChanged {[setDistInterpolSlider $distInterpol $copyDirection $stringRange $func_context]}
-status_item "distInterpol_value"
-tip TRIANGULATE_EXTRUDE_DIST_INTERPOLATION_PLANE
}
}
GuidoPanel p13 {
-dependency {[$extrude_method getCurrentValue] != "xyz offsets"}
-dependency {[$extrude_method getCurrentValue] != "shrink to a vanishing point"}
GuidoField slope {
-dependency {[$extrude_method getCurrentValue] != "xyz offsets"}
-dependency {[$extrude_method getCurrentValue] != "shrink to a vanishing point"}
-display_length 16
-format decimal_angle
-low_bound -1.5707963269
-high_bound 1.5707963269
-max_length 16
-null false
-translate upper
-tip TRIANGULATE_EXTRUDE_SLOPE_TIP
}
}
}
GuidoPanel hidden_panel {
-input false
-height 0
-hidden true
GuidoField func_context {
-format none
-display_length 0
-input disallowed
-max_length 40
}
}
}
