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

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

set status [ SclFunction "ERASE OBJECTS" {
  frm00089={
    {
      _action="display"
      range1=""
      range2=""
      range3=""
      textalignment="<"
      legend_location="no legend"
      layer_name="mod7.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="mod7.dtm"
    }
  }
}]

set status [ SclFunction "TRIANGULATE INSIDE SEGMENT" {
  frm00459={
    {
      _action="display"
      iobj="11"
      itrisol="1"
    }
  }
  select_point={
    {
      winx="-0.200"
      winy="0.267"
      objectx="5210.837"
      objecty="10624.334"
      objectz="954.549"
    }
  }
}]

set status [ SclFunction "TRIANGULATE INSIDE SEGMENT" {
  frm00459={
    {
      _action="display"
      iobj="12"
      itrisol="1"
    }
  }
  select_point={
    {
      winx="0.190"
      winy="0.289"
      objectx="5445.516"
      objecty="10634.358"
      objectz="1048.310"
    }
  }
}]


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

puts ""
puts ""
puts "Macro _04d_triangulate_inside_segment.tcl completed."
puts ""
