set status [ SclFunction "ZOOM PLANE" {} ]

set status [ SclFunction "DRILL SINGLE" {} ]

set status [ SclFunction "DISPLAY HOLE IDS" {} ]


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

SclPause

puts ""
puts ""
puts ""
puts ""

set status [ SclFunction "PARALLEL HOLES" {
  select_point={
    {
      winx="0.320"
      winy="0.208"
      objectx="11462.499"
      objecty="21651.869"
      objectz="1071.338"
    }
  }
  frm70029={
    {
      _action=display
      number="2"
      spacing="-1.25"
    }
  }
}]


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

SclPause


set status [ SclFunction "DELETE HOLE" {
  select_point={
    {
      winx="0.204"
      winy="0.296"
      objectx="11461.374"
      objecty="21654.138"
      objectz="1072.667"
    }
  }
}]

set status [ SclFunction "MOVE MAST BY COORDS" {
  frm70008={
    {
      _action=display
      x_coord="0"
      y_coord="0"
    }
  }
}]

set status [ SclFunction "DRILLING PARAMETERS" {
  frm70013={
    {
      _action=display
      toe="1.5"
      tolerance="0.1"
      toe_alg="AECI"
      collardist="0.1"
      overdrill="0"
      diameter="0.05"
      ring_direction="anti-clockwise"
      colour="grey"
      breakthrough="0.75"
    }
  }
}]

set status [ SclFunction "NORMAL HOLES" {
  select_point={
    {
      winx="0.265"
      winy="0.234"
      objectx="11461.955"
      objecty="21652.938"
      objectz="1071.737"
    }
  }
  frm70017={
    {
      _action=display
      number="1"
    }
  }
}]

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

SclPause


set status [ SclFunction "START HOLES" {
  digitise_point={
    {
      winx="-0.349"
      winy="-0.388"
      objectx="11455.224"
      objecty="21664.446"
      objectz="1062.299"
      mousebutton="1.000"
    }
  }
}]

set status [ SclFunction "ROTATE HOLE" {
  select_point={
    {
      winx="-0.337"
      winy="-0.388"
      objectx="11455.349"
      objecty="21664.211"
      objectz="1062.299"
    }
  }
  world_drag={
    {
      objectx="11455.324"
      objecty="21664.248"
      objectz="1062.211"
      dx="4.660"
      dy="21663.148"
      dz="1060.616"
    }
  }
}]

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

SclPause

puts ""
puts ""
puts ""
puts ""

set status [ SclFunction "SET LENGTH OF HOLE" {
  select_point={
    {
      winx="-0.347"
      winy="-0.464"
      objectx="11455.188"
      objecty="21664.377"
      objectz="1061.147"
    }
  }
  frm70047={
    {
      _action=display
      length="10.5"
    }
  }
}]

set status [ SclFunction "CARDINAL HOLES" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.198" "0.316" "11461.327" "21654.264" "1072.977" }
    { "-0.339" "-0.464" "11455.271" "21664.220" "1061.147" }
  }
  frm70019={
    {
      _action=display
      number="5"
    }
  }
}]

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

SclPause

puts ""
puts ""
puts ""
puts ""

set status [ SclFunction "RENUMBER HOLES" {
  frm70016={
    {
      _action=display
      direction="clockwise"
      start_no="1"
    }
  }
  select_point={
    {
      winx="-0.345"
      winy="-0.461"
      objectx="11455.211"
      objecty="21664.339"
      objectz="1061.192"
    }
  }
}]

set status [ SclFunction "SAVE RING" {
  frm70039={
    {
      _action=display
      stope="4NW"
      drive="1055"
    }
  }
  frm70043={
    {
      _action=display
      ring_no="9"
    }
  }
  frm70050={
    {
      filenames={
        {
          _action=display
          location="1055_4nw_holes"
          rid="9"
          write="YES"
        }
      }
    }
  }
}]


puts ""
puts ""
puts ""
puts ""
puts "End of macro 05a_create_holes.tcl"
puts ""
puts ""
