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

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

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

SclPause
set status [ SclFunction "WINDOW IN" {
  window_drag={
    {
      winx1="-0.217"
      winy1="-0.872"
      winx2="-0.087"
      winy2="-0.999"
      objectx1="5219.678"
      objecty1="10179.319"
      objectz1="957.670"
      objectx2="5286.580"
      objecty2="10129.599"
      objectz2="957.670"
    }
  }
}]

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

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

set status [ SclFunction "TRIANGULATE ONE TRIANGLE" {
  frm00459={
    {
      _action="display"
      iobj="1"
      itrisol="1"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "0.810" "-0.528" "5294.782" "10140.008" "930.504" }
    { "0.260" "-0.436" "5294.831" "10160.131" "930.539" }
    { "0.800" "-0.349" "5293.919" "10140.059" "935.786" }
    { "0.243" "-0.082" "5293.106" "10160.113" "940.996" }
  }
}]

puts ""
puts ""
puts ""
puts ""
puts "Macro 04e_triangulate_one_triangle.tcl completed."
puts ""
puts ""