######################################################################
#
# Macro Name    : c:/surpacminex/surpac_60/demo_data/tutorials/plotting/_display_drillhole_section.tcl
#
# Version       : Surpac 6.0
#
# Creation Date : Tue Apr 24 12:14:50 2007
#
# Description   : 
#
######################################################################

set plot_ed [SclSystemOption get {plot_editor}]
puts "plot editor setting was initially $plot_ed and is now surpac"
SclSystemOption set "plot_editor" "surpac"

set status [ SclFunction "EXIT GRAPHICS" {} ]

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

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


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

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

set status [ SclFunction "CHECK DATABASE CONNECTED" {
  databasesession="GeologyDatabase"
  databasepurpose="drillholes"
  databasehandle="GEOLOGY"
}]

set status [ SclFunction "GET DATABASE HANDLE" {
  sessionType="GeologyDatabase"
  DatabaseHandle="GEOLOGY"
  DatabaseType="drillholes"
  DatabaseName="surpac"
  result=1
}]

set status [ SclFunction "DRILLHOLE ATTRIBUTES" {
  trace_colour="forest green"
  trace_thickness="1"
  table=""
  field=""
  tick_mark_weight="1"
  rescale="true"
  add_constraint="true"
  cylinder_style="no cylinders"
  cylinder_radius="1.000"
  cylinder_maximum="50.0"
  show_collars="true"
  frm00012={
    {
      cons={
        {
          field=""
          operator="="
          value=""
        }
      }
    }
  }
}]

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 "2D GRID" {
  frm00140={
    {
      sectionGridPos="Behind"
      zgrid_inc=""
      yExtentMinCustom="7120"
      longSectionGridPos="None"
      xExtentMinCustom="1200"
      xgrid_inc="50"
      xlabel_inc="2"
      xExtentsBox="Custom"
      grid_line_colour="r=0.2 g=0.4 b=1.0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               "
      ylabel_inc="1"
      gridFile=""
      grid_text_colour="r=1.0 g=0.0 b=1.0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               "
      yExtentMaxCustom="7600"
      xExtentMaxCustom="2050"
      ygrid_inc="40"
      zlabel_inc="1"
      yExtentsBox="Custom"
      replaceCurrentGrid="Y"
      grid="above"
      grid_plane_value=""
      planGridPos="Below"
    }
  }
}]

set status [ SclFunction "SLICING PLANES" {
  frm00298={
    {
      _action=display
      forward="20"
      backward="20"
      method="Northing"
      plane_thickness=""
      step_distance="20"
      value="7120,7600,40"
      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 "VIEWING PLANES FORWARD" {} ]

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

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

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

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

set status [ SclFunction "CHECK DATABASE CONNECTED" {
  databasesession="GeologyDatabase"
  databasepurpose="drillholes"
  databasehandle="GEOLOGY"
}]

set status [ SclFunction "GET DATABASE HANDLE" {
  sessionType="GeologyDatabase"
  DatabaseHandle="GEOLOGY"
  DatabaseType="drillholes"
  DatabaseName="surpac"
  result=1
}]

set status [ SclFunction "DRILLHOLE ATTRIBUTES" {
  trace_colour="forest green"
  trace_thickness="1"
  table=""
  field=""
  tick_mark_weight="1"
  rescale="false"
  add_constraint="false"
  cylinder_style="no cylinders"
  cylinder_radius="1.000"
  cylinder_maximum="50.0"
  show_collars="true"
}]

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" {
  tbl={
    "geology"
  }
  fld={
    "rock"
  }
  position={
    "left"
  }
  size={
    "1.0"
  }
  offset={
    "0.0"
  }
  num_rows="1"
}]

set status [ SclFunction "DRILLHOLE LABELS" {
  tick_length="1.0"
  tbl={
    "sample"
    "geology"
  }
  fld={
    "gold"
    "rock"
  }
  position={
    "right"
    "left"
  }
  offset={
    "1.0"
    "2"
  }
  decimals={
    "2"
    "-1"
  }
  use_styles={
    "true"
    "true"
  }
  colour={
    ""
    ""
  }
  font_style={
    "Default"
    "Default"
  }
  font_size={
    "1.0"
    "1.0"
  }
  font_units={
    "oru"
    "oru"
  }
  alignment={
    "left"
    "right"
  }
  combine={
    "true"
    "true"
  }
  num_rows="2"
}]

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

puts ""
SclSystemOption set plot_editor $plot_ed
puts "plot editor setting is now reset to $plot_ed"
puts ""
puts ""
puts "macro _display_drillhole_section.tcl  completed."
puts ""