######################################################################
#
# Macro Name    : 01_data_setup.tcl
#
# Version       : Surpac Vision V5.2-B Beta
#
# Creation Date : Wed Jan 11 11:44:18 2006
#
# Description   : Set up default files
#
######################################################################

set status [ SclFunction "EXIT GRAPHICS" {
  frm00108={
    {
      exit_mode="E"
    }
  }
}]

set form {
  GuidoForm form_2 {
    -default_buttons
    -label "Set up RMC polygons"
    GuidoPanel panel_2 {
    -layout BoxLayout Y_AXIS
      GuidoTextArea gainfocus {
      -visible true
      -default "This text area is here to remove focus and highlighting from the second GuidoTextArea
                This text area must have visible set to true in order to gain focus"
      -height 0
      -width 0
      }
      GuidoLabel space {
      -height 0.5
      }
      GuidoScrollPane scroll_2 {
      -label ""
      -height 8
      -width 70
        GuidoTextArea text_2 {
        -format none
        -linewrap true
        -wrap_style_word true
        -linewrap true
        -input true
        -font_highlight 0 0 0
        -default "
Use string maths to assign rock codes to the first description field of some string polygons.

These polygons will be used in a later part of the tutorial to auto generate spacing and burden, for areas that are contained inside the polygons

"

        }
      }
      GuidoLabel space {
      -height 0.5
      }
    }
  }
}

SclCreateGuidoForm form_handle $form {
}

$form_handle SclRun {
}

set status [ SclFunction "STR MATHS" {
  frm00700={
    {
      _action=display
      file_loc="rmc_"
      file_id="960"
      result_loc="rmc_"
      main=table { str_range constraint field expr } {
        { "" "" "d1" "\"Laterite\"" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
      }
    }
  }
  frm00701={
    {
      _action="apply"
    }
  }
  frm00121={
    {
      _action="apply"
    }
  }
}]

set status [ SclFunction "STR MATHS" {
  frm00700={
    {
      _action=display
      file_loc="rmc_"
      file_id="955"
      result_loc="rmc_"
      main=table { str_range constraint field expr } {
        { "" "" "d1" "\"Basalt Fresh\"" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
      }
    }
  }
  frm00701={
    {
      _action="apply"
    }
  }
  frm00121={
    {
      _action="apply"
    }
  }
}]


puts ""
puts ""
puts ""
puts ""
puts "Macro 01_data_setup.tcl completed."
puts ""
puts ""