set status [ SclFunction "EXIT GRAPHICS" {
  frm00108={
    {
      exit_mode="E"
    }
  }
}]
set status [ SclFunction "RECALL ANY FILE" {
  file="mod5.dtm"
  mode="openInNewLayer"
}]

set status [ SclFunction "ERASE OBJECTS" {
  frm00089={
    {
      _action="display"
      range1=""
      range2=""
      range3=""
      textalignment="<"
      legend_location="no legend"
      layer_name="mod5.dtm"
    }
  }
}]

set status [ SclFunction "DRAW STRINGS" {
  frm00089={
    {
      _action="display"
      range1=""
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="First point"
      legend_location="no legend"
      layer_name="mod5.dtm"
    }
  }
}]

set status [ SclFunction "DIGITISER" {
  frm00083={
    {
      _action="display"
      string="1001"
      zval="983"
      desc=""
      retain="1"
    }
  }
}]


set status [ SclFunction "DIGITISER TOGGLE ATTRIBUTES" {} ]

set status [ SclFunction "DIGITISER DIGITISE" {
  digitise_point=table { winx winy objectx objecty objectz mousebutton } {
    { "0.014" "-0.881" "5340.840" "10089.367" "957.670" "1.000" }
    { "0.023" "0.799" "5347.272" "10914.463" "957.670" "1.000" }
    { "0.108" "0.804" "5407.312" "10916.606" "957.670" "1.000" }
  }
  frm00084=table { zval desc string } {
    { "983" "" "1001" }
    { "983" "" "1001" }
    { "983" "" "1001" }
  }
}]

set status [ SclFunction "ZOOM ALL" {} ]

set status [ SclFunction "VIEW BY BEARING" {
  frm00289={
    {
      _action="display"
      bearing="70"
      dip="-20"
    }
  }
}]
set status [ SclFunction "WINDOW IN" {
  window_drag={
    {
      winx1="-0.643"
      winy1="0.380"
      winx2="-0.510"
      winy2="0.123"
      objectx1="5258.256"
      objecty1="10883.676"
      objectz1="1114.606"
      objectx2="5248.148"
      objecty2="10798.368"
      objectz2="1008.345"
    }
  }
}]

set status [ SclFunction "TRIANGULATE TO A POINT" {
  frm00459={
    {
      _action="display"
      iobj="6"
      itrisol="1"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "-0.330" "-0.353" "5406.114" "10916.868" "983.250" }
    { "0.237" "0.804" "5400.125" "10880.013" "1043.910" }
  }
}]

set status [ SclFunction "TRIANGULATE TO A POINT" {
  frm00459={
    {
      _action="display"
      iobj="7"
      itrisol="1"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "-0.647" "-0.789" "5347.222" "10914.810" "983.263" }
    { "-0.020" "0.564" "5357.326" "10880.141" "1047.319" }
  }
}]

set status [ SclFunction "ZOOM ALL" {} ]

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

set status [ SclFunction "WINDOW IN" {
  window_drag={
    {
      winx1="0.773"
      winy1="0.162"
      winx2="0.553"
      winy2="-0.161"
      objectx1="5506.204"
      objecty1="10106.613"
      objectz1="1024.555"
      objectx2="5417.333"
      objecty2="10208.955"
      objectz2="891.279"
    }
  }
}]

set status [ SclFunction "TRIANGULATE TO A POINT" {
  frm00459={
    {
      _action="display"
      iobj="8"
      itrisol="1"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "0.333" "-0.440" "5340.876" "10089.309" "983.121" }
    { "-0.073" "0.070" "5397.885" "10139.912" "985.938" }
  }
}]

set status [ SclFunction "ZOOM ALL" {} ]

set status [ SclFunction "DRAW OBJECTS" {
  frm00089={
    {
      _action="display"
      range1=""
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      legend_location="no legend"
      layer_name="mod5.dtm"
    }
  }
}]

set status [ SclFunction "TRIANGULATE AUTOMATIC" {
  frm00459={
    {
      _action="display"
      iobj="9"
      itrisol="1"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "-0.171" "0.262" "5343.884" "10859.291" "1036.543" }
    { "-0.211" "0.376" "5333.865" "10879.318" "1033.689" }
  }
}]

set status [ SclFunction "TRIANGULATE AUTOMATIC" {
  frm00459={
    {
      _action="display"
      iobj="10"
      itrisol="1"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "0.108" "0.267" "5414.785" "10860.062" "1050.942" }
    { "0.126" "0.380" "5419.409" "10880.088" "1050.294" }
  }
}]

set status [ SclFunction "SAVE FILE AS" {
  _action="display"
  output_file="mod5.dtm"
  output_type="Surpac DTM Files"
  output_filenames="mod5.dtm,mod5.str"
  Surpac={
    Purpose=""
    range=""
    FileFormat="text"
    ForceValidation="true"
    ForceCompatibility="true"
  }
  frmSaveMultipleFiles={
    {
      _action="apply"
    }
  }
}]

puts ""
puts ""
puts ""
puts ""
puts "Macro 04a_segment_to_a_point.tcl completed."
puts ""
puts ""
