######################################################################
#
# Macro Name    : c:/sce_testing/0_after_19_9_05/blast_tutorial/05b_blast_work_order.tcl
#
# Version       : Surpac Vision V5.2-B Beta
#
# Creation Date : Thu Jan 19 13:50:08 2006
#
# Description   : 
#
######################################################################

set status [ SclFunction "GEOLOGY DATABASE DISCONNECT" {} ]

set status [ SclFunction "EXIT GRAPHICS" {} ]

set form {
  GuidoForm form_1 {
    -default_buttons
    -label "Blast Work Order Report"
    GuidoPanel panel_1 {
    -layout BoxLayout Y_AXIS
      GuidoTextArea gainfocus {
      -visible true
      -default "This text area is here to remove focus and highlighting from the second GuidoTextArea
                This text area must have visible set to true in order to gain focus"
      -height 0
      -width 0
      }
      GuidoLabel space {
      -height 0.5
      }
      GuidoScrollPane scroll_1 {
      -label ""
      -height 12
      -width 50
        GuidoTextArea text_1 {
        -format none
        -linewrap true
        -wrap_style_word true
        -linewrap true
        -input true
        -font_highlight 0 0 0
        -default "
This exercise demonstrates how to generate a blast work order report, using a blast design and a solid created from the blast pattern.

First recall the pit pickup string file and blast pattern from the blast database, and have a look at the data.

When the macro pauses click in graphics to continue

After having a look at each form, apply it to continue

"
        }
      }
      GuidoLabel space {
      -height 0.5
      }
    }
  }
}

SclCreateGuidoForm form_handle $form {
}

$form_handle SclRun {
}

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

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

set status [ SclFunction "CHECK DATABASE CONNECTED" {} ]

set status [ SclFunction "DRILLHOLE ATTRIBUTES" {
  _action=display
  trace_colour="forest green"
  trace_thickness="1"
  legend_location="no legend"
  table=""
  field=""
  tick_mark_weight="1"
  rescale="true"
  add_constraint="true"
  cylinder_style="no cylinders"
  cylinder_radius="0.000"
  cylinder_maximum="0.0"
  show_collars="true"
  frm00012={
    {
      cons={
        {
          _action=display
          field="blast_pattern"
          operator="="
          value="bp1"
        }
      }
    }
  }
}]

set status [ SclFunction "DRILLHOLE COLLARS" {
  show_collars="true"
  collar_marker="(+)"
  collar_marker_size="0.5"
  position="along path"
  num_rows="0"
}]

set status [ SclFunction "DRILLHOLE GEOLOGY" {
  num_rows="0"
}]

set status [ SclFunction "DRILLHOLE LABELS" {
  tick_length="1.0"
  num_rows="0"
}]

set status [ SclFunction "DRILLHOLE GRAPHS" {
  num_rows="0"
}]

set status [ SclFunction "DRILLHOLE DEPTH MARKERS" {
  position="left"
  offset="5.0"
  decimals="2"
  use_styles="false"
  colour=""
  font_style="Default"
  font_size="1.000"
  font_units="oru"
  alignment="right"
  major="10.0"
  minor="0.0"
  display="false"
  major_length="3.0"
  minor_length="1.0"
}]

set status [ SclFunction "DRILLHOLE APPARENT DIP MARKERS" {
  num_rows="0"
}]

set status [ SclFunction "ZOOM IN" {} ]

########### pause here, wait for user response (say enter key), then proceed

puts ""
puts ""
puts ""
puts ""
puts "Click in graphics to continue."
puts ""
puts ""

SclPause

set status [ SclFunction "BLAST WORK ORDER" {
  frm11113={
    {
      _action=display
      header1="Tutorial"
      header2="Immediate"
      header3="Blast Today 5-00pm"
      location="work_order_bp"
      id="1"
      reportFormat=".not - Surpac Note File"
      reportType="detailed"
      threeDMLocation="solid_bp"
      threeDMid="1"
      patternType="Unique"
      pattern="BP1"
      patterns={
        {
          pattern_name=""
        }
      }
    }
  }
  frm11116={
    {
      _action=display
      override="N"
      objectProperty={
        {
          pattern="BP1"
          rmc="Laterite"
        }
      }
    }
  }
}]

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

puts ""
puts ""
puts ""
puts ""
puts "Macro 05b_blast_work_order completed."
puts ""
puts ""