######################################################################
#
# Macro Name    : c:/users/public/gemcom/surpac/64_beta_2/demo_data/tutorials/pit_design/_10_and_again.tcl
#
# Version       : Surpac 6.4 beta 2
#
# Creation Date : Tue Jan 15 13:13:11 2013
#
# Description   : 
#
######################################################################

#macros 5, 6, 7, 8, and 9

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

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

# macro 10

set status [ SclFunction "ZOOM ALL" {} ]

set status [ SclFunction "ZOOM IN" {} ]

set status [ SclFunction "ZOOM IN" {} ]

set status [ SclFunction "IDENTIFY POINT" {
  select_point={
    {
      winx="-0.351"
      winy="0.263"
      objectx="184.213"
      objecty="752.250"
      objectz="900.047"
      snap_projection="off"
    }
  }
}]

set status [ SclFunction "DRAW MARKERS" {
  frm00089={
    {
      _action=display
      range1="5"
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="All points"
      layer_name="bas880.str"
    }
  }
}]

set status [ SclFunction "POINT MOVE" {
  world_drag=table { snap_mode snap_projection objectx objecty objectz dx dy dz } {
    { "off" "off" "166.493" "729.834" "900.047" "-3.416" "75.148" "0.000" }
    { "off" "off" "171.831" "738.374" "900.047" "-4.270" "70.451" "0.000" }
    { "off" "off" "177.595" "745.205" "900.047" "-6.405" "64.901" "0.000" }
    { "off" "off" "185.281" "753.318" "900.047" "-7.259" "57.002" "0.000" }
    { "off" "off" "196.809" "755.666" "900.047" "-13.236" "52.518" "0.000" }
    { "off" "off" "206.203" "756.307" "900.047" "-14.731" "43.552" "0.000" }
    { "off" "off" "217.304" "755.453" "900.047" "-16.225" "32.877" "0.000" }
    { "off" "off" "219.866" "753.531" "900.047" "-3.416" "8.753" "0.000" }
    { "off" "off" "200.865" "788.971" "900.047" "-0.854" "-1.708" "0.000" }
    { "off" "off" "162.437" "805.196" "900.047" "0.427" "-1.494" "0.000" }
    { "off" "off" "166.493" "808.612" "900.047" "-1.708" "-0.427" "0.000" }
    { "off" "off" "171.190" "810.106" "900.047" "-0.213" "0.854" "0.000" }
    { "off" "off" "177.168" "810.106" "900.047" "0.427" "0.854" "0.000" }
    { "off" "off" "162.651" "803.701" "900.047" "2.135" "-0.214" "0.000" }
    { "off" "off" "164.572" "809.039" "900.047" "2.348" "-1.067" "0.000" }
    { "off" "off" "170.550" "810.960" "900.047" "1.281" "-1.281" "0.000" }
    { "off" "off" "177.381" "810.747" "900.047" "0.427" "-1.281" "0.000" }
    { "off" "off" "183.359" "808.398" "900.047" "0.000" "-0.854" "0.000" }
    { "off" "off" "184.000" "807.544" "900.047" "2.989" "0.000" "0.000" }
    { "off" "off" "179.089" "809.252" "900.047" "1.067" "0.214" "0.000" }
    { "off" "off" "172.044" "810.106" "900.047" "2.775" "-0.213" "0.000" }
    { "off" "off" "166.707" "807.117" "900.047" "3.629" "0.214" "0.000" }
    { "off" "off" "165.640" "803.274" "900.047" "2.775" "1.068" "0.000" }
  }
}]

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

SclPause 2

set status [ SclFunction "EXPAND SEGMENT BY BENCH HEIGHT" {
  select_point={
    {
      winx="-0.070"
      winy="0.316"
      objectx="220.933"
      objecty="756.734"
      objectz="900.047"
      snap_projection="off"
    }
  }
  frm05006={
    {
      _action=display
      bench_height="10"
      limit_z_value="9999"
      z_direction="up"
      horizontal_direction="expand"
    }
  }
}]

set status [ SclFunction "FILE SAVE" {
  frmsaveFileAs={
    {
      _action=display
      AutoCAD={
        version="Autocad 24 (2010)"
      }
      output_file="pit910"
      outputExt=".str"
      saveStyle="N"
      Datamine={
        binary_precision="Double"
      }
      saveStyleFileName=""
      Surpac={
        FileFormat="text"
        ForceValidation="true"
        Purpose=""
        ForceCompatibility="true"
        range=""
      }
      output_type="Surpac String Files"
    }
  }
  frm00121={
    {
      _action=""
    }
  }
}]

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

set status [ SclFunction "DELETE LAYER" {
  layer="bas880.str"
}]

set status [ SclFunction "WORKSPACE SAVE" {
  frm01301={
    {
      _action=display
      file="pit910"
    }
  }
  frm00121={
    {
      _action=""
    }
  }
}]

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "BM EXIT" {} ]


puts ""
puts ""
puts " Macro _10_edit_design.tcl completed"
puts ""