######################################################################
#
# Macro Name    : c:/tutorials/v5.2/underground mine design/data/_03.tcl
#
# Version       : Surpac Vision V5.2-C
#
# Creation Date : Wed Aug 23 09:12:00 2006
#
# Description   : 
#
######################################################################
set status [ SclFunction "ZOOM ALL" { }]

set status [ SclFunction "SELECT LAYER" {
  activelayer="lev215.str"
}]

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

set status [ SclFunction "WINDOW IN" {
  window_drag={
    {
      winx1="0.217"
      winy1="-0.463"
      winx2="0.006"
      winy2="-0.993"
      objectx1="11262.129"
      objecty1="21694.075"
      objectz1="230.000"
      objectx2="11206.802"
      objecty2="21588.938"
      objectz2="230.000"
    }
  }
}]

set status [ SclFunction "IDENTIFY POINT" {
  select_point={
    {
      winx="0.259"
      winy="0.000"
      objectx="11224.989"
      objecty="21598.039"
      objectz="216.990"
    }
  }
}]

set status [ SclFunction "IDENTIFY POINT" {
  select_point={
    {
      winx="0.238"
      winy="0.135"
      objectx="11277.669"
      objecty="21741.824"
      objectz="199.963"
    }
  }
}]

set status [ SclFunction "BEARING AND DISTANCE" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.166" "0.129" "11224.923" "21597.864" "216.990" }
    { "-0.245" "-0.015" "11210.597" "21594.061" "216.990" }
  }
}]

set status [ SclFunction "BEARING AND DISTANCE" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.208" "0.016" "11277.567" "21741.431" "199.963" }
    { "0.024" "0.537" "11262.824" "21773.145" "199.963" }
  }
}]

set status [ SclFunction "SELECT LAYER" {
  activelayer="main graphics layer"
}]

set status [ SclFunction "SNAP OFF" {} ]

set status [ SclFunction "DESIGN STRING" {
  frm00071={
    {
      _action=display
      idesign_string="10"
    }
  }
}]

set status [ SclFunction "CURVE END" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.020" "0.543" "11262.450" "21773.518" "199.963" }
    { "0.210" "0.019" "11277.754" "21741.617" "199.963" }
  }
  frm00057={
    {
      _action=display
      dirn="C"
      radius="30"
      ang_or_length="A"
      clen="90"
      arcdist="3"
    }
  }
}]

set status [ SclFunction "GRAPHICAL SEGMENT JOIN" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.208" "0.019" "11277.567" "21741.617" "199.963" }
    { "0.224" "-0.027" "11278.874" "21738.819" "199.963" }
  }
}]

set status [ SclFunction "LOCATE BEARING" {
  select_point={
    {
      winx="0.031"
      winy="-0.637"
      objectx="11263.383"
      objecty="21701.695"
      objectz="199.963"
    }
  }
  frm00030={
    {
      _action=display
      design_grade="0"
      bearing="244.3332"
      distance="5"
      units="angle"
    }
  }
}]

set status [ SclFunction "CURVE END" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.031" "-0.637" "11263.383" "21701.695" "199.963" }
    { "-0.029" "-0.677" "11258.531" "21699.270" "199.963" }
  }
  frm00057={
    {
      _action=display
      dirn="A"
      radius="30"
      ang_or_length="A"
      clen="79.3332"
      arcdist="3"
    }
  }
}]

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

set status [ SclFunction "GRADE SEGMENT" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.115" "0.819" "11278.013" "21741.792" "199.964" }
    { "-0.201" "-0.098" "11242.828" "21664.457" "199.980" }
  }
  frm00130={
    {
      units="percentage"
      design_grade="15"
      circular_arcs="Y"
    }
  }
}]

set status [ SclFunction "IDENTIFY POINT" {
  select_point={
    {
      winx="-0.201"
      winy="-0.104"
      objectx="11242.828"
      objecty="21664.211"
      objectz="214.066"
    }
  }
}]

set status [ SclFunction "GRAPHICAL SEGMENT BREAK" {
  world_drag={
    {
      objectx="11278.130"
      objecty="21740.118"
      objectz="200.218"
      dx="0.029"
      dy="0.072"
      dz="-0.001"
    }
  }
}]

set status [ SclFunction "SEGMENT MOVE BY BEARING AND DIP" {
  select_point={
    {
      winx="-0.055"
      winy="-0.107"
      objectx="11261.754"
      objecty="21700.808"
      objectz="207.315"
    }
  }
  frm00600={
    {
      _action=display
      bearing_angle_units="(decimal degrees)"
      dip_angle_units="(decimal degrees)"
      bearing="154.333"
      dip="0"
      distance="19.54"
    }
  }
}]

set status [ SclFunction "GRAPHICAL SEGMENT JOIN" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.182" "0.693" "11277.662" "21741.360" "199.972" }
    { "0.326" "0.292" "11287.331" "21720.944" "200.440" }
  }
}]


set status [ SclFunction "GRADE SEGMENT" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.120" "0.445" "11277.971" "21741.462" "199.971" }
    { "-0.136" "-0.742" "11251.166" "21647.451" "214.020" }
  }
  frm00130={
    {
      _action=display
      units="percentage"
      design_grade="15"
      circular_arcs="Y"
    }
  }
}]

set status [ SclFunction "IDENTIFY POINT" {
  select_point={
    {
      winx="-0.138"
      winy="-0.739"
      objectx="11250.922"
      objecty="21647.752"
      objectz="216.963"
    }
  }
}]

set status [ SclFunction "LOCATE BEARING" {
  select_point={
    {
      winx="0.011"
      winy="-0.303"
      objectx="11250.992"
      objecty="21646.377"
      objectz="216.990"
    }
  }
  frm00030={
    {
      _action=display
      design_grade="0"
      bearing="165"
      distance="100"
      units="angle"
    }
  }
}]

set status [ SclFunction "MODE CHANGE" {} ]

set status [ SclFunction "INTERSECT LINES" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.213" "-0.720" "11276.643" "21550.631" "216.992" }
    { "0.057" "0.074" "11251.614" "21647.362" "216.971" }
    { "-0.199" "-0.364" "11210.522" "21593.955" "216.968" }
    { "-0.108" "-0.334" "11225.091" "21597.689" "216.970" }
  }
}]

set status [ SclFunction "SNAP POINT" {} ]

set status [ SclFunction "POINT INSERT" {
  world_drag={
    {
      objectx="11261.562"
      objecty="21607.740"
      objectz="216.979"
      dx="-36.574"
      dy="-9.799"
      dz="0.004"
    }
  }
  frm00105={
    {
      _action=display
      ynew="21597.941"
      xnew="11224.988"
      znew="216.983"
      desc="78.0"
    }
  }
}]


set status [ SclFunction "MODE INSERT" {} ]

set status [ SclFunction "CURVE TANGENT" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.057" "0.068" "11251.614" "21646.616" "216.985" }
    { "0.122" "-0.248" "11262.074" "21608.147" "216.989" }
    { "0.122" "-0.248" "11262.074" "21608.147" "216.989" }
    { "-0.110" "-0.331" "11224.717" "21598.063" "216.962" }
  }
  frm00058={
    {
      _action=display
      radius="20"
      arcdist="2"
      curve_type="internal"
      use_transition="N"
    }
  }
}]

set status [ SclFunction "SAVE FILE AS" {
  output_file="ugdes1.str"
  output_type="Surpac String Files"
  output_filenames=""
  Surpac={
    Purpose=""
    range=""
    FileFormat="text"
    ForceValidation="true"
    ForceCompatibility="true"
  }
  frm00121={
    {
      _action=display
      _action="apply"
    }
  }
}]
puts ""
puts ""
puts ""
puts "macro _03_create_main_decline.tcl completed"
puts ""
