######################################################################
#
# Macro Name    : c:/users/public/gemcom/surpac/64_beta_2/demo_data/tutorials/solids/_8b_solids_intersection.tcl
#
# Version       : Surpac 6.4 beta 2
#
# Creation Date : Fri Nov 30 13:06:43 2012
#
# Description   : 
#
######################################################################

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

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

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

set status [ SclFunction "ZOOM ALL" {} ]

set status [ SclFunction "TRISOLATION 3DM/3DM INTERSECT" {
  frm00635={
    {
      layer_name="layer_intersect"
      object_no="1"
    }
  }
  select_triangle=table { winx winy objectx objecty objectz } {
    { "-0.283" "-0.020" "4662.291" "5590.730" "746.159" }
    { "-0.229" "-0.027" "4675.829" "5589.330" "755.183" }
  }
}]

puts ""
puts ""
puts "Macro 08b_solids_intersection.tcl completed."
puts ""

