######################################################################
#
# Macro Name    : c:/tutorials/underground_ring_design/data_20060609rb/06_plotting.tcl
#
# Version       : Surpac Vision V5.1-F
#
# Creation Date : Fri Jun 30 11:17:44 2006
#
# Description   : 
#
######################################################################

set plot_ed [SclSystemOption get {plot_editor}]
puts "plot editor setting was initially $plot_ed and is now surpac"
SclSystemOption set "plot_editor" "surpac"

set status [ SclFunction "EXECUTE OS COMMAND" {
  frm00462={
    {
      os_cmd="del *.?f"
    }
  }
}]

set status [ SclFunction "EXECUTE OS COMMAND" {
  frm00462={
    {
      os_cmd="del *.tmp"
    }
  }
}]

set status [ SclFunction "EXECUTE OS COMMAND" {
  frm00462={
    {
      os_cmd="del *.par"
    }
  }
}]

set status [ SclFunction "SAVE RD PLOT" {
  frm70052={
    {
      _action=display
      locn="1055_4nw"
      rid="9"
    }
  }
  frm70043={
    {
      _action=display
      ring_no="9"
    }
  }
}]

set status [ SclFunction "ENTITY DELETE" {
  frm00223={
    {
      main=table { entity_name } {
        { "RIG PIVOT" }
        { "RING BLAST HOLE" }
        { "RING HOLE" }
        { "RING NOTE" }
      }
    }
  }
  frm00221={
    {
      _action="apply"
    }
  }
}]

set status [ SclFunction "MAP DELETE" {
  frm00327={
    {
      main=table { map_name } {
        { "RING BLAST EX1" }
        { "RING EX1" }
      }
    }
  }
  frm00221={
    {
      _action="apply"
    }
  }
}]

set status [ SclFunction "ENTITY LOAD" {
  frm00224={
    {
      name="entity.txt"
    }
  }
}]

set status [ SclFunction "MAP LOAD" {
  frm00224={
    {
      name="map.txt"
    }
  }
}]

set status [ SclFunction "MAP MODIFY" {
  frm00331={
    {
      map_name="RING EX1"
    }
  }
  frm00230={
    {
      _action=display
      main=table { entity_name location id_range string_range segment_range } {
        { "_RING HOLE" "1055_4NW" "9" "1,999" "" }
        { "LINE/PN4" "1055_4NW" "9" "1001,1002" "" }
        { "LINE/PN4" "1055_4NW" "9" "2003" "" }
        { "_RIG PIVOT/PN6" "1055_4NW" "9" "32000" "" }
        { "_RING NOTE" "1055_4NW" "9" null null }
      }
    }
  }
}]

set status [ SclFunction "PROCESS MAP" {
  frm00332={
    {
      main={
        {
          map_name="RING EX1"
        }
      }
    }
  }
  frm00226={
    {
      _action=display
      xscale="150"
      yscale="150"
      sheet="A4"
      border="BORD"
      drawsp="DRAW"
      grid=""
      title="NMA3"
      orient="NF"
      quad="NE"
      unit="M"
      over="N"
      txtrot="Y"
      display_plot="Y"
    }
  }
  frm00232={
    {
      _action=display
      line1="Ring #9"
      line2="Stope 4NW"
      line3="Drive 1055"
    }
  }
  frm00229={
    {
      _action=display
      yref="-3"
      xref="-15"
    }
  }
}]

SclSystemOption set plot_editor $plot_ed

puts "plot editor setting is now reset to $plot_ed"
puts ""
puts ""
puts ""
puts ""
puts "End of macro 06_plotting.tcl"
puts ""
puts ""
