set DYNAMIC_PLANE [GuidoMessage translate PLANES_DYNAMIC]
proc initScales {plot_plane} {
global sheet
global orient
global unit
global drawsp
global include_plan_strip
global plan_position
global xscale
global yscale
set planEnabled [$include_plan_strip getCurrentValue]
set buffer [ GuidoExecServer UpdatePlottingDrawAreas [subst {sheet = "[$sheet getCurrentValue]"
orient = "[$orient getCurrentValue]"
unit = "[$unit getCurrentValue]"
drawsp = "[$drawsp getCurrentValue]"
include_plan_strip = "$planEnabled"
plan_position = "[$plan_position getCurrentValue]"} ] ]
$xscale setCurrentValue [ GuidoGetParamBufferValue $buffer "xscale" ]
$yscale setCurrentValue [ GuidoGetParamBufferValue $buffer "yscale" ]
$plot_plane setInputAllowed 0 false
}
proc batchedSectionChange {} {
global create_batched_sections
global current_plane_name
global create_batch_sections_panel2a
global sections_mand_fields_panel
global extra_section_count
global reverse_section_direction
global create_batch_sections_panel
global DYNAMIC_PLANE
if {"[$create_batched_sections getCurrentValue]" == "Yes"} {
$create_batch_sections_panel setInputAllowed true
} else {
$create_batch_sections_panel setInputAllowed false
}
if {"[$create_batched_sections getCurrentValue]" == "Yes" && "[$current_plane_name getCurrentValue]" != "$DYNAMIC_PLANE"} {
$create_batch_sections_panel2a setInputAllowed true
} else {
$create_batch_sections_panel2a setInputAllowed false
}
if {"[$create_batched_sections getCurrentValue]" == "Yes" && "[$current_plane_name getCurrentValue]" == "$DYNAMIC_PLANE"} {
$sections_mand_fields_panel setInputAllowed true
$extra_section_count setInputAllowed true
$reverse_section_direction setInputAllowed true
} else {
$sections_mand_fields_panel setInputAllowed false
$extra_section_count setInputAllowed false
$reverse_section_direction setInputAllowed false
}
}
proc scaleAndDrawAreasCallback {resetMainDrawAreas resetPlanDrawAreas} {
global sheet
global orient
global unit
global minscale
global minscale_label
global drawsp
global include_plan_strip
global plan_draw
global plan_position
if {![info exists orient]} {
return
}
set planEnabled [$include_plan_strip getCurrentValue]
set buffer [ GuidoExecServer UpdatePlottingDrawAreas [subst {sheet = "[$sheet getCurrentValue]"
orient = "[$orient getCurrentValue]"
unit = "[$unit getCurrentValue]"
drawsp = "[$drawsp getCurrentValue]"
include_plan_strip = "$planEnabled"
plan_position = "[$plan_position getCurrentValue]"} ] ]
set status [GuidoGetParamBufferValue $buffer "status"]
if {$status >= 0} {
$minscale setCurrentValue [ GuidoGetParamBufferValue $buffer "minscale" ]
$minscale_label setCurrentValue [ GuidoGetParamBufferValue $buffer "minscale_label" ]
if {$resetMainDrawAreas == "true"} {
$drawsp removeAllItems
set nMainDrawAreas [ GuidoGetParamBufferValue $buffer "mainDrawAreaCount" ]
for {set i 0} {$i < $nMainDrawAreas} {incr i} {
set drawArea [ GuidoGetParamBufferValue $buffer "mainDrawArea($i)" ]
$drawsp addItem "$drawArea"
}
if {[$drawsp getItemCount] > 0} {
$drawsp setCurrentValue [$drawsp getItemAt 0]
}
}
if {$resetPlanDrawAreas == "true"} {
$plan_draw removeAllItems
if {$planEnabled == "Yes"} {
set nPlanDrawAreas [ GuidoGetParamBufferValue $buffer "planDrawAreaCount" ]
for {set i 0} {$i < $nPlanDrawAreas} {incr i} {
set drawArea [ GuidoGetParamBufferValue $buffer "planDrawArea($i)" ]
$plan_draw addItem "$drawArea"
}
if {[$plan_draw getItemCount] > 0} {
$plan_draw setCurrentValue [$plan_draw getItemAt 0]
} else {
$plan_draw setCurrentValue ""
}
}
}
}
}
proc scaleMethodCallback {} {
global fit
global manual_scale_panel
global xscale
global yscale
if {[info exists fit] && "[$fit getCurrentValue]" == "Manual Scale"} {
global xref_label
global yref_label
$manual_scale_panel setVisible true
$xscale setInputAllowed true
$yscale setInputAllowed true
set ref_abbrev [ GuidoSSIOption get "ref abbrev" ]
set nonref_abbrev [ GuidoSSIOption get "non ref abbrev" ]
set z_abbrev [ GuidoSSIOption get "z abbrev" ]
set buffer [GuidoExecServer GetPlottingViewType {}]
set plotViewType [GuidoGetParamBufferValue $buffer "plotViewType"]
if {$plotViewType == "plan"} {
$xref_label setCurrentValue $nonref_abbrev
$yref_label setCurrentValue $ref_abbrev
} elseif {$plotViewType == "section"} {
$xref_label setCurrentValue $nonref_abbrev
$yref_label setCurrentValue $z_abbrev
} elseif {$plotViewType == "long section"} {
$xref_label setCurrentValue $ref_abbrev
$yref_label setCurrentValue $z_abbrev
}
scaleAndDrawAreasCallback "false" "false"
} else {
$manual_scale_panel setVisible false
$xscale setInputAllowed false
$yscale setInputAllowed false
}
}
proc mainDrawAreaChangedCallback {} {
global drawsp
global include_plan_strip
global plan_draw
if {![info exists include_plan_strip]} {
return
}
set mainDraw [$drawsp getCurrentValue]
set planStripEnabled [$include_plan_strip getCurrentValue]
if {$planStripEnabled == "Yes"} {
set resetPlanDrawAreas "true"
} else {
set resetPlanDrawAreas "false"
}
scaleAndDrawAreasCallback "false" $resetPlanDrawAreas
}
set noteTabIndex 0
set planStripTabIndex 1
set batchSectionsTabIndex 2
proc updateTabTitle {checkBox tabName enabledMsg disabledMsg} {
global content_tabs
global noteTabIndex
global planStripTabIndex
global batchSectionsTabIndex
global section_ref_corner_string
global section_ref_corner_source
global create_batched_sections
if {"$tabName" == "noteFile"} {
set tabIndex $noteTabIndex
} elseif {"$tabName" == "planStrip"} {
set tabIndex $planStripTabIndex
} elseif {"$tabName" == "batchSections"} {
set tabIndex $batchSectionsTabIndex
if {[$section_ref_corner_source getCurrentValue] == "String file" && [$create_batched_sections getCurrentValue] != "No"} {
$section_ref_corner_string setInputAllowed true
} else {
$section_ref_corner_string setInputAllowed false
}
} else {
return
}
if {[$checkBox getCurrentValue] == "Yes"} {
set title [GuidoMessage translate $enabledMsg]
$section_ref_corner_string setNullAllowed false
} else {
set title [GuidoMessage translate $disabledMsg]
$section_ref_corner_string setNullAllowed true
}
$content_tabs setTitleAt $tabIndex $title
}
set optional_panels_init 0
proc updateOptionalPanels {} {
global optional_panels_init
if {$optional_panels_init == 1} {
return
} else {
set optional_panels_init 1
}
global plot_content_panel
global content_tabs
global plane_mode_error_panel
global noplane_panel
global viewoffsection_panel
global plan_disabled_elevationsection_panel
global include_note
global include_plan_strip
global create_batched_sections
global noteTabIndex
global planStripTabIndex
global batchSectionsTabIndex
set enabled_plan_strips "false"
set enabled_batched_sections "false"
set disabled_noplane_panel "false"
set disabled_viewoffsection_panel "false"
set disabled_elevationsection_panel "false"
set initial_include_plan [$include_plan_strip getCurrentValue]
set include_plan "No"
set errors_panel "false"
set initial_batch_sections [$create_batched_sections getCurrentValue]
set include_batch_sections "No"
set buffer [GuidoExecServer GetPlaneMode {}]
if {[GuidoGetParamBufferValue $buffer "planeMode"] == "on"} {
if {[GuidoGetParamBufferValue $buffer "cameraPerpToPlane"] == "yes"} {
if {[GuidoGetParamBufferValue $buffer "elevationSection"] == "no"} {
set include_plan $initial_include_plan
set enabled_plan_strips "true"
} else {
set errors_panel "true"
set disabled_elevationsection_panel "true"
}
set include_batch_sections $initial_batch_sections
set enabled_batched_sections "true"
} else {
set errors_panel "true"
set disabled_viewoffsection_panel "true"
}
} else {
set errors_panel "true"
set disabled_noplane_panel "true"
}
if {"$errors_panel" == "false"} {
$plane_mode_error_panel setVisible "false"
} else {
$noplane_panel setVisible $disabled_noplane_panel
$viewoffsection_panel setVisible $disabled_viewoffsection_panel
$plan_disabled_elevationsection_panel setVisible $disabled_elevationsection_panel
}
updateTabTitle $include_note "noteTab" "AUTOPLOT_NOTE_FILE_ON_LABEL" "AUTOPLOT_NOTE_FILE_OFF_LABEL"
if {"$enabled_plan_strips" == "true"} {
if {$initial_include_plan != $include_plan} {
$include_plan_strip setCurrentValue $include_plan
}
updateTabTitle $include_plan_strip "planStrip" "AUTOPLOT_PLAN_STRIP_ON_LABEL" "AUTOPLOT_PLAN_STRIP_OFF_LABEL"
} else {
$content_tabs removeTabAt $planStripTabIndex
set batchSectionsTabIndex $planStripTabIndex
}
if {"$enabled_batched_sections" == "true"} {
if {$initial_batch_sections != $include_batch_sections} {
$create_batched_sections setCurrentValue $include_batch_sections
}
updateTabTitle $create_batched_sections "batchSections" "AUTOPLOT_BATCH_SECTIONS_ON_LABEL" "AUTOPLOT_BATCH_SECTIONS_OFF_LABEL"
} else {
$content_tabs removeTabAt $batchSectionsTabIndex
}
}
proc initRefCorner {} {
global ref_corner_panel
set buffer [GuidoExecServer GetPlottingViewType {}]
if {"[GuidoGetParamBufferValue $buffer "plotViewType"]" == "oblique"} {
$ref_corner_panel setVisible false
} else {
$ref_corner_panel setVisible true
}
}
set lastSelectedPlanGrid ""
proc initPlanStripGridParams {} {
global plan_grid
global plan_xgli
global plan_ygli
global plan_xline
global plan_yline
global xscale
global yscale
global unit
global fit
global minscale
global lastSelectedPlanGrid
global include_plan_strip
if {"[$include_plan_strip getCurrentValue]" == "No"} {
return
}
if {"[$fit getCurrentValue]" == "Fit to Screen"} {
set x_scale $minscale
set y_scale $minscale
} else {
set x_scale $xscale
set y_scale $yscale
}
serverSavePlanStripGridParams $lastSelectedPlanGrid
set lastSelectedPlanGrid "[$plan_grid getCurrentValue]"
set buffer [GuidoExecServer GetPlottingGridParams [subst {map = "autoplot plan"
grid_defaults_key = "LastPlanGrid"
grid = "[$plan_grid getCurrentValue]"
xscale = "[$x_scale getCurrentValue]"
yscale = "[$y_scale getCurrentValue]"
units = "[$unit getCurrentValue]"} ] ]
$plan_xgli setCurrentValue [GuidoGetParamBufferValue $buffer "xgli_val"]
$plan_ygli setCurrentValue [GuidoGetParamBufferValue $buffer "ygli_val"]
$plan_xline setCurrentValue [GuidoGetParamBufferValue $buffer "xline_val"]
$plan_yline setCurrentValue [GuidoGetParamBufferValue $buffer "yline_val"]
}
proc serverSavePlanStripGridParams {gridName} {
global plan_xgli
global plan_ygli
global plan_xline
global plan_yline
global xscale
global yscale
global unit
global include_plan_strip
if {"[$include_plan_strip getCurrentValue]" == "No"} {
return
}
set buffer [GuidoExecServer GetPlottingGridParams [subst {forceSaveHack = "yes"
map = "autoplot plan"
grid_defaults_key = "LastPlanGrid"
grid = "$gridName"
xgli = "[$plan_xgli getCurrentValue]"
ygli = "[$plan_ygli getCurrentValue]"
xline = "[$plan_xline getCurrentValue]"
yline = "[$plan_yline getCurrentValue]"} ] ]
return 1
}
proc initGrids {} {
global grid
global plan_grid
set buffer [GuidoExecServer GetPlottingViewType {}]
set plotViewType [GuidoGetParamBufferValue $buffer "plotViewType"]
if {"$plotViewType" == "oblique"} {
$grid setCurrentValue "NOGR"
$plan_grid setCurrentValue "NOGR"
$grid setInputAllowed false
$plan_grid setInputAllowed false
} else {
$grid setInputAllowed true
$plan_grid setInputAllowed true
initPlanStripGridParams
}
}
proc validateReferenceString { section_ref_corner_string } {
global create_batched_sections
set valid 1
if {[$section_ref_corner_string getCurrentValue] != "" && [$create_batched_sections getCurrentValue] != "No"} {
set buffer [GuidoExecServer validateRefString [subst {section_ref_corner_string = [$section_ref_corner_string getCurrentValue]}]]
set return_value [GuidoGetParamBufferValue $buffer return_value]
if {$return_value < 0} {
set valid 0
}
}
return $valid
}
proc validatePlanDrawArea {plan_draw} {
global include_plan_strip
if {"[$include_plan_strip getCurrentValue]" == "Yes"} {
if {"[$plan_draw getCurrentValue]" == ""} {
GuidoMessage warning AUTOPLOT_NO_PLAN_STRIP_DRAW_AREA_ERR
return 0
} else {
return 1
}
} else {
return 1
}
}
proc updateNcols {legendElements nelements ncolumns nrows} {
for {set row_idx 0} {$row_idx < [$legendElements getRowCount]} {incr row_idx} {
set nelems [$nelements getCurrentValue $row_idx]
if {$nelems > "" && ![string match "<html>*" $nelems]} {
set rows [$nrows getCurrentValue $row_idx]
if {$rows < 1} {
$nrows setCurrentValue $row_idx 1
set rows 1
}
if {$rows > $nelems} {
$nrows setCurrentValue $row_idx $nelems
set rows $nelems
}
set cols [expr int(double($nelems) / double($rows) + 0.999)]
$ncolumns setCurrentValue $row_idx $cols
}
}
}
proc updateCheckBoxes {legendElements legend_name include_legend other_legendElements other_legend_name other_include_legend} {
for {set row_idx 0} {$row_idx < [$legendElements getRowCount]} {incr row_idx} {
set name [$legend_name getCurrentValue $row_idx]
for {set row_idx2 0} {$row_idx2 < [$other_legendElements getRowCount]} {incr row_idx2} {
if {[$other_legend_name getCurrentValue $row_idx2] == $name} {
$other_include_legend setCurrentValue $row_idx2 [$include_legend getCurrentValue $row_idx]
}
}
}
}
global updating
set updating 0
proc updateYpos {include_legend legendElements nelements ncolumns nrows legend_item_height legend_margin font_height x_position y_position} {
updateNcols $legendElements $nelements $ncolumns $nrows
global updating
if {$updating == 1} {
return
}
set updating 1
set height 0
for {set row_idx 0} {$row_idx < [$legendElements getRowCount]} {incr row_idx} {
if {[$include_legend getCurrentValue $row_idx] == "yes"} {
$y_position setCurrentValue $row_idx $height
set rows [$nrows getCurrentValue $row_idx]
set height [expr $height + [$legend_margin getCurrentValue] * ($rows + 3) + [$legend_item_height getCurrentValue] * $rows + [$font_height getCurrentValue]]
}
}
set updating 0
}
proc setXScaleLabel {} {
global uniform_scale
global xscale_label
if {![info exists xscale_label] || ![info exists uniform_scale]} {
return
}
if {"[$uniform_scale getCurrentValue]" == "Yes"} {
$xscale_label setCurrentValue "Scale"
} else {
$xscale_label setCurrentValue "X scale"
}
}
proc select_all {table field_in state} {
set rowCount [$table getRowCount]
for {set i 0} {$i < $rowCount} {incr i} {
$field_in setCurrentValue $i $state
}
$field_in setCurrentValue 0 yes
}
GuidoForm frm01120 {
-default_buttons
-label "Autoplot Presentation Parameters"
-legacy_validation
-tip 01120_TIP_0
GuidoTabbedPane main_tabbed_pane {
GuidoPanel tab1 {
-label Main
-layout GridLayout 1 2
GuidoPanel sheet_setup_panel {
-border etched true
-label "Sheet setup"
-layout BoxLayout Y_AXIS
-width 32
GuidoPanel sheet_layout_panel {
-layout CentreLineLayout
GuidoField outputPrefix {
-display_length 20
-format none
-label "Output file name"
-max_length 256
-translate none
-tip PLT_OUTPUT_FILE_PREFIX_TIP
}
GuidoFiller prefixFill1 {
-height 0.5
}
GuidoFiller prefixFill2 {
-height 0.5
}
GuidoComboBox sheet {
-action valueChanged {[scaleAndDrawAreasCallback "true" "true"]}
-action focusGained {[scaleAndDrawAreasCallback "true" "true"]}
-display_length 9
-format none
-label "Sheet size"
-max_length 2
-no_mlt
-null false
-tip 01120_TIP_4
-value_in A0 A1 A2 A3 A4 A5 B0 B1 B2 B3 B4 B5 B6 E3 L2
}
GuidoLabel orient_label {
-label "Orientation"
-tip 01120_TIP_5
}
GuidoButtonGroupPanel orient {
-layout BoxLayout X_AXIS
-action valueChanged {[scaleAndDrawAreasCallback "false" "false"]}
GuidoRadioButton frm01120_15 {
-caption "Landscape"
-default true
-selected_value Landscape
}
GuidoRadioButton frm01120_16 {
-caption "Portrait"
-selected_value Portrait
}
}
GuidoLabel unit_label {
-tip 01120_TIP_9
-label "Data units"
}
GuidoButtonGroupPanel unit {
-layout BoxLayout X_AXIS
-action valueChanged {[scaleAndDrawAreasCallback "false" "false"]}
-action valueChanged {[initPlanStripGridParams]}
GuidoRadioButton frm01120_23 {
-caption "Metric"
-default true
-selected_value M
}
GuidoRadioButton frm01120_24 {
-caption "Imperial"
-selected_value I
}
}
GuidoFiller scale_method_filler1 {
-height 1
}
GuidoFiller scale_method_filler2 {
-height 1
}
GuidoButtonGroupPanel fit {
-action initial {[scaleMethodCallback]}
-layout BoxLayout Y_AXIS
-label "Scale method"
-action valueChanged {[scaleMethodCallback]}
GuidoRadioButton frm01120_5 {
-caption "Fit to Screen"
-selected_value "Fit to Screen"
}
GuidoRadioButton frm01120_6 {
-caption "Manual Scale"
-selected_value "Manual Scale"
}
GuidoRadioButton frm01120_7 {
-caption "Selection Box"
-selected_value "Selection Box"
}
}
GuidoCheckBox autogroup {
-default true
-label "Auto-group Elements"
-selected_value Yes
-unselected_value No
-tip AUTOPLOT_AUTOGROUP_TIP
}
GuidoFiller autogroup {
-height 0.1
}
}
GuidoFiller scale_panel_filler1 {
-height 1
}
GuidoPanel scale_panel {
-layout BoxLayout Y_AXIS
GuidoPanel manual_scale_panel {
-layout BoxLayout Y_AXIS
-border etched true
-label "Manual scale options"
-width 39
GuidoPanel scale_options_panel {
-layout BoxLayout Y_AXIS
GuidoPanel scale_options_left_panel {
-layout CentreLineLayout
GuidoLabel min_scale_label {
-label AUTOPLOT_MINIMUM_SCALE_LABEL
}
GuidoLabel minscale_label {
-font_style bold
-tip AUTOPLOT_MIN_REQD_SCALE_TIP
}
}
GuidoPanel xy_scale_panel {
-layout CentreLineLayout
GuidoLabel uniform_scale_label {
-label AUTOPLOT_UNIFORM_SCALE_LABEL
}
GuidoCheckBox uniform_scale {
-action focusGained {[setXScaleLabel]}
-action valueChanged {[setXScaleLabel]}
-default true
-selected_value "Yes"
-tip AUTOPLOT_UNIFORM_SCALE_TIP
-unselected_value "No"
}
GuidoFiller scale_options_filler {
-height 0.5
}
GuidoPanel xy_scale_panel2 {
-layout CentreLineLayout
GuidoLabel xscale_label {
-label "Scale"
}
GuidoField xscale {
-action focusGained {[initPlanStripGridParams]}
-action valueChanged {[initPlanStripGridParams]}
-display_length 8
-format double
-high_bound 999999999
-low_bound 0.01
-max_length 10
-null false
-tip 01120_TIP_2
-translate upper
}
GuidoField yscale {
-dependency {"[$uniform_scale getCurrentValue]" == "No"}
-action focusGained {[initPlanStripGridParams]}
-action valueChanged {[initPlanStripGridParams]}
-label "Y scale"
-display_length 8
-format double
-high_bound 999999999
-low_bound 0.01
-max_length 10
-null false
-tip 01120_TIP_3
-translate upper
}
}
GuidoLabel ref_label {
-label "Lower left corner coordinate"
}
GuidoFiller ref_label_filler1 {
-height 0.5
}
GuidoFiller ref_label_filler2 {
-height 0.5
}
GuidoPanel scale_options_panel_xxx {
-layout CentreLineLayout
GuidoLabel xref_label {
-label "X"
}
GuidoField xref {
-display_length 8
-format double
-max_length 10
-tip 01120_TIP_10
-translate upper
}
GuidoLabel yref_label {
-label "Y"
}
GuidoField yref {
-display_length 8
-format double
-max_length 10
-tip 01120_TIP_11
-translate upper
}
GuidoLabel padding {
-label "Y scale"
-visible false
}
}
}
}
}
}
GuidoField minscale {
-visible false
-display_length 8
-format double
-high_bound 999999999
-low_bound 0.0
-max_length 32
-null true
-translate upper
}
}
GuidoPanel plot_content_panel {
-border etched true
-label "Plot content"
-layout BoxLayout Y_AXIS
GuidoPanel main_content_panel {
-layout BoxLayout Y_AXIS
GuidoPanel sheet_content_panel {
-layout CentreLineLayout
-action initial {[initGrids]}
GuidoComboBox drawsp {
-action focusGained {[mainDrawAreaChangedCallback]}
-action valueChanged {[mainDrawAreaChangedCallback]}
-display_length 20
-format none
-label "Drawing area"
-max_length 32
-no_mlt
-null false
-tip 01120_TIP_6
-translate upper
-value_in DEFAULT
-default DEFAULT
}
GuidoComboBox grid {
-display_length 20
-format none
-label "Grid"
-max_length 4
-no_mlt
-tip 01120_TIP_7
-translate upper
}
GuidoComboBox border_id {
-display_length 20
-format none
-label "Border"
-max_length 4
-no_mlt
-tip PLT_DRAW_AREA_BORDER_TIP
-translate upper
}
GuidoComboBox title {
-display_length 20
-format none
-label "Title block"
-max_length 4
-no_mlt
-tip 01120_TIP_8
-translate upper
}
}
GuidoFiller content_filler1 {
-height 0.5
}
GuidoPanel image_plot_panel {
-label "Plot data contents"
-border etched true
-layout BoxLayout Y_AXIS
-width 36.7
GuidoButtonGroupPanel image_plot {
-layout BoxLayout Y_AXIS
GuidoRadioButton vector_plot {
-caption "Vector data, no surfaces"
-selected_value "No"
-tip AUTOPLOT_VECTOR_DATA_TIP
-default true
}
GuidoRadioButton raster_plot {
-caption "Raster data, render surfaces"
-selected_value "Yes"
-tip AUTOPLOT_RASTER_DATA_TIP
}
}
GuidoPanel include_image_panel {
-layout CentreLineLayout
GuidoField dpi {
-dependency {"[$image_plot getCurrentValue]" == "Yes"}
-label "Raster resolution (DPI)"
-display_length 6
-format integer
-high_bound 600
-low_bound 100
-max_length 4
-null false
-default 100
-tip PLT_IMAGE_RESOLUTION_TIP
}
}
}
}
GuidoFiller scale_filler3 {
-height 0.5
}
GuidoPanel optional_content_panel {
-action initial {[updateOptionalPanels]}
-label "Optional content"
-layout BoxLayout Y_AXIS
-border etched true
GuidoTabbedPane content_tabs {
GuidoPanel note_file_option_panel {
-layout BoxLayout Y_AXIS
-label "Note file"
-width 35
-height 12
GuidoPanel note_check_panel {
-layout CentreLineLayout
GuidoCheckBox include_note {
-action valueChanged {[updateTabTitle $include_note "noteFile" "AUTOPLOT_NOTE_FILE_ON_LABEL" "AUTOPLOT_NOTE_FILE_OFF_LABEL"]}
-default false
-label "Include note file"
-next_focus note_file
-selected_value Yes
-tip 01120_TIP_12
-unselected_value No
}
}
GuidoFiller note_filler {
-height 0.5
}
GuidoPanel include_note_panel {
-layout CentreLineLayout
-dependency {"[ $include_note getCurrentValue]" == "Yes"}
GuidoFileBrowserField note_file {
-dependency {"[ $include_note getCurrentValue]" == "Yes"}
-display_length 17.5
-extension false
-file_mask *.not
-format none
-label "Note file name"
-max_length 256
-next_focus note_entity
-null true
-tip 01120_TIP_13
-translate none
-file_access read
}
GuidoComboBox note_entity {
-dependency {"[ $include_note getCurrentValue]" == "Yes"}
-display_length 15
-exclusive true
-format none
-label "Note entity"
-max_length 256
-next_focus frm01120_89
-no_mlt
-tip 01120_TIP_14
-translate upper
-null true
}
GuidoButtonGroupPanel note_corner {
-dependency {"[ $include_note getCurrentValue]" == "Yes" && "[$note_entity getCurrentValue]" == ""}
-tip 01120_TIP_15
-label "Note file corner"
-layout GridLayout 2 2
GuidoRadioButton frm01120_90 {
-caption "Upper left"
-default true
-selected_value UL
}
GuidoRadioButton frm01120_92 {
-caption "Upper right"
-next_focus apply_button
-selected_value UR
}
GuidoRadioButton frm01120_89 {
-caption "Lower left"
-selected_value LL
}
GuidoRadioButton frm01120_91 {
-caption "Lower right"
-selected_value LR
}
}
}
}
GuidoPanel plan_panel {
-label "Plan strip"
-layout BoxLayout Y_AXIS
-width 30
-height 12
GuidoPanel plan_check_panel {
-layout CentreLineLayout
GuidoCheckBox include_plan_strip {
-action valueChanged {[scaleAndDrawAreasCallback "false" "true"]}
-action valueChanged {[updateTabTitle $include_plan_strip "planStrip" "AUTOPLOT_PLAN_STRIP_ON_LABEL" "AUTOPLOT_PLAN_STRIP_OFF_LABEL"]}
-action valueChanged {[initGrids]}
-default false
-label "Include plan strip"
-selected_value "Yes"
-unselected_value "No"
-tip AUTOPLOT_INCLUDE_PLANSTRIP_TIP
}
}
GuidoFiller plan_filler {
-height 0.5
}
GuidoPanel include_plan_panel {
-dependency {"[$include_plan_strip getCurrentValue]" == "Yes"}
-layout CentreLineLayout
GuidoButtonGroupPanel plan_position {
-tip AUTOPLOT_PLAN_POSITION_TIP
-label "Sheet position"
-layout CentreLineLayout
-action valueChanged {[scaleAndDrawAreasCallback "false" "false"]}
GuidoRadioButton plan_position_top {
-caption "Top"
-default true
-selected_value top
}
GuidoRadioButton plan_position_bottom {
-caption "Bottom"
-next_focus include_note
-selected_value bottom
}
}
GuidoCheckBox display_section_line {
-label "Display section line"
-selected_value "Yes"
-unselected_value "No"
-tip AUTOPLOT_DISPLAY_SECTION_LINE_TIP
-default "No"
}
GuidoComboBox plan_draw {
-validation {[validatePlanDrawArea $plan_draw]}
-label "Drawing area"
-display_length 17
-format none
-max_length 32
-no_mlt
-tip AUTOPLOT_PLAN_DRAWAREA_TIP
-translate upper
}
GuidoComboBox plan_grid {
-action focusGained {[initPlanStripGridParams]}
-action valueChanged {[initPlanStripGridParams]}
-validation {[serverSavePlanStripGridParams "[$plan_grid getCurrentValue]"]}
-display_length 17
-format none
-label "Grid"
-max_length 4
-no_mlt
-tip AUTOPLOT_PLAN_GRID_TIP
-translate upper
}
GuidoFiller gridfill1 {
-height 0.5
}
GuidoFiller gridfill2 {
-height 0.5
}
GuidoPanel plan_grid_label_panel {
-layout BoxLayout Y_AXIS
-dependency {"[$plan_grid getCurrentValue]" != "" && "[$plan_grid getCurrentValue]" != "NOGR"}
GuidoFiller filler_height_1 {
-height 1
}
GuidoLabel interval_label {
-label Interval
}
GuidoFiller filler_height_1 {
-height 0.5
}
GuidoLabel type_label {
-label Type
}
}
GuidoPanel plan_grid_lines_panel {
-layout BoxLayout X_AXIS
-dependency {"[$plan_grid getCurrentValue]" != "" && "[$plan_grid getCurrentValue]" != "NOGR"}
GuidoPanel frm00219_16 {
-border etched true
-layout BoxLayout Y_AXIS
-label "Y Grid Lines"
GuidoField plan_ygli {
-display_length 6
-format double
-low_bound 0.000001
-max_length 10
-next_focus plan_yline
-null false
-tip "00219_TIP_002"
-translate upper
}
GuidoComboBox plan_yline {
-tip "00219_TIP_003"
-display_length 5
-format none
-max_length 32
-null false
-value_in F T X
-alternative_values "full lines" "border ticks" "grid crosses"
-default "full lines"
-next_focus plan_xgli
}
}
GuidoPanel frm00219_17 {
-layout BoxLayout Y_AXIS
-border etched true
-label "X Grid Lines"
GuidoField plan_xgli {
-display_length 6
-format double
-low_bound 0.000001
-max_length 10
-next_focus plan_xline
-null false
-tip "00219_TIP_004"
-translate upper
}
GuidoComboBox plan_xline {
-tip "00219_TIP_005"
-display_length 5
-format none
-max_length 32
-null false
-value_in F T X
-alternative_values "full lines" "border ticks" "grid crosses"
-default "full lines"
-next_focus plan_ygli
}
}
}
GuidoFiller frm00219_20 {
-height 0.5
}
}
}
GuidoPanel batch_sections_panel {
-label "Batch sections"
-layout BoxLayout Y_AXIS
-width 30
GuidoPanel batch_check_panel {
-layout CentreLineLayout
GuidoCheckBox create_batched_sections {
-action valueChanged {[updateTabTitle $create_batched_sections "batchSections" "AUTOPLOT_BATCH_SECTIONS_ON_LABEL" "AUTOPLOT_BATCH_SECTIONS_OFF_LABEL"]}
-action valueChanged {[batchedSectionChange]}
-label "Create multiple sections"
-selected_value "Yes"
-unselected_value "No"
-tip AUTOPLOT_CREATE_BATCHED_SECTIONS_TIP
-default "No"
}
GuidoLabel s {
-visible false
-label "Section reference corners"
-height 0.1
}
GuidoField current_plane_name {
-visible false
-action valueChanged {[batchedSectionChange]}
-default ""
-status_item "plane name"
-height 0.1
}
}
GuidoFiller sections_filler {
-height 0.5
}
GuidoPanel create_batch_sections_panel {
-layout BoxLayout Y_AXIS
GuidoPanel create_batch_sections_panel2 {
-layout OverlayLayout
GuidoPanel create_batch_sections_panel2a {
-layout BoxLayout Y_AXIS
GuidoPanel checkuncheck {
-layout BoxLayout X_AXIS
-border etched false
-width 24.9
GuidoPanel checkuncheckinner {
-position West
-layout BoxLayout X_AXIS
-width 24.9
GuidoFiller fill1 {
-width 3.1
}
GuidoPanel checkAllPanel {
-layout CentreLineLayout
GuidoCheckBox PlanesCheckAll {
-default false
-selected_value yes
-tip "Selects all the planes in the list."
-unselected_value no
-action valueChanged {[select_all $planesToPlot $plot_plane [$PlanesCheckAll getCurrentValue]]}
}
GuidoLabel checkSaveAllStylesLabel {
-height 1
-label "Select all"
}
}
}
}
GuidoScrollPane planesTable {
-height 8
-border etched false
GuidoTable planesToPlot {
-interactive false
-instances 1 1 200
GuidoCheckBox plot_plane {
-default true
-label "Plot"
-selected_value yes
-unselected_value no
-default "yes"
}
GuidoField plane {
-label "Plane"
-display_length 18
-input false
}
}
}
}
GuidoPanel sections_mand_fields_panel {
-layout CentreLineLayout
GuidoField extra_section_count {
-label "Additional sections"
-display_length 6
-format integer
-high_bound 9999
-low_bound 0
-max_length 5
-null true
-default 0
-tip AUTOPLOT_EXTRA_SECTION_COUNT_TIP
}
GuidoCheckBox reverse_section_direction {
-label "Reverse step direction"
-selected_value "Yes"
-unselected_value "No"
-tip AUTOPLOT_SECTION_DIRECTION_TIP
-default "No"
}
GuidoLabel padding {
-visible false
-label "Section reference corners"
-height 0.1
}
GuidoFiller padding2 {
-height 0.1
}
}
}
GuidoPanel section_ref_panel {
-layout CentreLineLayout
GuidoButtonGroupPanel section_ref_corner_source {
-tip AUTOPLOT_MULTI_SECTION_REF_CORNER_TIP
-label "Section reference corners"
-layout BoxLayout Y_AXIS
GuidoRadioButton relative {
-caption "Relative"
-default true
-selected_value "Relative"
}
GuidoRadioButton reference_string_file {
-caption "String file"
-selected_value "String file"
}
}
GuidoFileBrowserField section_ref_corner_string {
-dependency {"[$section_ref_corner_source getCurrentValue]" == "String file"}
-validation {[validateReferenceString $section_ref_corner_string]}
-label "Reference corner string"
-display_length 15
-extension true
-file_mask *.str
-format none
-max_length 256
-tip AUTOPLOT_REF_CORNER_STRING_TIP
-translate none
-file_access read
}
}
}
}
}
GuidoPanel plane_mode_error_panel {
-layout OverlayLayout
GuidoPanel noplane_panel {
GuidoLabel disabled_label {
-label AUTOPLOT_OPTION_DISABLED_NOPLANE_MSG
}
}
GuidoPanel viewoffsection_panel {
GuidoLabel viewoffsection_label {
-label AUTOPLOT_OPTION_DISABLED_OFFSECTION_MSG
}
}
GuidoPanel plan_disabled_elevationsection_panel {
GuidoLabel plan_disabled_elevationsection_label {
-label AUTOPLOT_OPTION_DISABLED_ELEVSECTION_MSG
}
}
}
}
}
}
GuidoPanel legendPanel {
-width 76
-label Legends
-layout BoxLayout Y_AXIS
GuidoPanel top_legend_panel {
-layout CentreLineLayout
GuidoPanel font_panel {
-layout CentreLineLayout
-border etched true
-label "Label font"
GuidoFontNameBrowser font {
-label "Font Name"
-null false
-allowDefault true
-display_length 12
-format none
-max_length 50
-next_focus bold_font
-tip "PLT_FONT_NAME_TIP"
}
GuidoCheckBox bold_font {
-label "FONT_STYLE_BOLD"
-selected_value Y
-tip "FONT_STYLE_BOLD_TIP"
-unselected_value N
-next_focus italic_font
}
GuidoCheckBox italic_font {
-label "FONT_STYLE_ITALIC"
-selected_value Y
-tip "FONT_STYLE_ITALIC_TIP"
-unselected_value N
-next_focus underline_font
}
GuidoCheckBox underline_font {
-label "FONT_STYLE_UNDERLINE"
-selected_value Y
-tip "FONT_STYLE_UNDERLINED_TIP"
-unselected_value N
-next_focus height
}
GuidoField height {
-decimals 2
-default 0.2
-display_length 5
-format double
-label "Text height"
-low_bound .05
-max_length 10
-null false
-tip "00880_TIP_7"
-translate upper
-action valueChanged {[updateYpos $include_legend $legendElements $nelements $ncolumns $nrows $legend_item_height $legend_margin $height $x_position $y_position]}
-action valueChanged {[updateYpos $include_legendImg $legendElementsImg $nelementsImg $ncolumnsImg $nrowsImg $legend_item_height $legend_margin $height $x_positionImg $y_positionImg]}
}
}
GuidoPanel legend_size_panel {
-layout CentreLineLayout
-border etched true
-label "Size"
GuidoField legend_item_height {
-decimals 2
-default 1
-display_length 5
-format double
-label "Element size"
-low_bound .05
-max_length 10
-null false
-tip "???"
-translate upper
-action valueChanged {[updateYpos $include_legend $legendElements $nelements $ncolumns $nrows $legend_item_height $legend_margin $height $x_position $y_position]}
-action valueChanged {[updateYpos $include_legendImg $legendElementsImg $nelementsImg $ncolumnsImg $nrowsImg $legend_item_height $legend_margin $height $x_positionImg $y_positionImg]}
}
GuidoField legend_margin {
-decimals 2
-default 0.25
-display_length 5
-format double
-label "Margin"
-low_bound .05
-max_length 10
-null false
-tip "???"
-translate upper
-action valueChanged {[updateYpos $include_legend $legendElements $nelements $ncolumns $nrows $legend_item_height $legend_margin $height $x_position $y_position]}
-action valueChanged {[updateYpos $include_legendImg $legendElementsImg $nelementsImg $ncolumnsImg $nrowsImg $legend_item_height $legend_margin $height $x_positionImg $y_positionImg]}
}
}
}
GuidoPanel legend_table_panel_wrapper {
-layout CentreLineLayout
GuidoPanel legend_table_panel {
-layout OverlayLayout
GuidoPanel legend_table_panel1 {
-dependency {"[$image_plot getCurrentValue]" == "No"}
GuidoScrollPane legendTable {
-height 13
GuidoTable legendElements {
-instances 0 0 100
-interactive false
GuidoField legend_name {
-label "Legend"
-width 29
-input false
}
GuidoCheckBox include_legend {
-default false
-label "Include"
-selected_value yes
-unselected_value no
-default "no"
}
GuidoField x_position {
-label "X position"
-width 5
-dependency {"[ $include_legend getCurrentValue]" == "yes"}
}
GuidoField y_position {
-label "Y position"
-width 5
-dependency {"[ $include_legend getCurrentValue]" == "yes"}
}
GuidoField nelements {
-label "Elements"
-width 5
-input false
}
GuidoField ncolumns {
-label "Columns"
-width 5
-input false
}
GuidoField nrows {
-dependency {[string match "*\Colour banding\*" "[$legend_name getCurrentValue]"] == 0}
-format integer
-label "Rows"
-width 5
-dependency {"[ $include_legend getCurrentValue]" == "yes"}
-action valueChanged {[updateYpos $include_legend $legendElements $nelements $ncolumns $nrows $legend_item_height $legend_margin $height $x_position $y_position]}
-action keyReleased {[updateYpos $include_legend $legendElements $nelements $ncolumns $nrows $legend_item_height $legend_margin $height $x_position $y_position]}
-low_bound 1
-action intitial {$rows setHighBound [$nelements getCurrentValue]}
}
}
}
}
GuidoPanel legend_table_panel2 {
-dependency {"[$image_plot getCurrentValue]" == "Yes"}
GuidoScrollPane legendTableImg {
-height 13
GuidoTable legendElementsImg {
-instances 0 0 100
-interactive false
GuidoField legend_nameImg {
-label "Legend"
-width 29
-max_length 256
-input false
}
GuidoCheckBox include_legendImg {
-default false
-label "Include"
-selected_value yes
-unselected_value no
-default "no"
}
GuidoField x_positionImg {
-label "X position"
-width 5
-dependency {"[ $include_legendImg getCurrentValue]" == "yes"}
}
GuidoField y_positionImg {
-label "Y position"
-width 5
-dependency {"[ $include_legendImg getCurrentValue]" == "yes"}
}
GuidoField nelementsImg {
-label "Elements"
-width 5
-input false
}
GuidoField ncolumnsImg {
-label "Columns"
-width 5
-input false
}
GuidoField nrowsImg {
-dependency {[string match "*\Colour banding\*" "[$legend_nameImg getCurrentValue]"] == 0}
-format integer
-label "Rows"
-width 5
-dependency {"[ $include_legendImg getCurrentValue]" == "yes"}
-action valueChanged {[updateYpos $include_legendImg $legendElementsImg $nelementsImg $ncolumnsImg $nrowsImg $legend_item_height $legend_margin $height $x_positionImg $y_positionImg]}
-action keyReleased {[updateYpos $include_legendImg $legendElementsImg $nelementsImg $ncolumnsImg $nrowsImg $legend_item_height $legend_margin $height $x_positionImg $y_positionImg]}
-low_bound 1
-action intitial {$rowsImg setHighBound [$nelementsImg getCurrentValue]}
}
}
}
}
}
}
}
}
$font updateBrowserList
$include_legend setActionCallback valueChanged {[updateYpos $include_legend $legendElements $nelements $ncolumns $nrows $legend_item_height $legend_margin $height $x_position $y_position]}
$include_legendImg setActionCallback valueChanged {[updateYpos $include_legendImg $legendElementsImg $nelementsImg $ncolumnsImg $nrowsImg $legend_item_height $legend_margin $height $x_positionImg $y_positionImg]}
$include_legend setActionCallback valueChanged {[updateCheckBoxes $legendElements $legend_name $include_legend $legendElementsImg $legend_nameImg $include_legendImg]}
$include_legendImg setActionCallback valueChanged {[updateCheckBoxes $legendElementsImg $legend_nameImg $include_legendImg $legendElements $legend_name $include_legend]}
-action initial {[initScales $plot_plane]}
-action initial {[batchedSectionChange]}
}
