
set form {
  GuidoForm form_1 {
    -default_buttons
    -label "Model Validation"
    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 grade-tonnage curve.

1. Block model > Open / New (by opening a *.MDL file)
2. Block model > Report
"
        }
      }
      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="gc130.mdl"
  mode="none"
}]

set status [ SclFunction "BM VOL TON REPORT" {
  frm20104={
    {
      _action=display
      fname=""
      report_name="gc130_grade_tonnage"
      report_format=".csv - Comma Separated (Spreadsheet)"
      ik_cutoffs="No"
      ikMeanGrade="cutoffMean"
      constrain="Yes"
    }
  }
  frm20195={
    {
      _action=display
      rpt_desc_1=""
      report_attributes=table { rpt_attribute rpt_display low_cut upper_cut rpt_attribute_wt rpt_attribute_avg rpt_expression } {
        { "gold_ok" "Yes" null null "Mass" "Average" null }
      }
      use_vol="No"
      Format_head="Yes"
      fillAllCells="No"
      cullEmpty="No"
      volDecimals="0 decimal places"
      geometryType="None"
      vol_mult_factor="Value"
      mult_factor_value="2"
      group_attributes={
        {
          group_field="gold_ok"
          numeric_range="0,10;999"
        }
      }
    }
  }
  frm20111={
    {
      _action=display
      constraints=table { not op contype location id rnga rngb lbound ubound ext } {
        { "" "INSIDE" "CONSTRAINT" "GC_OREZONE1" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
        { "" "" "" "" "" "" "" "" "" "" }
      }
      conexp=""
      confile=""
      keep_blocks="N"
    }
  }
}]

catch {set status [ SclFunction "RECALL ANY FILE" {
  file="gc130_grade_tonnage.xls"
  mode="none"
}]}

puts ""
puts ""
puts "macro 2d_10b_grade_tonnage.tcl completed"
puts ""