
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 create a variogram model.

1. Geostatistics > Variogram modelling (by opening an *.EVG file)
2. Display > Display / Hide number of pairs
3. Variogram > Model
4. Variogram > Add structure
5. Variogram > Report
6. File > Save > Variogram model
7. 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 "RECALL ANY FILE" {
  file="omni.evg"
  mode="openInNewLayer"
}]

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

SclPause 1

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

#set status [ SclFunction "VG START MODEL" {} ]

SclPause 1

set status [ SclFunction "VG NUM PAIRS" {} ]

SclPause 1

set status [ SclFunction "VG ADD STRUCTURE" {} ]

SclPause 1

set status [ SclFunction "VG REPORT MODEL" {
  frm20490={
    {
      mod_type="Spherical"
      nugget="0"
      sill0="0.35"
      range0="5.5"
      sill1="0.98"
      range1="15"
      sill2=""
      range2=""
      sill3=""
      range3=""
      sill4=""
      range4=""
      notefile="omni"
    }
  }
}]

set status [ SclFunction "VG REPORT MODEL" {
  frm20490={
    {
      _action=display
      mod_type="Spherical"
      nugget="0"
      sill0="0.35"
      range0="5.5"
      sill1="0.98"
      range1="15"
      sill2=""
      range2=""
      sill3=""
      range3=""
      sill4=""
      range4=""
      notefile="omni"
    }
  }
}]

set status [ SclFunction "SAVE VG MODEL" {} ]

set status [ SclFunction "SAVE VG MODEL" {
  _return_code="0"
  vg_model_name="omni.vgm"
  frm00121={
    {
      _action="apply"
    }
  }
}]

set status [ SclFunction "VG EXIT" {} ]

puts ""
puts ""
puts "macro 2d_06a_variogram_modelling.tcl completed"
puts ""