package require java
GuidoLabel newid {}
proc graphicalEllipsoid { formHandle } {
$formHandle hide
set visualiserForm [java::new com.surpac.gui.VisualiserForm 1]
$visualiserForm setMajorSemi [$formHandle getField semi_major]
$visualiserForm setMajorMinor [$formHandle getField minor]
$visualiserForm setMaxDistance [$formHandle getField rmax]
$visualiserForm setBearing [$formHandle getField bng]
$visualiserForm setDip [$formHandle getField tilt]
$visualiserForm setPlunge [$formHandle getField dip]
$visualiserForm interactFrame
if {[$visualiserForm getReturnStatus] == 1 } {
$formHandle setField semi_major [$visualiserForm getMajorSemi]
$formHandle setField minor [$visualiserForm getMajorMinor]
$formHandle setField rmax [$visualiserForm getDist]
$formHandle setField bng [$visualiserForm getBrg]
$formHandle setField dip [$visualiserForm getPlunge]
$formHandle setField tilt [$visualiserForm getDip]
}
$visualiserForm destroyFrame
$formHandle show
}
GuidoForm frm00150 {
-default_buttons
-label "Variogram Validation"
-layout BoxLayout Y_AXIS
-tip "00150_TIP_001"
GuidoPanel frm00150_24 {
-layout BoxLayout X_AXIS
GuidoPanel frm00150_22 {
-layout CentreLineLayout
GuidoFiller frm00150_25 {}
GuidoLabel frm00150_2 {
-label "Define the sample population"
}
GuidoFileBrowserField location {
-display_length 16
-font_style bold
-format none
-file_mask *.str
-link id
-label "Location"
-max_length "FIO_MAX_LOCATION_LENGTH"
-next_focus id
-tip "The input file must contain the data values in a description field."
}
GuidoField id {
-display_length 3
-font_style bold
-format double
-label "ID number"
-max_length 16
-next_focus field
-null false
-tip "The input file must contain the data values in a description field."
}
GuidoField field {
-default 1
-display_length 3
-font_style bold
-format integer
-high_bound 100
-label "Field"
-low_bound 1
-max_length 3
-next_focus out_loc
-null false
-tip "The input file must contain the data values in a description field."
}
GuidoFiller frm00150_loc1 {}
GuidoLabel frm00150_loc2 {
-label "Define the output location"
}
GuidoFileBrowserField out_loc {
-display_length 16
-font_style bold
-file_mask *.not
-extension false
-link newid
-format none
-label "REPORT_FILE_NAME"
-file_mask reports|*.not
-max_length 26
-tip "REPORT_FILE_NAME_TIP"
}
}
}
GuidoFiller frm00150_27 {
-height 1
}
GuidoPanel frm00150_28 {
-border etched true
-label "Define the variogram parameters"
-layout BoxLayout X_AXIS
GuidoPanel frm00150_21 {
-layout CentreLineLayout
-border etched true
GuidoField bng {
-display_length 6
-font_style bold
-format double
-high_bound 360.000000
-low_bound 0.000000
-label "Bearing"
-max_length 6
-null false
-tip "00141_TIP_009"
}
GuidoField dip {
-display_length 6
-font_style bold
-format double
-high_bound 90.000000
-label "Plunge"
-low_bound -90.000000
-max_length 6
-next_focus tilt
-null false
-tip "00141_TIP_009"
}
GuidoField tilt {
-display_length 6
-font_style bold
-format double
-high_bound 90.000000
-label "Dip"
-low_bound -90.000000
-max_length 6
-next_focus semi_major
-null false
-tip "00141_TIP_009"
}
}
GuidoFiller frm00150_32 {
-width 1
}
GuidoPanel frm00150_30 {
-border etched true
-layout CentreLineLayout
-label "Anisotropy factors"
GuidoField semi_major {
-display_length 5
-font_style bold
-format double
-label "semi-major"
-max_length 5
-next_focus minor
-null false
-tip "00141_TIP_009"
}
GuidoField minor {
-display_length 5
-font_style bold
-format double
-label "minor"
-max_length 5
-null false
-tip "00141_TIP_009"
}
GuidoFiller frm00150_32 {
-width 1
}
}
GuidoFiller frm00150_33 {
-height 1
}
}
GuidoPanel frm00150_36 {
-layout BoxLayout Y_AXIS
-border etched true
-label "Define the interpolation parameters"
GuidoPanel frm00150_38 {
-layout BoxLayout X_AXIS
GuidoField min {
-display_length 4
-font_style bold
-format integer
-high_bound 50
-label "No. of samples to krig a point:   Min."
-low_bound 1
-max_length 3
-next_focus max
-null false
-tip "00141_TIP_013"
}
GuidoField max {
-display_length 4
-font_style bold
-format integer
-label "  Max "
-low_bound 1
-max_length 4
-null false
-tip "The nearest n samples will be used to create the estimate."
}
GuidoFiller frm00150_37 {
-width 1
}
}
GuidoPanel frm00150_38 {
-layout CentreLineLayout
GuidoField rmax {
-display_length 8
-font_style bold
-format double
-label "Max search distance for major axis"
-max_length 16
-null false
-tip "00141_TIP_015"
}
GuidoField zlimit {
-display_length 8
-font_style bold
-format double
-default 99999
-label "Max vertical search distance"
-max_length 16
-null false
-tip "00141_TIP_016"
}
}
}
GuidoPanel evPanel {
-layout BoxLayout Y_AXIS
GuidoFiller ev1_1 {
-height 0.2
}
GuidoPanel evPanel2 {
-layout FlowLayout
GuidoButton visualiser {
-caption "Ellipsoid Visualiser"
-action valueChanged {[graphicalEllipsoid $frm00150]}
-tip "A Visual Representation of the Search Ellipsoid"
}
}
GuidoFiller ev1_2 {
-height 0.2
}
}
}
