package require java
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 dip]
$visualiserForm setPlunge [$formHandle getField tilt]
$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 getDip]
$formHandle setField tilt [$visualiserForm getPlunge]
}
$visualiserForm destroyFrame
$formHandle show
}
GuidoForm frm00149 {
-default_buttons
-label "Polygon Kriging"
-layout BoxLayout Y_AXIS
-tip "00149_TIP_001"
GuidoPanel frm00149_40 {
-layout BoxLayout Y_AXIS
GuidoPanel frm00149_38 {
-border etched true
-label "Define the sample population"
-layout CentreLineLayout
GuidoFileBrowserField location {
-display_length 20
-font_style bold
-format none
-label "Location"
-file_mask *.str
-link id
-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 10
-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 500
-label "Desc. Field"
-low_bound 1
-max_length 3
-next_focus krig_type
-null false
-tip "The input file must contain the data values in a description field."
}
}
GuidoPanel frm00149_39 {
-border etched true
-label "Define the polygons files"
-layout CentreLineLayout
GuidoFileBrowserField poly_loc {
-display_length 20
-font_style bold
-format none
-label "Location"
-max_length "FIO_MAX_LOCATION_LENGTH"
-next_focus poly_rng
-tip "00149_TIP_006"
-file_mask *.str
-link poly_rng
}
GuidoField poly_rng {
-display_length 20
-font_style bold
-format range
-label "ID range"
-max_length 32
-next_focus debug
-null false
-tip "00149_TIP_006"
}
GuidoCheckBox debug {
-default false
-font_style bold
-label "Debugging"
-selected_value Y
-tip "00149_TIP_008"
-unselected_value N
}
}
GuidoFiller frm00149_41 {
-width 1
}
}
GuidoPanel frm00149_43 {
-border etched true
-label "Define the variogram parameters"
-layout BoxLayout X_AXIS
GuidoPanel frm00149_36 {
-layout CentreLineLayout
GuidoField bng {
-display_length 6
-label "Bearing of major axis"
-format double
-high_bound 360.000000
-low_bound 0.000000
-max_length 6
-null false
-tip "00141_TIP_009"
}
GuidoField dip {
-display_length 6
-font_style bold
-format double
-high_bound 90.000000
-label "Dip of major axis"
-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 360.000000
-label "Tilt about major axis"
-low_bound -360.000000
-max_length 6
-next_focus semi_major
-null false
-tip "00141_TIP_009"
}
}
GuidoFiller filler_width_1 {
-width 1
}
GuidoPanel frm00149_46 {
-layout BoxLayout Y_AXIS
GuidoPanel frm00149_45 {
-layout CentreLineLayout
GuidoLabel  anisotropy {
-label "Anisotropy factors"
}
GuidoFiller clfill {
}
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 frm00149_47 {
-width 1
}
}
GuidoPanel interpolation {
-layout BoxLayout Y_AXIS
-label "Define the interpolation parameters"
-border etched true
GuidoPanel frm00149_51 {
-layout BoxLayout X_AXIS
GuidoField min {
-display_length 4
-font_style bold
-format integer
-high_bound 50
-label "No. of samples to krig a block:  Min."
-low_bound 1
-max_length 2
-next_focus max
-null false
-tip "00141_TIP_013"
}
GuidoFiller frm00149_52 {
-width 1
}
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."
}
}
GuidoPanel frm00149_53 {
-layout CentreLineLayout
GuidoField rmax {
-display_length 16
-format double
-label "Max search distance for major axis"
-max_length 16
-null false
-tip "00149_TIP_016"
}
GuidoField zlimit {
-display_length 16
-label "Max vertical search distance"
-format double
-max_length 16
-null false
-default 9999
-tip "00149_TIP_017"
}
}
GuidoPanel frm00149_34 {
-font_style bold
-layout BoxLayout X_AXIS
-tip "00149_TIP_018"
GuidoLabel search_type {
-label "Ellipsoidal or Octant search "
}
GuidoButtonGroupPanel search {
-layout BoxLayout X_AXIS
GuidoRadioButton frm00149_32 {
-caption Ellipsoidal
-default true
-selected_value E
-height 1
}
GuidoRadioButton frm00149_33 {
-caption Octant
-selected_value O
-height 1
}
}
}
GuidoPanel frm00149_57 {
-layout BoxLayout X_AXIS
GuidoField max_adj {
-default 2
-dependency {"[ $search getCurrentValue]" == "O"}
-display_length 3
-font_style bold
-format integer
-high_bound 4
-label "Max adjacent octants with no samples  "
-low_bound 2
-max_length 2
-next_focus ndy
-null false
-tip "00141_TIP_018"
}
}
GuidoPanel discretization {
-layout BoxLayout X_AXIS
GuidoLabel frm00149_24 {
-label "Discretization points"
}
GuidoFiller filler_width_3 {
-width 3
}
GuidoField ndy {
-display_length 3
-font_style bold
-format integer
-high_bound 125
-low_bound 1
-max_length 3
-next_focus ndx
-null false
-label "Y "
-tip "00149_TIP_020"
}
GuidoFiller frm00149_58 {
-width 1
}
GuidoField ndx {
-display_length 3
-font_style bold
-format integer
-high_bound 125
-low_bound 1
-max_length 3
-null false
-label "X "
-tip "00149_TIP_020"
}
}
}
GuidoPanel evPanel {
-layout BoxLayout Y_AXIS
GuidoFiller ev1_1 {
-height 0.2
}
GuidoPanel evPanel2 {
-layout FlowLayout
GuidoButton visualiser {
-caption "Ellipsoid Visualiser"
-action valueChanged {[graphicalEllipsoid $frm00149]}
-tip "A Visual Representation of the Search Ellipsoid"
}
}
GuidoFiller ev1_2 {
-height 0.2
}
}
}
