######################################################################
#
# Macro Name    : 04d_rerecorded.tcl
#
# Version       : Surpac 6.4 
#
# Creation Date : Wed Jan 16 13:44:35 2013
#
# Description   : 
#
######################################################################

# macros 4b and 4c

set status [ SclFunction "DELETE CUTTING PLANES" {} ]

set status [ SclFunction "DELETE PLANE" {
  type="Vertical sections"
  group="crossSections"
  frmdeletePlaneConfirm={
    {
      _action=""
    }
  }
}]


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

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "RECALL ANY FILE" {
  file="03c_display_drillholes_with_styles.tcl"
  mode="openInNewLayer"
}]

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

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

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

set status [ SclFunction "SECTION" {} ]

set status [ SclFunction "QUICK PLANES" {
  frmQuickPlanes={
    {
      values="7120,7600,40"
      oblique_definition_method="Digitised endpoints"
      end="7700.000"
      start="7100.000"
      plane_type="Northing"
      looking_north="Looking north"
      group="crossSections"
      extension="N"
      looking_west="Looking west"
      towards="20.000"
      definition_method="Specific values"
      away="20.000"
      looking_down="Looking down"
      save="true"
      interval="100.000"
      two_d="false"
    }
  }
}]

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "DELETE CUTTING PLANES" {} ]

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_training"
  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"
  collar_offset="0.0"
  num_rows="0"
}]

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

set status [ SclFunction "DRILLHOLE LABELS" {
  tick_length="1.0"
  tbl={
    "geology"
    "sample"
  }
  fld={
    "lithology"
    "gold"
  }
  position={
    "right"
    "left"
  }
  offset={
    "1.0"
    "3.0"
  }
  decimals={
    "-1"
    "2"
  }
  use_styles={
    "true"
    "true"
  }
  colour={
    ""
    ""
  }
  font_style={
    "Default"
    "Default"
  }
  font_size={
    "1.0"
    "1.0"
  }
  font_units={
    "oru"
    "oru"
  }
  alignment={
    "left"
    "left"
  }
  combine={
    "true"
    "true"
  }
  minValue={
    ""
    ""
  }
  maxValue={
    ""
    ""
  }
  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"
}]

set status [ SclFunction "ZOOM ALL" {} ]

set status [ SclFunction "SECTION" {} ]

# macro 4d

set status [ SclFunction "ACTIVATE PLANE" {
  type="Vertical sections"
  group="crossSections"
  plane="7280N"
}]

set status [ SclFunction "ZOOM IN" {} ]

set status [ SclFunction "ZOOM IN" {} ]

set status [ SclFunction "PAN VIEW" {
  window_drag=table { winx1 winy1 winx2 winy2 objectx1 objecty1 objectz1 objectx2 objecty2 objectz2 } {
    { "0.925" "0.833" "0.925" "0.833" "1732.106" "7367.889" "170.114" "1732.106" "7367.889" "170.114" }
    { "0.925" "0.864" "0.491" "0.614" "1732.106" "7367.889" "172.113" "1686.802" "7367.889" "156.123" }
    { "0.783" "0.812" "0.639" "0.697" "1762.587" "7367.889" "184.772" "1747.596" "7367.889" "177.443" }
  }
}]

set status [ SclFunction "DIGITISER" {
  frm00083={
    {
      _action=display
      string="1"
      desc=""
      snaptoplane="TRUE"
      retain=""
      section_mode_retain="5"
    }
  }
}]

set status [ SclFunction "NEW LAYER" {
  frm00488={
    {
      _action=display
      swa_name="ore_interp"
    }
  }
}]

set status [ SclFunction "DIGITISER DIGITISE" {
  digitise_point={
    {
      winx="0.628"
      winy="0.739"
      objectx="1761.421"
      objecty="7279.872"
      objectz="187.437"
      mousebutton="1.000"
      snap_projection="on"
    }
    {
      winx="0.686"
      winy="0.715"
      objectx="1767.417"
      objecty="7279.872"
      objectz="185.938"
      mousebutton="1.000"
      snap_projection="on"
    }
    {
      winx="0.692"
      winy="0.640"
      objectx="1768.083"
      objecty="7279.872"
      objectz="181.107"
      mousebutton="1.000"
      snap_projection="on"
    }
    {
      winx="0.631"
      winy="0.598"
      objectx="1761.754"
      objecty="7279.872"
      objectz="178.442"
      mousebutton="1.000"
      snap_projection="on"
    }
    {
      snap_mode="point"
    }
    {
      winx="0.583"
      winy="0.580"
      objectx="1756.757"
      objecty="7279.872"
      objectz="177.276"
      snap_projection="on"
    }
    {
      winx="0.363"
      winy="-0.044"
      objectx="1733.772"
      objecty="7278.036"
      objectz="137.469"
      snap_projection="on"
    }
  }
}]

SclPause 2

set status [ SclFunction "DIGITISER MIDPOINT" {
  select_point=table { winx winy objectx objecty objectz snap_projection } {
    { "0.309" "-0.047" "1728.109" "7278.036" "137.302" "on" }
    { "-0.202" "-0.890" "1674.809" "7280.659" "83.503" "on" }
    { "-0.208" "-0.514" "1674.143" "7280.659" "107.488" "on" }
    { "0.309" "0.081" "1728.109" "7278.036" "145.463" "on" }
  }
}]

set status [ SclFunction "DIGITISER DIGITISE" {
  digitise_point=table { winx winy objectx objecty objectz snap_projection } {
    { "0.307" "0.094" "1727.942" "7278.036" "146.296" "on" }
    { "0.534" "0.682" "1751.594" "7279.872" "183.772" "on" }
  }
}]

SclPause 2

set status [ SclFunction "DIGITISER CLOSE SEGMENT" {} ]

set status [ SclFunction "DIGITISER DIGITISE" {} ]

set status [ SclFunction "FILE SAVE" {
  frmsaveFileAs={
    {
      _action=display
      AutoCAD={
        version="Autocad 24 (2010)"
      }
      output_file="interp7280"
      outputExt=".str"
      saveStyle="N"
      Datamine={
        binary_precision="Double"
      }
      saveStyleFileName="SSI_STYLES:styles.ssi"
      Surpac={
        FileFormat="text"
        ForceValidation="true"
        Purpose=""
        ForceCompatibility="true"
        range=""
      }
      output_type="Surpac String Files"
    }
  }
  frm00121={
    {
      _action=""
    }
  }
}]

puts  ""
puts  ""
puts  "Macro 04d_digitise_ore_outline.tcl completed."
puts  ""