
set form {
  GuidoForm form_1 {
    -default_buttons
    -label "Experimental Variograms"
    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 10
      -width 50
        GuidoTextArea text_1 {
        -format none
        -linewrap true
        -wrap_style_word true
        -linewrap true
        -input true
        -font_highlight 0 0 0
        -default "
This macro usies the following Menu commands to calculate and save an experimental variogram.

1. Geostatistics > Variogram modelling
2. File > New > String file variogram
3. Display > Set axis limits
4. Display > Lag intervals
5. Variogram > Experimental variogram lag
6. Display > All orientations chart
7. File > Save > Experimental variogram
8. File > Close
"
        }
      }
      GuidoLabel space {
      -height 0.5
      }
    }
  }
}

SclCreateGuidoForm form_handle $form {
}

$form_handle SclRun {
}

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

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "VARIOGRAM MODELLING" {} ]

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

set status [ SclFunction "VG RELOAD" {
  frm20460={
    {
      _action=display
      location="gc_zone1_cut"
      id="130"
      str=""
      dfield="D1"
      minval=""
      maxval=""
      windows=table { azimuth plunge spread spr_limit chart_colour } {
        { "0" "0" "90" "" "black" }
        { "0" "0" "22.5" "" "black" }
        { "45" "0" "22.5" "" "black" }
        { "90" "0" "22.5" "" "black" }
      }
      min0=""
      min1=""
      min2=""
      max0=""
      max1=""
      max2=""
      lag="4"
      maxdist="50"
      negative="NEGATIVES"
      fname="experimental_variogram"
      report_format=".not - Surpac Note File"
      display_report="N"
      lag_minimum="1"
      lag_maximum="20"
      lag_increment="0.1"
    }
  }
}]


set status [ SclFunction "VG SET AXIS LIMITS" {
  xmax="50"
  ymax="1.35"
}]

set status [ SclFunction "VG LAG INTERVALS" {} ]

set status [ SclFunction "VG LAG" {
  frm77005={
    {
      lag="10"
    }
  }
}]


set status [ SclFunction "VG LAG" {
  frm77005={
    {
      _action=display
      lag="3.5"
    }
  }
}]

set status [ SclFunction "VG LAG INTERVALS" {} ]


set status [ SclFunction "VG ALL ORIENTATIONS" {} ]


set status [ SclFunction "SAVE EXP VG" {
  exp_vg_name="omni.evg"
}]

SclPause 3

set status [ SclFunction "VG EXIT" {} ]


puts ""
puts ""
puts "macro 2d_05a_experimental_variogram.tcl completed"
puts ""