######################################################################
#
# Macro Name    : d:/geostatistics_training/horz_vgmap_bug/display_examples.tcl
#
# Version       : Surpac Vision V5.1-B
#
# Creation Date : Fri Nov 11 10:43:45 2005
#
# Description   : 
#
######################################################################

set status [ SclFunction "EXIT GRAPHICS" {} ]

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

set status [ SclFunction "DRAW SHELLS" {
  frm00530={
    {
      range1=""
      range2=""
      range3=""
      grade_field="D1"
      false_colour_type="2"
      legend_location="no legend"
      colours=table { colour expression label } {
        { "blue" null null }
        { "green" null null }
        { "yellow" null null }
        { "red" null null }
        { "" null null }
        { "" null null }
        { "" null null }
        { "" null null }
        { "" null null }
        { "" null null }
        { "" null null }
        { "" null null }
      }
      layer_name=""
    }
  }
}]

set status [ SclFunction "DRAW STRINGS" {
  frm00089={
    {
      range1=""
      range2="37"
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="First point"
      legend_location="no legend"
      layer_name=""
    }
  }
}]

