package require java
proc graphicalEllipsoid { formHandle } {
$formHandle hide
set visualiserForm [java::new com.surpac.gui.VisualiserForm 1]
$visualiserForm setMaxDistance [$formHandle getField majordist]
$visualiserForm interactFrame
if {[$visualiserForm getReturnStatus] == 1 } {
$formHandle setField majordist [$visualiserForm getDist]
}
$visualiserForm destroyFrame
$formHandle show
}
GuidoForm frm20253 {
-default_buttons
-label "Ik Search and Estimation Parameters"
-layout BoxLayout Y_AXIS
-tip "20253_TIP_001"
-help_id 65
GuidoPanel ellipsoid_octant {
-layout BoxLayout X_AXIS
-tip "20253_TIP_002"
GuidoLabel search_label {
-label "Search type"
-height 1
}
GuidoFiller filler_width1 {
-width 1
}
GuidoButtonGroupPanel search {
GuidoRadioButton frm20253_3 {
-caption Ellipsoid
-default true
-selected_value ELLIPSOID
}
GuidoRadioButton frm20253_4 {
-caption Octant
-selected_value OCTANT
}
}
}
GuidoPanel samples_search_dist {
-layout CentreLineLayout
GuidoFiller frm20253_22 {
-height 1
}
GuidoFiller frm20253_23 {
-height 1
}
GuidoField minsamples {
-default 3
-display_length 2
-format short
-high_bound 50
-label "Minimum number of samples to select"
-low_bound 1
-max_length 2
-null false
-tip "20253_TIP_003"
-translate none
}
GuidoField maxsamples {
-default 15
-display_length 4
-format short
-label "Maximum number of samples to select"
-low_bound 1
-max_length 4
-null false
-tip "This sets an upper bounds on the number of samples to be used for the estimate."
-translate none
}
GuidoFiller frm20253_24 {
-height 1
}
GuidoFiller frm20253_25 {
-height 1
}
GuidoField majordist {
-display_length 10
-format double
-label "Maximum search radius"
-max_length 16
-null false
-tip "20253_TIP_005"
-translate upper
}
GuidoField vertdist {
-display_length 10
-format double
-label "Maximum vertical search distance"
-max_length 16
-null false
-tip "20253_TIP_006"
-translate upper
}
GuidoFiller frm20253_26 {
-height 1
}
GuidoFiller frm20253_27 {
-height 1
}
GuidoCheckBox const_by_id {
-default false
-label "Constrain by drill hole?"
-selected_value Y
-tip "Limit the number of sample points that can be selected from each drill hole?"
-unselected_value N
}
GuidoComboBox desc_field {
-default d2
-dependency {"[ $const_by_id getCurrentValue]" == "Y"}
-display_length 5
-exclusive false
-format none
-label "Desc field"
-max_length 32
-null false
-tip "The description field that defines which drill hole a sample belongs to."
-value_in d1 d2 d3 d4 d5 d6 d7 d8 d9 d10 d11 d12 d13 d14 d15 d16 d17 d18 d19 d20
}
GuidoField max_samp_per_id {
-default 15
-dependency {"[ $const_by_id getCurrentValue]" == "Y"}
-display_length 10
-format short
-label "Maximum number of samples per drill hole"
-max_length 16
-null false
-tip "The maximum number of samples per drill hole that can be used in the estimation."
-translate upper
}
GuidoFiller frm20080_28 {
-height 1
}
GuidoFiller frm20080_29 {
-height 1
}
}
GuidoPanel outer_adjacent_octants {
-layout OverlayLayout
GuidoPanel adjacent_octants {
-dependency {1}
-layout CentreLineLayout
GuidoField adjoct {
-dependency {"[ $search getCurrentValue]" == "OCTANT"}
-display_length 2
-format short
-label "Maximum number of adjacent octants with no samples"
-max_length 2
-null false
-tip "00141_TIP_018"
-translate none
}
GuidoFiller frm20253_30 {
-height 1
}
}
GuidoPanel hidden_string_file_source_panel {
-dependency {0}
-layout CentreLineLayout
GuidoCheckBox string_file_source {
-default true
-selected_value true
-unselected_value false
}
}
}
$const_by_id setDependency {"[$string_file_source getCurrentValue]" == "true"}
GuidoPanel frm20253_34 {
-layout BoxLayout X_AXIS
GuidoLabel frm20253_12 {
-label "Number of descretisation points"
}
GuidoFiller frm20253_35 {
-width 1
}
GuidoPanel desc_pt0 {
-layout CentreLineLayout
GuidoField dpt0 {
-default 3
-display_length 2
-format integer
-high_bound 5
-label X
-low_bound 1
-max_length 1
-next_focus dpt1
-null false
-tip "20253_TIP_011"
-translate none
}
}
GuidoFiller frm20253_35 {
-width 1
}
GuidoPanel desc_pt1 {
-layout CentreLineLayout
GuidoField dpt1 {
-default 3
-display_length 2
-format integer
-high_bound 5
-label Y
-low_bound 1
-max_length 1
-next_focus dpt2
-null false
-tip "20253_TIP_011"
-translate none
}
}
GuidoFiller frm20253_35 {
-width 1
}
GuidoPanel desc_pt2 {
-layout CentreLineLayout
GuidoField dpt2 {
-default 3
-display_length 2
-format integer
-high_bound 5
-label Z
-low_bound 1
-max_length 1
-null false
-tip "20253_TIP_011"
-translate none
}
}
GuidoFiller frm20253_35 {
-width 1
}
}
GuidoFiller frm20253_36 {
-height 1
}
GuidoPanel frm20253_39 {
-layout BoxLayout Y_AXIS
GuidoPanel debug_constrain {
-layout BoxLayout X_AXIS
GuidoPanel debug_output {
-layout CentreLineLayout
GuidoCheckBox debug {
-default false
-label "Include debug output"
-selected_value Y
-tip "20101_TIP_042"
-unselected_value N
}
}
GuidoFiller frm20253_40 {
-width 1
}
GuidoFiller frm20253_41 {
-height 1
}
GuidoPanel frm20253_42 {
-layout CentreLineLayout
GuidoCheckBox constrain {
-default false
-label "Constrain interpolation?"
-selected_value Y
-tip "Enter Y if you wish to restrict the blocks to be estimated or N for unconstrained estimation."
-unselected_value N
}
}
}
GuidoFiller frm20253_40 {
-height 1
}
GuidoPanel output_file {
-layout CentreLineLayout
GuidoFileBrowserField outfile {
-display_length 18
-file_access write
-file_mask "reports|*.not"
-format none
-label "REPORT_FILE_NAME"
-max_length 256
-next_focus debug
-tip "20253_TIP_016"
-extension false
-translate lower
}
GuidoComboBox report_format {
-label "Format"
-display_length 16
-null true
-tip "The file format nominated here will be the output report format."
-value_in ".not - Surpac Note File" ".csv - Comma Separated (Spreadsheet)" ".htm - Hypertext Markup Language (Web)" ".html - Hypertext Markup Language (Web)" ".rtf - Rich Text Format (Microsoft Word)" ".pdf - Adobe Acrobat" ".ps - Postscript" ".log - Surpac log file"
}
}
GuidoFiller fill {
-height 1
}
}
GuidoPanel evPanel {
-layout BoxLayout Y_AXIS
GuidoFiller ev1_1 {
-height 0.2
}
GuidoPanel evPanel2 {
-layout FlowLayout
GuidoButton visualiser {
-caption "Ellipsoid Visualiser"
-action valueChanged {[graphicalEllipsoid $frm20253]}
-tip "A Visual Representation of the Search Ellipsoid"
}
}
GuidoFiller ev1_2 {
-height 0.2
}
}
}
