######################################################################
#
# Macro Name    : c:/gemcom/surpac/surpacv6.1/tutorials/block_modelling/data_work/_10_viewing_the_data.tcl
#
# Version       : Surpac 6.1 Beta 6
#
# Creation Date : Tue Aug 26 14:25:40 2008
#
# Description   : 
#
######################################################################

set status [ SclFunction "RECALL ANY FILE" {
  file="blockmodel.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="1"
    }
  }
}]

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

set status [ SclFunction "BM GRAPHICS ATTRIBUTE COLOUR" {
  frm20504={
    {
      _action="display"
      first_colour="blue"
      attribute="grade"
      smooth_transition="Y"
      transparency_percentage="0"
      block_model_transparency="N"
      default_face="pink"
      range="0;6;8;999"
      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" "0.00 -> 6.00" }
        { "r=0.00 g=1.00 b=0.00" "6.00 -> 8.00" }
        { "red" "8.00 -> 999.00" }
      }
    }
  }
}]

set status [ SclFunction "BM GRAPHICS CONSTRAIN ADD" {
  frm20111={
    {
      _action="display"
      constraints=table { not op contype location id rnga rngb lbound ubound ext } {
        { "" ">" "BLOCK" "grade" "0" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
      }
      conexp=""
      confile=""
      keep_blocks="N"
    }
  }
}]

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

set status [ SclFunction "VIEW SCALE" {
  frm00290={
    {
      _action="display"
      xscale="1"
      yscale="1"
      zscale="5"
    }
  }
}]

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

set status [ SclFunction "RECALL ANY FILE" {
  file="blocktopo1.dtm"
  mode="openInNewLayer"
}]
set status [ SclFunction "VIEW BY BEARING" {
  frm00289={
    {
      _action="display"
      bearing="330"
      dip="-4"
    }
  }
}]


SclPause 4
set status [ SclFunction "DELETE LAYER" {
  layer="blocktopo1.dtm"
}]

set status [ SclFunction "SLICING PLANES" {
  frm00298={
    {
      _action="display"
      forward="17.5"
      backward="17.5"
      method="Northing"
      plane_thickness=""
      step_distance="17.5"
      value="50580,51580,250"
      sectionBlockModel="Y"
      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="Y"
      zoom_plane="Y"
      view_limits="N"
      display_planes="N"
      use_interactive="N"
      colour_method="No change"
      trace_colour="jungle green"
    }
  }
}]

set status [ SclFunction "VIEWING PLANES FORWARD" {} ]

SclPause 3

set status [ SclFunction "VIEWING PLANES FORWARD" {} ]

SclPause 3

set status [ SclFunction "VIEWING PLANES FORWARD" {} ]

SclPause 3

set status [ SclFunction "BM EXIT" {} ]

set status [ SclFunction "EXIT GRAPHICS" {
  frm00108={
    {
      exit_mode="E"
    }
  }
}]

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

puts ""
puts ""
puts "macro _10_viewing the data.tcl completed"
puts ""


