######################################################################
#
# Macro Name    : c:/users/public/gemcom/surpac/64_beta_2/demo_data/tutorials/pit_design/_09_and_again.tcl
#
# Version       : Surpac 6.4 beta 2
#
# Creation Date : Tue Jan 15 11:44:35 2013
#
# Description   : 
#
######################################################################
#macros 5, 6, 7, and 8

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"
    }
  }
}]

set status [ SclFunction "LAYERS" {
  frm00193={
    {
      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={
    {
      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"
    }
  }
}]

# macro 9

set status [ SclFunction "ACTIVATE PLANE" {
  type="Plan view"
  group="BM_sections"
  plane="885El"
}]

set status [ SclFunction "EXPAND SEGMENT BY BENCH HEIGHT" {
  select_point={
    {
      winx="0.274"
      winy="0.134"
      objectx="226.864"
      objecty="696.329"
      objectz="880.000"
      snap_projection="off"
    }
  }
  frm05006={
    {
      _action=display
      bench_height="10"
      limit_z_value="9999"
      z_direction="up"
      horizontal_direction="expand"
    }
  }
}]

set status [ SclFunction "EXPAND SEGMENT BY BERM WIDTH" {
  select_point={
    {
      winx="0.410"
      winy="-0.480"
      objectx="238.231"
      objecty="663.050"
      objectz="890.002"
      snap_projection="off"
    }
  }
  frm05008={
    {
      _action=display
      horizontal_direction="expand"
      bench_width="5"
      limiting_elevation="0"
      bench_creation_method="always"
      bench_gradient="0"
      bench_width_method="block model"
      berm_attribute="berm_width"
      delta_z_limit="0"
      switchback={
        {
          add_switchback="N"
          ramp_name="Ramp#1"
          switchback_angle="180"
          switchback_inner_radius="2.5"
        }
      }
    }
  }
}]

set status [ SclFunction "ACTIVATE PLANE" {
  type="Plan view"
  group="BM_sections"
  plane="895El"
}]

set status [ SclFunction "EXPAND SEGMENT BY BENCH HEIGHT" {
  select_point={
    {
      winx="-0.387"
      winy="0.293"
      objectx="171.537"
      objecty="704.957"
      objectz="890.002"
      snap_projection="off"
    }
  }
  frm05006={
    {
      _action=display
      bench_height="10"
      limit_z_value="9999"
      z_direction="up"
      horizontal_direction="expand"
    }
  }
}]

set status [ SclFunction "EXPAND SEGMENT BY BERM WIDTH" {
  select_point=table { winx winy objectx objecty objectz snap_projection } {
    { "0.469" "0.849" "243.161" "735.086" "900.003" "off" }
    { "-0.772" "0.500" "139.354" "716.187" "900.003" "off" }
  }
  frm05008={
    {
      _action=display
      horizontal_direction="expand"
      bench_width="5"
      limiting_elevation="0"
      bench_creation_method="always"
      bench_gradient="0"
      bench_width_method="block model"
      berm_attribute="berm_width"
      delta_z_limit="0"
      switchback={
        {
          add_switchback="N"
          ramp_name="Ramp#1"
          switchback_angle="180"
          switchback_inner_radius="2.5"
        }
      }
    }
    {
      _action="cancel"
    }
  }
}]


puts ""
puts ""
puts " Macro _09_expand_bench_height_berm_width.tcl completed"
puts ""