proc update {maxdist lag_minimum lag_maximum lag_increment} {
$lag_minimum setHighBound [$maxdist getCurrentValue]
$lag_maximum setHighBound [$maxdist getCurrentValue]
$lag_increment setHighBound [$maxdist getCurrentValue]
$lag_maximum setCurrentValue [format %.1f [expr [$maxdist getCurrentValue] / 5.0]]
$lag_increment setCurrentValue [format %.1f [expr [$lag_maximum getCurrentValue] / 10.0]]
}
GuidoForm vgDataSelection {
-default_buttons
-label "Variogram Calculation"
-layout BoxLayout Y_AXIS
-tip "VARIO_FORM_HELP"
GuidoTabbedPane frm20465_p1 {
GuidoPanel Basic {
-label Basic
-layout BoxLayout Y_AXIS
GuidoPanel frm20460_45 {
-layout CentreLineLayout
GuidoPanel frm20460_43 {
-border etched true
-layout CentreLineLayout
GuidoField minval {
-display_length 10
-font_style bold
-format double
-label "Minimum value"
-max_length 10
-next_focus maxval
-tip "VARIO_MIN_VAL"
}
GuidoField maxval {
-display_length 10
-font_style bold
-format double
-label "Maximum value"
-max_length 10
-tip "VARIO_MAX_VAL"
}
}
}
GuidoPanel frm20465_72 {
-layout BoxLayout Y_AXIS
-border etched true
GuidoLabel frm20460_11 {
-label "Data Selection Windows"
}
GuidoPanel frm20465_72a {
-layout CentreLineLayout
-tip "VARIO_SEARCH_TYPE"
GuidoLabel search_type_label {
-label "Search type"
}
GuidoButtonGroupPanel search_type {
-layout BoxLayout Y_AXIS
GuidoRadioButton frm20460_35 {
-caption Cone
-selected_value Cone
-default true
}
GuidoRadioButton frm20460_36 {
-caption Pyramid
-selected_value Pyramid
}
}
}
GuidoScrollPane frm20460_23 {
-height 6
-width 80
GuidoTable windows {
-instances 1 1 100
-interactive true
GuidoField azimuth {
-display_length 8
-font_style bold
-format double
-high_bound 360.000000
-label Azimuth
-low_bound 0.000000
-max_length 10
-null false
-tip "VARIO_AZIMUTH"
}
GuidoField plunge {
-display_length 8
-font_style bold
-format double
-high_bound 90.000000
-label Plunge
-low_bound -90.000000
-max_length 10
-null false
-tip "VARIO_PLUNGE"
}
GuidoField spread {
-display_length 8
-font_style bold
-format double
-high_bound 90.000000
-label Spread
-low_bound 0.000000
-max_length 10
-null false
-tip "VARIO_SPREAD"
-dependency {[$search_type getCurrentValue] == "Cone"}
}
GuidoField spr_limit {
-display_length 8
-font_style bold
-format double
-label "Spread limit"
-low_bound 0.000000
-max_length 10
-tip "VARIO_SPREAD_LIMIT"
-dependency {[$search_type getCurrentValue] == "Cone"}
}
GuidoField horizontal_spread {
-display_length 8
-font_style bold
-format double
-high_bound 90.000000
-label "Horizontal spread"
-low_bound 0.000000
-max_length 10
-null false
-tip "VARIO_HSPREAD"
-dependency {[$search_type getCurrentValue] == "Pyramid"}
}
GuidoField horizontal_spr_limit {
-display_length 8
-font_style bold
-format double
-label "Horizontal spread limit"
-low_bound 0.000000
-max_length 10
-tip "VARIO_HSPREAD_LIMIT"
-dependency {[$search_type getCurrentValue] == "Pyramid"}
}
GuidoField vertical_spread {
-display_length 8
-font_style bold
-format double
-high_bound 90.000000
-label "Vertical spread"
-low_bound 0.000000
-max_length 10
-null false
-tip "VARIO_VSPREAD"
-dependency {[$search_type getCurrentValue] == "Pyramid"}
}
GuidoField vertical_spr_limit {
-display_length 8
-font_style bold
-format double
-label "Vertical spread limit"
-low_bound 0.000000
-max_length 10
-tip "VARIO_VSPREAD_LIMIT"
-dependency {[$search_type getCurrentValue] == "Pyramid"}
}
GuidoColourBrowserField chart_colour {
-display_length 16
-exclusive false
-label "Chart colour"
-max_length 32
-default black
-null false
}
}
}
}
GuidoPanel frm20460_58 {
-layout BoxLayout X_AXIS
GuidoPanel frm20460_56 {
-border etched true
-layout CentreLineLayout
GuidoField lag {
-display_length 10
-font_style bold
-format double
-label Lag
-max_length 10
-next_focus maxdist
-null false
-tip "VARIO_LAG_DIST"
}
GuidoField maxdist {
-display_length 10
-font_style bold
-format double
-label "Maximum distance"
-max_length 10
-next_focus frm20460_35
-null false
-tip "VARIO_LAG_MAX_DIST"
}
GuidoFileBrowserField fname {
-label "Output report file name"
-display_length 20.5
-extension false
-file_mask "*.not *.csv *.htm *.html *.rtf *.pdf *.ps"
-format none
-max_length 256
-null false
-tip "DB_REPORT_TIP"
-translate lower
}
GuidoComboBox report_format {
-label "Output report file format"
-display_length 18
-format none
-max_length 40
-null false
-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"
}
GuidoCheckBox display_report {
-label "Display report"
-default false
}
}
}
}
GuidoPanel Advanced {
-label Advanced
-layout BoxLayout Y_AXIS
GuidoPanel frm20465_79 {
-layout BoxLayout Y_AXIS
GuidoPanel frm20465_79 {
-layout BoxLayout Y_AXIS
-border etched true
-width 45
-label "Geographical Constraints"
GuidoPanel frm20465_75 {
-label Minimum:
-layout BoxLayout X_AXIS
GuidoField min0 {
-display_length 10
-format double
-label X
-max_length 10
-next_focus min1
-tip "VARIO_MIN_X_VAL"
}
GuidoField min1 {
-display_length 10
-format double
-label Y
-max_length 10
-next_focus min2
-tip "VARIO_MIN_Y_VAL"
}
GuidoField min2 {
-display_length 10
-format double
-label Z
-max_length 10
-next_focus max0
-tip "VARIO_MIN_Z_VAL"
}
}
GuidoFiller frm20465_fh1 {
-height 1
}
GuidoPanel frm20465_77 {
-layout BoxLayout X_AXIS
-label Maximum:
GuidoField max0 {
-display_length 10
-format double
-label X
-max_length 10
-next_focus max1
-tip "VARIO_MAX_X_VAL"
}
GuidoField max1 {
-display_length 10
-format double
-label Y
-max_length 10
-next_focus max2
-tip "VARIO_MAX_Y_VAL"
}
GuidoField max2 {
-display_length 10
-format double
-label Z
-max_length 10
-tip "VARIO_MAX_Z_VAL"
}
}
}
GuidoPanel frm20465_80 {
-layout CentreLineLayout
-border etched true
-width 45
-label "Lag slider"
GuidoField lag_minimum {
-display_length 10
-format double
-label Minimum
-max_length 10
-low_bound 0.1
-default 0.1
-tip "VG_LAG_SLIDER_MINIMUM"
-decimals 1
}
GuidoField lag_maximum {
-display_length 10
-format double
-label Maximum
-max_length 10
-low_bound 0.1
-tip "VG_LAG_SLIDER_MAXIMUM"
-decimals 1
}
GuidoField lag_increment {
-display_length 10
-format double
-label Increment
-max_length 10
-low_bound 0.1
-tip "VG_LAG_SLIDER_INCREMENT"
-decimals 1
}
}
GuidoPanel frm20460_57 {
-border etched true
-layout CentreLineLayout
-width 45
GuidoPanel frm20460_38 {
-layout BoxLayout X_AXIS
-tip "VARIO_NEG_VAL"
-label "Treat negatives as"
GuidoButtonGroupPanel negative {
GuidoRadioButton frm20460_35 {
-caption ZEROES
-selected_value ZEROES
}
GuidoRadioButton frm20460_36 {
-caption UNDEFINED
-selected_value UNDEFINED
}
GuidoRadioButton frm20460_37 {
-caption NEGATIVES
-default true
-next_focus notefile
-selected_value NEGATIVES
}
}
}
GuidoPanel test {
-layout CentreLineLayout
-tip "DB_VARIOGRAM_OUTPUT"
-label "Save composited string file"
GuidoButtonGroupPanel string_file {
GuidoRadioButton vgDataSelection_1 {
-caption "LPS_NONE"
-tip "vgDataSelection"
-selected_value NONE
-default true
}
GuidoRadioButton vgDataSelection_2 {
-caption TEXT
-selected_value TEXT
}
GuidoRadioButton vgDataSelection_3 {
-caption BINARY
-selected_value BINARY
}
}
}
}
}
}
}
$maxdist setActionCallback valueChanged {[update $maxdist $lag_minimum $lag_maximum $lag_increment]}
}
