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

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

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

puts ""
puts "Click in graphics to continue"
puts ""

SclPause

set status [ SclFunction "TRIANGULATE AUTOMATIC" {
  frm00459={
    {
       _action="display"
      iobj="1"
      itrisol="1"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "0.628" "0.206" "5462.344" "10140.997" "1055.036" }
    { "0.590" "0.197" "5440.899" "10159.894" "1067.715" }
    { "0.427" "0.188" "5404.688" "10258.400" "1071.791" }
    { "0.341" "0.180" "5383.247" "10309.385" "1074.376" }
    { "0.256" "0.149" "5357.758" "10359.226" "1068.720" }
  }
}]

puts ""
puts "Click in graphics to continue"
puts ""

SclPause

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

puts ""
puts "Macro 02a_create_solid_automatic_triangulation.tcl completed."
puts ""
puts ""
