######################################################################
#
# Macro Name    : _08_define_new_ramp.tcl
#
# Version       : Surpac 6.3
#
# Creation Date : Thu Apr 05 13:37:34 2012
#
# Description   : 
#
######################################################################

#macros 5, 6, and 7

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "BM EXIT" {
  frm20103={
    {
      exit_mode="S"
    }
  }
}]

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

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

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

set status [ SclFunction "ZOOM ALL" {} ]

set status [ SclFunction "SLICING PLANES" {
  frm00298={
    {
      forward="11"
      backward="1"
      method="Elevation"
      plane_thickness=""
      step_distance=""
      value="880,1100,10"
      sectionBlockModel="N"
      block_layer="block sections"
      tolerance="0"
      section_objects="N"
      object_range=""
      object_layer="object sections"
      confirm_line_ends="N"
      interval_range="range"
      colour_fill_bm_sections="N"
      zoom_plane="Y"
      view_limits="N"
      display_planes="N"
      use_interactive="N"
      colour_method="No change"
      trace_colour="jungle green"
    }
  }
}]

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


set status [ SclFunction "DESIGN SLOPE METHOD" {
  frm05004={
    {
      slope_attribute="face_angle"
      slope_method="block model"
    }
  }
}]

#macro 8

set status [ SclFunction "LAYERS" {
  frm00193={
    {
      _action=display
      active_layer="bas880.str"
      global_visibility=""
      global_selectable=""
      global_faces=""
      global_edges=""
      global_shading=""
      global_edge_lighting=""
      global_colour_interpolation=""
      scroll=table { visibility selectable faces edges shading edge_lighting colour_interpolation } {
        { "on" "y" "on" "off" "none" "off" "on" }
        { "on" "n" "on" "off" "none" "off" "on" }
        { "on" "n" "on" "off" "none" "off" "on" }
        { "on" "y" "on" "off" "none" "off" "on" }
      }
    }
  }
}]


set status [ SclFunction "DEFINE NEW RAMP" {
  select_point=table { winx winy objectx objecty objectz snap_projection } {
    { "-0.261" "-0.723" "178.710" "649.829" "880.000" "off" }
    { "-0.088" "-0.712" "195.418" "650.442" "880.000" "off" }
  }
  frm05011={
    {
      _action=display
      ramp_name="Ramp#1"
      ramp_string="100"
      ramp_type="anti-clockwise"
      ramp_width="15"
      ramp_gradient="6.667"
      ramp_grade_calc_method="inside edge"
      berm_crossing_method="exit at toe"
      berm_taper_distance="30"
      switchback_angle="180"
      switchback_inner_radius="2.5"
    }
  }
}]

puts ""
puts ""
puts " Macro _08_define_new_ramp.tcl completed"
puts ""

