file delete -force  ore4_above_pit4.dtm
file delete -force  ore4_above_pit4.str

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

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

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

set status [ SclFunction "TRISOLATION 3DM/DTM ABOVE" {
  frm00637={
    {
      _action="display"
      layer_name="solid_above_dtm"
      object_no="2"
    }
  }
  select_triangle=table { winx winy objectx objecty objectz } {
    { "0.037" "-0.243" "1728.252" "7278.257" "187.868" }
    { "0.156" "-0.702" "1788.145" "7126.835" "220.292" }
  }
}]

set status [ SclFunction "SAVE FILE AS" {
  output_file="ore4_above_pit4.dtm"
  output_type="Surpac DTM Files"
  output_filenames="ore4_above_pit4.dtm,ore4_above_pit4.str"
  Surpac={
    Purpose=""
    range=""
    FileFormat="text"
    ForceValidation="true"
    ForceCompatibility="true"
  }
}]
puts ""
puts ""
puts ""
puts ""
puts "Macro 08d_solid_above_dtm.tcl completed."
puts ""
puts ""
