GuidoForm GraphicsDepth {
-default_buttons
-label "Graphics Depth Perception"
-layout BoxLayout Y_AXIS
-defaults_management false
set buffer [ GuidoExecServer CalculateGraphicsDepth { } ]
set here [ GuidoGetParamBufferValue $buffer hither ]
set there [ GuidoGetParamBufferValue $buffer yonder ]
set gravity_x [ GuidoGetParamBufferValue $buffer gravity_x ]
set gravity_y [ GuidoGetParamBufferValue $buffer gravity_y ]
set gravity_z [ GuidoGetParamBufferValue $buffer gravity_z ]
set min_x [ GuidoGetParamBufferValue $buffer min_x ]
set min_y [ GuidoGetParamBufferValue $buffer min_y ]
set min_z [ GuidoGetParamBufferValue $buffer min_z ]
set max_x [ GuidoGetParamBufferValue $buffer max_x ]
set max_y [ GuidoGetParamBufferValue $buffer max_y ]
set max_z [ GuidoGetParamBufferValue $buffer max_z ]
GuidoPanel graphics_data {
-label "Graphics Information"
-font_style bold
-layout BoxLayout Y_AXIS
-border etched true
GuidoPanel grav_inf {
-layout BoxLayout X_AXIS
GuidoLabel inf1 {
-label "Centre of Data  :"
-display_length 12
}
GuidoLabel grav_y_label {
-label "Y"
}
GuidoField grav_y {
-format double
-input false
-decimals 2
-default $gravity_y
-display_length 8
}
GuidoFiller f2 {
-width 1
}
GuidoLabel grav_x_label {
-label "X"
}
GuidoField grav_x {
-display_length 8
-input false
-format double
-decimals 2
-default $gravity_x
}
GuidoFiller f2 {
-width 1
}
GuidoLabel grav_z_label {
-label "Z"
}
GuidoField grav_z {
-display_length 8
-input false
-format double
-decimals 2
-default $gravity_z
}
GuidoFiller f3 {
-width 1
}
}
GuidoPanel min_inf {
-layout BoxLayout X_AXIS
GuidoLabel inf2 {
-label "Minimum Extents  :"
-display_length 12
}
GuidoLabel min_y_label {
-label "Y"
}
GuidoField min_extent_y {
-format double
-input false
-decimals 2
-default $min_y
-display_length 8
}
GuidoFiller f4 {
-width 1
}
GuidoLabel min_x_label {
-label "X"
}
GuidoField min_extent_x {
-display_length 8
-input false
-format double
-decimals 2
-default $min_x
}
GuidoFiller f5 {
-width 1
}
GuidoLabel min_z_label {
-label "Z"
}
GuidoField min_extent_z {
-display_length 8
-input false
-format double
-decimals 2
-default $min_z
}
GuidoFiller f6 {
-width 1
}
}
GuidoPanel max_inf {
-layout BoxLayout X_AXIS
GuidoLabel inf3 {
-label "Maximum Extents  :"
-display_length 12
}
GuidoLabel max_y_label {
-label "Y"
}
GuidoField max_extent_y {
-format double
-input false
-decimals 2
-default $max_y
-display_length 8
}
GuidoFiller f7 {
-width 1
}
GuidoLabel max_x_label {
-label "X"
}
GuidoField max_extent_x {
-display_length 8
-input false
-format double
-decimals 2
-default $max_x
}
GuidoFiller f8 {
-width 1
}
GuidoLabel max_z_label {
-label "Z"
}
GuidoField max_extent_z {
-display_length 8
-input false
-format double
-decimals 2
-default $max_z
}
GuidoFiller f9 {
-width 1
}
}
}
GuidoPanel plane_data {
-label "Enter the percentage for the depth planes relative to the data"
-font_style bold
-layout CentreLineLayout
-border etched true
-width 30
GuidoField hither {
-decimals 2
-label "% in front"
-format double
-default $here
-display_length 8
-max_length 20
-null false
-translate none
}
GuidoField yonder {
-decimals 2
-label "% behind"
-display_length 8
-default $there
-max_length 20
-format double
-null false
-translate none
}
}
}
$yonder requestFocus
set status ""
$GraphicsDepth interact
set status [ $GraphicsDepth getStatus ]
if { $status == "apply" } {
GuidoApp app "GRAPHICS DEPTH"
$app setParam toggle "on"
$app setParam hither [$hither getCurrentValue]
$app setParam yonder [$yonder getCurrentValue]
$app invoke
$app destroy
} else {
GuidoApp app "GRAPHICS DEPTH"
$app setParam toggle "off"
$app invoke
$app destroy
}
$GraphicsDepth hide
$GraphicsDepth destroy
}
