proc turnOff {display_oblique_section_grid_in grid_in} {
upvar $display_oblique_section_grid_in display_oblique_section_grid
upvar $grid_in grid
if {[string match {[YZ][XY]A[0-9]} [$grid getCurrentValue]] == 1} {
$display_oblique_section_grid setCurrentValue "N"
}
}
proc scaleAndDrawAreasCallback {resetMainDrawAreas} {
global sheet
global orient
global unit
global minscale
global minscale_label
global drawsp
if {![info exists drawsp] || ![info exists orient]} {
return
}
set buffer [ GuidoExecServer UpdatePlottingDrawAreas [subst {sheet = "[$sheet getCurrentValue]"
orient = "[$orient getCurrentValue]"
unit = "[$unit getCurrentValue]"
drawsp = "[$drawsp 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]
}
}
}
}
proc setXScaleLabel {} {
global uniform_scale
global xscale_label
global xscale
global yscale
if {![info exists xscale_label] || ![info exists uniform_scale]} {
return
}
if {"[$uniform_scale getCurrentValue]" == "Yes"} {
$xscale_label setCurrentValue "Scale"
$yscale setCurrentValue [$xscale getCurrentValue]
} else {
$xscale_label setCurrentValue "X scale"
}
}
GuidoForm frm00226 {
-default_buttons
-label "Plot Presentation Parameters"
-layout BoxLayout Y_AXIS
-tip "00226_TIP_001"
GuidoPanel frm00226_93 {
-layout CentreLineLayout
GuidoLabel plot_label {
-label "Map name:"
}
GuidoLabel plot {
-action initial {[$plot setInputAllowed true]}
-font_style bold
-label ""
}
GuidoField outputPrefix {
-display_length 20
-format none
-input true
-label "Output file name"
-max_length FIO_MAX_FILENAME_LENGTH
-translate none
-tip PLT_OUTPUT_FILE_PREFIX_TIP
}
}
GuidoFiller fill1 {
-height 1
}
GuidoTabbedPane tabPane {
GuidoPanel tab1 {
-label "Plot Parameters"
-layout BoxLayout Y_AXIS
GuidoPanel scroll3_main {
-layout BoxLayout Y_AXIS
GuidoPanel scale_and_extents_panel {
-layout GridLayout 1 2
GuidoPanel scale_options_panel {
-layout BoxLayout Y_AXIS
-border etched true
-label "Scale options"
GuidoPanel scale_options_top_panel {
-layout CentreLineLayout
GuidoLabel min_scale_label {
-label PLT_MINIMUM_SCALE_LABEL
}
GuidoLabel minscale_label {
-font_style bold
-tip PLT_MIN_REQD_SCALE_TIP
}
GuidoCheckBox uniform_scale {
-action focusGained {[setXScaleLabel]}
-action valueChanged {[setXScaleLabel]}
-default true
-label AUTOPLOT_UNIFORM_SCALE_LABEL
-selected_value "Yes"
-tip AUTOPLOT_UNIFORM_SCALE_TIP
-unselected_value "No"
}
}
GuidoPanel scale_options_lower_panel  {
-layout BoxLayout Y_AXIS
GuidoPanel xscale_panel {
-layout FlowLayout RIGHT
GuidoLabel xscale_label {
-label "Scale"
}
GuidoField xscale {
-display_length 8
-format double
-high_bound 999999999
-low_bound 0.01
-max_length 10
-null false
-tip 01120_TIP_2
-translate upper
}
}
GuidoPanel yscale_panel {
-layout FlowLayout RIGHT
-dependency {"[$uniform_scale getCurrentValue]" == "No"}
GuidoField yscale {
-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
}
}
GuidoField minscale {
-visible false
-display_length 8
-format double
-high_bound 999999999
-low_bound 0.0
-max_length 32
-null true
-translate upper
}
}
}
GuidoPanel extents_table_panel {
-layout BoxLayout X_AXIS
-border etched true
-label "Data extents"
GuidoPanel scroll1_main_0 {
-layout CentreLineLayout
GuidoLabel frm00226_34 {
-label ""
}
GuidoLabel frm00226_37 {
-font_style bold
-label "Y"
}
GuidoLabel ymin_label {
-font_style bold
-label "Minimum"
}
GuidoLabel ymin {
-action initial {[$ymin setInputAllowed true]}
-label ""
}
GuidoLabel ymax_label {
-font_style bold
-label "Maximum"
}
GuidoLabel ymax {
-action initial {[$ymax setInputAllowed true]}
-label ""
}
}
GuidoFiller scroll1_main_4 {
-width 1
}
GuidoPanel scroll1_main_2 {
-layout BoxLayout Y_AXIS
GuidoLabel frm00226_38 {
-font_style bold
-label "X"
}
GuidoLabel xmin {
-action initial {[$xmin setInputAllowed true]}
-label ""
}
GuidoLabel xmax {
-action initial {[$xmax setInputAllowed true]}
-label ""
}
}
GuidoFiller scroll1_main_4 {
-width 1
}
}
}
GuidoFiller scroll3_main_4 {
-height 1
}
GuidoPanel sheet_setup_panel {
-border etched true
-label "Sheet setup and orientation characteristics"
-layout CentreLineLayout
GuidoComboBox sheet {
-action valueChanged {[scaleAndDrawAreasCallback "true"]}
-action focusGained {[scaleAndDrawAreasCallback "true"]}
-display_length 20
-format none
-label "Sheet size"
-max_length 2
-null false
-tip "00226_TIP_004"
-value_in A0 A1 A2 A3 A4 A5 B0 B1 B2 B3 E3 L2
}
GuidoComboBox border {
-display_length 20
-format none
-label Border
-max_length 4
-tip "00226_TIP_005"
-no_mlt
-value_in "" BORD NOBO
}
GuidoComboBox drawsp {
-action focusGained {[scaleAndDrawAreasCallback "false"]}
-action valueChanged {[scaleAndDrawAreasCallback "false"]}
-display_length 20
-format none
-label "Drawing area"
-max_length 4
-null false
-no_mlt
-tip "00226_TIP_006"
-value_in DRAW NODA VA0L VA0M VA0R VA1B VA1L VA1M VA1R VA1T VA3L VA3M VA3R
}
GuidoComboBox grid {
-display_length 20
-format none
-label Grid
-max_length 4
-tip "00226_TIP_007"
-value_in "" NOGR OBA0 OBA3 YXA0 YXA3 ZXA0 ZXA3 ZYA0 ZYA3
-action valueChanged {[turnOff display_oblique_section_grid grid]}
-action initial {[turnOff display_oblique_section_grid grid]}
}
GuidoComboBox title {
-dependency {"[ $border getCurrentValue]" != ""}
-display_length 20
-format none
-label "Title block"
-max_length 4
-tip "00226_TIP_008"
}
GuidoPanel orient_panel {
-layout BoxLayout X_AXIS
-label "Plot orientation"
-tip "00226_TIP_009"
GuidoButtonGroupPanel orient {
-action initial {[scaleAndDrawAreasCallback "false"]}
-border etched true
-layout GridLayout 3 2
GuidoRadioButton landscape_centred_button {
-action mouseClicked {[scaleAndDrawAreasCallback "false"]}
-caption "Landscape Centred"
-default true
-selected_value NC
}
GuidoRadioButton landscape_fixed_button {
-action mouseClicked {[scaleAndDrawAreasCallback "false"]}
-caption "Landscape Fixed"
-selected_value NF
}
GuidoRadioButton portrait_centred_button {
-action mouseClicked {[scaleAndDrawAreasCallback "false"]}
-caption "Portrait Centred"
-selected_value RC
}
GuidoRadioButton portrait_fixed_button {
-action mouseClicked {[scaleAndDrawAreasCallback "false"]}
-caption "Portrait Fixed"
-selected_value RF
}
GuidoRadioButton rotate_about_point_button {
-action mouseClicked {[scaleAndDrawAreasCallback "false"]}
-caption "Rotate About Point"
-selected_value RX
}
GuidoRadioButton rotate_about_centroid_button {
-action mouseClicked {[scaleAndDrawAreasCallback "false"]}
-caption "Rotate About Centroid"
-selected_value RD
}
}
}
GuidoPanel frm00226_19 {
-label "Quadrant"
-layout BoxLayout X_AXIS
-tip "00226_TIP_010"
GuidoButtonGroupPanel quad {
-layout GridLayout 2 2
GuidoRadioButton frm00226_18 {
-caption "North-West"
-selected_value NW
}
GuidoRadioButton frm00226_15 {
-caption "North-East"
-default true
-selected_value NE
}
GuidoRadioButton frm00226_17 {
-caption "South-West"
-selected_value SW
}
GuidoRadioButton frm00226_16 {
-caption "South-East"
-selected_value SE
}
}
}
GuidoPanel frm00226_24 {
-label "Data units"
-layout BoxLayout X_AXIS
-tip "00226_TIP_011"
GuidoButtonGroupPanel unit {
GuidoRadioButton frm00226_22 {
-action mouseClicked {[scaleAndDrawAreasCallback "false"]}
-caption "Metric"
-default true
-selected_value M
}
GuidoRadioButton frm00226_23 {
-action mouseClicked {[scaleAndDrawAreasCallback "false"]}
-caption "Imperial"
-selected_value I
}
}
}
}
GuidoFiller frm00226_97 {
-height 1
}
GuidoPanel misc_options_panel {
-layout GridLayout 1 2
-border etched true
-label "Miscellaneous options"
GuidoPanel misc_panel_1 {
-layout CentreLineLayout
GuidoCheckBox over {
-default false
-label "Overprint"
-selected_value Y
-tip "00226_TIP_012"
-unselected_value N
}
GuidoCheckBox txtrot {
-default false
-label "Text rotation"
-selected_value Y
-tip "00226_TIP_013"
-unselected_value N
}
GuidoCheckBox display_plot {
-default false
-label "Display plot after processing"
-selected_value Y
-tip "Select 'Y' to display the plot in a viewport after processing."
-unselected_value N
}
}
GuidoPanel misc_panel_2 {
GuidoButton frm00226_32 {
-caption "Save current settings as default"
-legacy_button
-selected_value save_presentation_values_as_defaults
-visible true
}
}
}
}
}
GuidoPanel tab2 {
-label "Oblique Section Grid"
-layout BoxLayout Y_AXIS
GuidoPanel tab2a {
-layout CentreLineLayout
-border etched true
GuidoCheckBox display_oblique_section_grid {
-dependency {[string match {[YZ][XY]A[0-9]} [$grid getCurrentValue]] == 0}
-label "Plot Northing and Easting grid lines"
-default N
-selected_value Y
-unselected_value N
-tip PLT_SECTION_OBLIQUE_TIP
}
GuidoFileBrowserField oblique_grid_file {
-display_length 26
-file_mask *.str
-format none
-null false
-label "Section file"
-max_length FIO_MAX_FILENAME_LENGTH
-tip PLT_SECTION_OBLIQUE_TIP_GRID_FILE
-file_access read
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y"}
}
GuidoField oblique_grid_string {
-display_length 9
-format integer
-high_bound 33000
-label "Section line string number"
-low_bound 1
-max_length 32
-null false
-tip PLT_SECTION_OBLIQUE_TIP_GRID_STRING
-translate none
-default 33000
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y"}
}
GuidoComboBox oblique_grid_style {
-display_length 20
-format none
-label Grid
-max_length 32
-null false
-tip PLT_SECTION_OBLIQUE_TIP_GRID
-value_in "" "OBLIQUE SECTION" "OBLIQUE SECTION TWO LABELS" NOGR OBA0 OBA3 YXA0 YXA3 ZXA0 ZXA3 ZYA0 ZYA3
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y"}
}
GuidoFiller spacing1 {
-height 1
}
GuidoFiller spacing2 {
-height 1
}
GuidoPanel label_panel {
-layout CentreLineLayout
GuidoFiller filler_height_1aa {
-height 1
}
GuidoFiller filler_height_1bb {
-height 1
}
GuidoLabel type_label {
-label Type
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y"}
}
GuidoFiller filler_height_1cc {
-width 0
}
GuidoFiller filler_height_1dd {
-height 4.5
}
GuidoFiller filler_height_1ee {
-height 4.5
}
GuidoLabel interval_label {
-label Interval
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y"}
}
GuidoFiller filler_height_1ff {
-width 0
}
}
GuidoPanel grid_freq {
-layout BoxLayout X_AXIS
GuidoPanel frm00219_16 {
-border etched true
-layout BoxLayout Y_AXIS
-label "Northing Grid Lines"
GuidoButtonGroupPanel oblique_yline {
-layout BoxLayout Y_AXIS
-tip "PLT_SECTION_OBLIQUE_TIP_GRID_LINE"
GuidoRadioButton y_full_lines_button {
-caption "full lines"
-selected_value F
-default true
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y"}
}
GuidoRadioButton y_border_ticks_button {
-caption "border ticks"
-selected_value T
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y"}
}
GuidoRadioButton y_no_lines_button {
-caption "no lines"
-selected_value N
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y"}
}
}
GuidoFiller filler_height_1 {
-height 1
}
GuidoField oblique_ygli {
-display_length 10
-format double
-low_bound 0.000001
-default 1.0
-max_length 10
-next_focus yline
-null false
-tip "PLT_SECTION_OBLIQUE_TIP_GRID_SPACING"
-translate upper
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y" && "[$oblique_yline getCurrentValue]" != "N"}
}
}
GuidoFiller filler_width_1 {
-width 1
}
GuidoPanel frm00219_17 {
-layout BoxLayout Y_AXIS
-border etched true
-label "Easting Grid Lines"
GuidoButtonGroupPanel oblique_xline {
-layout BoxLayout Y_AXIS
-tip "PLT_SECTION_OBLIQUE_TIP_GRID_LINE"
GuidoRadioButton x_full_lines_button {
-caption "full lines"
-selected_value F
-default true
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y"}
}
GuidoRadioButton x_border_ticks_button {
-caption "border ticks"
-selected_value T
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y"}
}
GuidoRadioButton x_no_lines_button {
-caption "no lines"
-selected_value N
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y"}
}
}
GuidoFiller filler_height_1 {
-height 1
}
GuidoField oblique_xgli {
-display_length 10
-format double
-default 1.0
-low_bound 0.000001
-max_length 10
-next_focus xline
-null false
-tip "PLT_SECTION_OBLIQUE_TIP_GRID_SPACING"
-translate upper
-dependency {"[ $display_oblique_section_grid getCurrentValue]" == "Y" && "[ $oblique_xline getCurrentValue]" != "N"}
}
}
}
}
}
}
}
