######################################################################
#
# Macro Name    : c:/users/public/gemcom/surpac/63/demo_data/tutorials/pit_design/_04_add_slope_values_to_blockmodel.tcl
#
# Version       : Surpac 6.3
#
# Creation Date : Thu Apr 05 13:12:59 2012
#
# Description   : 
#
######################################################################

set status [ SclFunction "EXIT GRAPHICS" {} ]

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

set status [ SclFunction "BM GRAPHICS DRAW" {
  frm20503={
    {
      _action=display
      display="normal"
      constraint="N"
      slice="N"
      rescale="Y"
      all_blocks="N"
      cloud_marker="."
      cloud_size="4"
    }
  }
}]

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

set status [ SclFunction "DRAW DESC" {
  frm00089={
    {
      _action=display
      range1=""
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="Centroid"
      layer_name="slo1.str"
    }
  }
}]

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

set status [ SclFunction "VIEW BY BEARING" {
  frm00289={
    {
      _action=display
      bearing="30"
      dip="-6"
    }
  }
}]

set status [ SclFunction "BM MODEL SUMMARY" {} ]

set status [ SclFunction "BM ADD ATTRIBUTE" {
  frm20150={
    {
      _action=display
      attributes=table { name type decimals bgv description } {
        { "face_angle" "integer" null "40" "batter angle (from toe to crest)" }
        { "berm_width" "float" "1" "10" "berm width" }
      }
    }
  }
}]

set status [ SclFunction "BM ASSIGN FROM STRING" {
  frm20270={
    {
      _action=display
      location="slo"
      id="1"
      str=""
      seg=""
      dfields=table { dfield att } {
        { "D1" "face_angle" }
        { "D2" "berm_width" }
      }
      axis="Z"
      constrain="Y"
    }
  }
  frm20111={
    {
      _action=display
      constraints=table { not op contype location id rnga rngb lbound ubound ext } {
        { "NOT" "ABOVE" "DTM" "weathering_contact.dtm" "" "1" "1" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
      }
      conexp=""
      confile="fresh_rock"
      keep_blocks="N"
    }
  }
  frm00121={
    {
      _action=display
    }
  }
}]

set status [ SclFunction "BM GRAPHICS ATTRIBUTE COLOUR" {
  frm20504={
    {
      _action=display
      first_colour="blue"
      attribute="face_angle"
      smooth_transition="Y"
      transparency_percentage="0"
      block_model_transparency="N"
      default_face="pink"
      range=""
      numdecimals="2"
      styles_file=""
      save_now="N"
      load_styles_file="ssi_styles:bm_colours.ssi"
      last_colour="red"
      default_edge="blue"
      attribute_list=table { color char_attrib } {
        { "blue" "40" }
        { "r=0.00 g=1.00 b=0.67" "65" }
        { "r=0.67 g=1.00 b=0.00" "70" }
        { "red" "75" }
      }
    }
  }
}]

set status [ SclFunction "BM SAVE MODEL" {
  frm00121={
    {
      _action=display
    }
  }
}]

set status [ SclFunction "BM GRAPHICS BLOCK ID" {
  select_block=table { winx winy objectx objecty objectz } {
    { "-0.014" "-0.269" "70.035" "430.778" "918.168" }
    { "0.019" "-0.045" "83.045" "400.093" "1018.385" }
  }
  frm20505=table { _action } {
    { "apply" }
    { "apply" }
  }
}]

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

set status [ SclFunction "TOOL CANCEL CURRENT" {} ]

puts ""
puts ""
puts " Macro _04_add_slope_values_to_blockmodel.tcl completed"
puts ""

