set status [ SclFunction "EXIT GRAPHICS" {} ]


set form {
  GuidoForm form_1 {
    -default_buttons
    -label "Data geometry and anisotropy"
    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 {
      -height 15
      -width 70
        GuidoTextArea text_1 {
        -wrap_style_word true
        -linewrap true
        -input true
        -font_highlight 0 0 0
        -default "
Prior to performing a geostatistical estimation of block model blocks, it is important to determine if there is an orientation of the data where there is more continuity than any other.

If there is no particular orientation of greatest continuity, an isotropic condition is said to exist. If, however, there is an orientation which has greater continuity than all others, an anisotropic condition is said to exist.

The determination of isotropy or anisotropy is performed by comparing the ranges of variograms in a variety of orientations.

A variogram map is a tool which can be used to determine the presence of anisotropy for a given plane.  The selection of the orientation of this plane can be determined by the geometry of the three-dimensional zone containing the data points.  In this example, the data are contained in a vein-type ore zone, which can be represented as a plane.  This plane will be used as the first, or primary variogram map."
        }
      }
      GuidoLabel space {
      -height 0.5
      }
    }
  }
}

SclCreateGuidoForm form_handle $form {
}

$form_handle SclRun {
}


set form {
  GuidoForm form_2 {
    -default_buttons
    -label "Data geometry and anisotropy"
    GuidoPanel panel_2 {
    -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_2 {
      -height 20
      -width 70
        GuidoTextArea text_2 {
        -wrap_style_word true
        -linewrap true
        -input true
        -font_highlight 0 0 0
        -default "
Geologists typically define the orientation of a planar feature, such as a vein-type ore zone with the terms 'strike' and 'dip'.  These terms typically contain non-numeric information, such as: 'Strike: North 15 degrees East, Dip: 40 degrees to the Northwest'.

The following numeric values are required to define a plane for a variogram map:

Dip (-90 to +90) and Dip direction (0 to 359)

For example, a plane defined as 'Striking N15E, Dipping 40 degrees to the NW' could be defined in Surpac as either:
Dip: -40   Dip direction: 285
or
Dip: +40   Dip direction: 105

A solid model of the ore zone, coloured by Z, and two triangles, representing the two methods of defining the planes above will be displayed.

The values of  Dip: +40   Dip direction: 105  will be used in this example."
        }
      }
      GuidoLabel space {
      -height 0.5
      }
    }
  }
}

SclCreateGuidoForm form_handle $form {
}

$form_handle SclRun {
}


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

set status [ SclFunction "BM EXIT" {
  frm20103={
    {
      exit_mode="E"
    }
  }
}]

set status [ SclFunction "EXIT GRAPHICS" {} ]

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

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


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

set status [ SclFunction "DRAW SHELLS" {
  frm00530={
    {
      range1=""
      range2=""
      range3=""
      grade_field="Z"
      false_colour_type="3"
      grade_range="0,250,50"
      legend_location="no legend"
      legend_title=""
      colours=table { colour } {
        { "r=0.4 g=0.0 b=0.8" }
        { "blue" }
        { "r=0.0 g=0.6 b=0.458" }
        { "green" }
        { "yellow" }
        { "" }
        { "" }
        { "" }
        { "" }
        { "" }
        { "" }
        { "" }
        { "" }
        { "" }
      }
      layer_name="ore_solid1.dtm"
    }
  }
}]

set status [ SclFunction "TOGGLE COLOUR INTERPOLATION" {} ]

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

set status [ SclFunction "ZOOM ALL" {} ]

set status [ SclFunction "DRAW POLYGONS" {
  frm00089={
    {
      range1="8,9"
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      legend_location="no legend"
      layer_name="strike_dip_plane1.str"
    }
  }
}]

set status [ SclFunction "3D GRID" {
  frm00140={
    {
      ygrid_inc="100"
      ylabel_inc="2"
      xgrid_inc="100"
      xlabel_inc="2"
      zgrid_inc="100"
      zlabel_inc="1"
      maximum=""
      minimum=""
    }
  }
}]

set status [ SclFunction "ZOOM FACTOR" {
  frm00326={
    {
      zoom_factor="1.2"
    }
  }
}]

set status [ SclFunction "ZOOM OUT" {} ]

set status [ SclFunction "ZOOM FACTOR" {
  frm00326={
    {
      zoom_factor="2"
    }
  }
}]

for {set dip -90} {$dip < -25} {set dip [expr $dip+5]} {

set status [ SclFunction "VIEW BY BEARING" {
  frm00289={
    {
      bearing="0"
      dip="$dip"
    }
  }
}]

SclPause 0.1

}

for {set bearing 0} {$bearing < 160} {set bearing [expr $bearing+5]} {

set status [ SclFunction "VIEW BY BEARING" {
  frm00289={
    {
      bearing="$bearing"
      dip="$dip"
    }
  }
}]

SclPause 0.1

}
puts ""
puts ""
puts " macro _05_data_geometry_and_anisotropy.tcl completed"
puts ""


