package require java
proc graphicalEllipsoid { formHandle } {
$formHandle hide
set visualiserForm [java::new com.surpac.gui.VisualiserForm 1]
$visualiserForm setMajorSemi [$formHandle getField semimajfact]
$visualiserForm setMajorMinor [$formHandle getField minorfact]
$visualiserForm setMaxDistance [$formHandle getField majordist]
$visualiserForm setBearing [$formHandle getField majorbrg]
$visualiserForm setDip [$formHandle getField tilt]
$visualiserForm setPlunge [$formHandle getField dip]
$visualiserForm interactFrame
if {[$visualiserForm getReturnStatus] == 1 } {
$formHandle setField semimajfact [$visualiserForm getMajorSemi]
$formHandle setField minorfact [$visualiserForm getMajorMinor]
$formHandle setField majordist [$visualiserForm getDist]
$formHandle setField majorbrg [$visualiserForm getBrg]
$formHandle setField tilt [$visualiserForm getDip]
$formHandle setField dip [$visualiserForm getPlunge]
}
$visualiserForm destroyFrame
$formHandle show
}
GuidoForm frm20090 {
-default_buttons
-label "Define the Search Ellipsoid"
-layout BoxLayout Y_AXIS
GuidoPanel frm20090_10 {
-layout CentreLineLayout
GuidoPanel frm20090_9 {
-layout CentreLineLayout
}
}
GuidoPanel frm20090_13 {
-layout BoxLayout X_AXIS
GuidoPanel frm20090_11 {
-border etched true
-layout CentreLineLayout
-border etched true
-label "Ellipsoid Orientation"
GuidoField majorbrg {
-display_length 6
-label "Bearing of major axis"
-format double
-high_bound 360.000000
-low_bound 0.000000
-max_length 6
-null false
-translate upper
}
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
-translate upper
}
GuidoField tilt {
-display_length 6
-font_style bold
-format double
-high_bound 90.000000
-label "Tilt about major axis"
-low_bound -90.000000
-max_length 6
-next_focus semimajfact
-null false
-translate upper
}
}
GuidoFiller frm20090_14 {
-width 1
}
GuidoPanel frm20090_12 {
-border etched true
-layout CentreLineLayout
-label "Anisotropy Factors"
GuidoField semimajfact {
-display_length 5
-font_style bold
-format double
-label Semi-major
-max_length 5
-next_focus minorfact
-null false
-translate upper
-tip "The ratio of the Major axis to the Semi-major axis"
}
GuidoField minorfact {
-display_length 5
-font_style bold
-format double
-label Minor
-max_length 5
-null false
-translate upper
-tip "The ratio of the Major axis to the Minor axis"
-next_focus majordist
}
}
GuidoFiller frm20090_14 {
-width 1
}
}
GuidoFiller frm20090_15 {
-height 1
}
GuidoPanel frm20090_16 {
-layout CentreLineLayout
GuidoField majordist {
-label "Search distance along major axis"
-display_length 8
-format double
-max_length 16
-null false
-translate upper
}
}
GuidoPanel evPanel {
-layout BoxLayout Y_AXIS
GuidoFiller ev1_1 {
-height 0.2
}
GuidoPanel evPanel2 {
-layout FlowLayout
GuidoButton visualiser {
-caption "Ellipsoid Visualiser"
-action valueChanged {[graphicalEllipsoid $frm20090]}
-tip "A Visual Representation of the Search Ellipsoid"
}
}
GuidoFiller ev1_2 {
-height 0.2
}
}
}
