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

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

set status [ SclFunction "STRINGS OVER DTM" {
  frm00209=table  { dtmloc dtmid swadesc swadescusage bdyopt interp inploc rinpid strange outloc outid } {
    { "f_section_view" "1" "Y" "Y" "N" "N" "n_section_view" "1" "" "n" "1" }
    { "f_section_view" "1" "Y" "Y" "N" "N" "n_section_view" "1" "" "n" "1" }
  }
  frm00121=table { _action } {
    { "cancel" }
    { "apply" }
  }
  frm00608={
    {
      _action="display"
      strfld1="Z"
      op1="="
      dtmfld1="Z"
      strfld2=""
      op2="="
      dtmfld2=""
      strfld3=""
      op3="="
      dtmfld3=""
      strfld4=""
      op4="="
      dtmfld4=""
      strfld5=""
      op5="="
      dtmfld5=""
      strfld6=""
      op6="="
      dtmfld6=""
      strfld7=""
      op7="="
      dtmfld7=""
      strfld8=""
      op8="="
      dtmfld8=""
      strfld9=""
      op9="="
      dtmfld9=""
      strfld10=""
      op10="="
      dtmfld10=""
    }
  }
}]
set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

set status [ SclFunction "RECALL ANY FILE" {
  _action="display"
  file="f_section_view1.dtm"
  mode="openInNewLayer"
}]

set status [ SclFunction "RECALL ANY FILE" {
  _action="display"
  file="s_section_view1.str"
  mode="openInNewLayer"
}]

set status [ SclFunction "ZOOM OUT" {} ]

set status [ SclFunction "VIEW BY BEARING" {
  frm00289={
    {
      _action="display"
      bearing="10"
      dip="4"
    }
  }
}]

set status [ SclFunction "STRING OVER DTM" {
  select_point={
    {
      _action="display"
      winx="0.022"
      winy="-0.027"
      objectx="5321.978"
      objecty="1033.517"
      objectz="10609.560"
    }
  }
  frm01313={
    {
      _action="display"
      dtm_layer="f_section_view1.dtm"
      interp="Y"
    }
  }
}]

set status [ SclFunction "FILE SAVE" {
  frmsaveFileAs={
    {
      AutoCAD={
        version="Autocad 18"
      }
      _action="display"
      output_file="surpac2str:s1"
      outputExt=".str"
      saveStyle="N"
      Datamine={
        binary_precision="Single"
      }
      Surpac={
        FileFormat="text"
        ForceValidation="true"
        Purpose="Created using STR MATHS from south1.str"
        ForceCompatibility="true"
        range=""
      }
      output_type="Surpac String Files"
    }
  }
  frm00121={
    {
      _action="apply"
    }
  }
}]

set status [ SclFunction "STR MATHS" {
  frm00700={
    {
      _action="display"
      file_loc="n"
      file_id="1"
      result_loc="n"
      main=table { str_range constraint field expr } {
        { "all" "" "y" "z" }
        { "" "" "z" "y" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
      }
    }
  }
  frm00701={
    {
      _action="apply"
    }
  }
  frm00121={
    {
      _action="apply"
    }
  }
}]

set status [ SclFunction "STR MATHS" {
  frm00700={
    {
      _action="display"
      file_loc="s"
      file_id="1"
      result_loc="s"
      main=table { str_range constraint field expr } {
        { "all" "" "y" "z" }
        { "" "" "z" "y" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
        { "" "" "" "" }
      }
    }
  }
  frm00701={
    {
      _action="apply"
    }
  }
  frm00121={
    {
      _action="apply"
    }
  }
}]

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

set status [ SclFunction "RECALL ANY FILE" {
  _action="display"
  file="s1.str"
  mode="openInNewLayer"
}]


set status [ SclFunction "RECALL ANY FILE" {
  _action="display"
  file="n1.str"
  mode="appendToCurrentLayer"
}]

set status [ SclFunction "RECALL ANY FILE" {
  _action="display"
  file="mod6.dtm"
  mode="appendToCurrentLayer"
}]

set status [ SclFunction "CLEAR SCREEN" {} ]

set status [ SclFunction "DRAW STRINGS" {
  frm00089={
    {
      _action="display"
      range1="10,11"
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="First point"
      layer_name="s1.str"
    }
  }
}]

set status [ SclFunction "VIEW BY BEARING" {
  frm00289={
    {
      _action="display"
      bearing="80"
      dip="-20"
    }
  }
}]

set status [ SclFunction "TRIANGULATE AUTOMATIC" {
  frm00459={
    {
      _action="display"
      iobj="11"
      itrisol="1"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "-0.221" "-0.677" "5234.113" "10616.122" "876.634" }
    { "-0.181" "-0.685" "5237.878" "10609.972" "874.413" }
  }
}]

set status [ SclFunction "TRIANGULATE AUTOMATIC" {
  frm00459={
    {
      _action="display"
      iobj="12"
      itrisol="1"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "-0.130" "0.887" "5422.585" "10633.722" "1051.623" }
    { "-0.244" "0.892" "5463.636" "10660.602" "1036.050" }
  }
}]
set status [ SclFunction "FILE SAVE" {
  frmsaveFileAs={
    {
      AutoCAD={
        version="Autocad 18"
      }
      _action="display"
      output_file="surpac2dtm:mod6"
      outputExt=".dtm"
      saveStyle="N"
      Datamine={
        binary_precision="Single"
      }
      Surpac={
        FileFormat="text"
        ForceValidation="true"
        Purpose=""
        ForceCompatibility="true"
        range=""
      }
      output_type="Surpac DTM Files"
    }
  }
  frmSaveMultipleFiles={
    {
      _action="apply"
    }
  }
}]

SclPause 4

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

set status [ SclFunction "RECALL ANY FILE" {
  _action="display"
  file="mod6.dtm"
  mode="openInNewLayer"
}]
puts ""
puts ""
puts "Macro _04c_drape_strings_and_triangulate_fault.tcl completed."
puts ""
