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

set status [ SclFunction "OPEN FILE" {
  layer="main graphics layer"
  location="mod1.str"
  plugin="Surpac String Files"
  Surpac={
    IDRange=""
    range="1,2"
    descriptions="true"
  }
  styles=""
  replace="true"
  rescale="true"
}]

set status [ SclFunction "DRAW NUMBERS" {
  frm00089={
    {
      range1=""
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      legend_location="no legend"
      layer_name="main graphics layer"
    }
  }
}]

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

set status [ SclFunction "TRIANGULATE MANUAL" {
  frm00459={
    {
      _action="display"
      iobj="1"
      itrisol="1"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "-0.465" "-0.941" "5285.251" "10140.053" "903.917" }
    { "-0.541" "-0.861" "5284.585" "10160.104" "904.338" }
    { "-0.841" "0.174" "5235.493" "10140.068" "1029.756" }
    { "-0.915" "0.245" "5235.048" "10159.921" "1029.284" }
  }
}]


puts ""
puts ""
puts ""
puts ""
puts "Macro _04f_triangulate_manual.tcl completed."
puts ""
puts ""
