
set form {
  GuidoForm form_1 {
    -default_buttons
    -label "Ordinary Kriging"
    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 perform Ordinary Kriging estimation.

1. Block model > Open / New (by opening a *.MDL file)
2. Estimation > Ordinary kriging
"
        }
      }
      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 "TOOL MODE TRADITIONAL" {} ]


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

set status [ SclFunction "ERASE STRINGS" {
  frm00089={
    {
      range1=""
      range2=""
      range3=""
      textalignment="<"
      layer_name="gc_zone1_cut130.str"
    }
  }
}]

set status [ SclFunction "DRAW MARKERS" {
  frm00089={
    {
      range1=""
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="All points"
      layer_name="gc_zone1_cut130.str"
    }
  }
}]

set status [ SclFunction "FACES OFF" {} ]

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

set status [ SclFunction "BM GRAPHICS DRAW" {
  frm20503={
    {
      display="normal"
      constraint="N"
      slice="N"
      rescale="Y"
      all_blocks="N"
      cloud_marker="."
      cloud_size="4"
    }
  }
}]

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

set status [ SclFunction "BM FILL OK" {
  frm20030={
    {
      _action=display
      attname="gold_ok"
    }
  }
  frm20601={
    {
      _action=display
      dist_att=""
      avgdist_att=""
      numsam_att=""
      kgvar_att=""
    }
  }
  frm20040={
    {
      _action=display
      datasrc="STRING FILE"
      location="gc_zone1_cut"
      id="130"
      range="1"
      field="1"
      constrain="N"
    }
  }
  frm20080={
    {
      _action=display
      search="ELLIPSOID"
      minsamples="3"
      maxsamples="15"
      majordist="999"
      vertdist="999"
      const_by_id="N"
      axis_1="22.5"
      axis_2="0"
      axis_3="0"
      semimajfact="2.48"
      minorfact="2.48"
      string_file_source="true"
      rotationTypes="Surpac ZXY LRL"
      first_axis_rotation="L"
      sec_axis_rotation="R"
      third_axis_rotation="L"
      sec_axis="X"
      third_axis="Y"
      majorbrg=""
      dip=""
      tilt=""
    }
  }
  frm20101={
    {
      _action=display
      vg_model_file_name="gc130zone1major.vgm"
      model="SPHERICAL"
      co="0"
      c1="55.23"
      a1="15.1"
      azimuth1="22.5"
      plunge1="0"
      dip1="0"
      semi_ratio1="2.48"
      minor_ratio1="2.48"
      dpt0="3"
      dpt1="3"
      dpt2="3"
      outfile="ok"
      report_format=".not - Surpac Note File"
      debug="N"
      constrain="Y"
    }
  }
  frm20111={
    {
      _action=display
      constraints=table { not op contype location id rnga rngb lbound ubound ext } {
        { "" "INSIDE" "CONSTRAINT" "GC_OREZONE1" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
      }
      conexp=""
      confile=""
      keep_blocks="N"
    }
  }
}]

set status [ SclFunction "BM GRAPHICS ATTRIBUTE COLOUR" {
  frm20504={
    {
      _action=display
      first_colour="blue"
      attribute="gold_ok"
      smooth_transition="Y"
      transparency_percentage="0"
      block_model_transparency="N"
      default_face="pink"
      range="0,15,1"
      numdecimals="2"
      styles_file=""
      save_now="N"
      load_styles_file="ssi_styles:bm_colours.ssi"
      last_colour="red"
      default_edge="blue"
      attribute_list=table { color char_attrib } {
        { "blue" "0.00 -> 1.00" }
        { "r=0.00 g=0.29 b=1.00" "1.00 -> 2.00" }
        { "r=0.00 g=0.57 b=1.00" "2.00 -> 3.00" }
        { "r=0.00 g=0.86 b=1.00" "3.00 -> 4.00" }
        { "r=0.00 g=1.00 b=0.86" "4.00 -> 5.00" }
        { "r=0.00 g=1.00 b=0.57" "5.00 -> 6.00" }
        { "r=0.00 g=1.00 b=0.29" "6.00 -> 7.00" }
        { "r=0.00 g=1.00 b=0.00" "7.00 -> 8.00" }
        { "r=0.29 g=1.00 b=0.00" "8.00 -> 9.00" }
        { "r=0.57 g=1.00 b=0.00" "9.00 -> 10.00" }
        { "r=0.86 g=1.00 b=0.00" "10.00 -> 11.00" }
        { "r=1.00 g=0.86 b=0.00" "11.00 -> 12.00" }
        { "r=1.00 g=0.57 b=0.00" "12.00 -> 13.00" }
        { "r=1.00 g=0.29 b=0.00" "13.00 -> 14.00" }
        { "red" "14.00 -> 15.00" }
      }
    }
  }
}]

set status [ SclFunction "FACES ON" {} ]

set status [ SclFunction "BM SAVE MODEL" {
  frm00121={
    {
      _action="apply"
    }
  }
}]

puts ""
puts ""
puts "macro 2d_09d_ordinary_kriging.tcl completed"
puts ""