set vgmapmenu_items {
if { [ GuidoSSIOption get "product"] != "STATISTICS" } {
GuidoMenuItem vg_create {
-label "New variogram map"
-icon "icons/16/vg_indicator_variogram_map.png"
-command server "VG INDICATOR VARIOGRAM MAP"
}
GuidoMenuItem stringfile {
-label "Save as DTM"
-icon "icons/16/vg_save_variogram_map.png"
-command server "VG SAVE VARIOGRAM MAP"
}
GuidoSeparator sep0 {
}
} else {
if {[string match minex* [string tolower [GuidoSSIOption get "product_title"]]]} {
GuidoMenuItem stringfile {
-label "Save as surface"
-icon "icons/MapSave.gif"
-command server "SEND VARIOGRAM MAP"
}
}
}
GuidoMenuItem direction {
-icon "icons/16/vg_map_set_direction.png"
-command server "vg map set direction"
-label "Select direction of maximum continuity"
}
GuidoSeparator sep0 {
}
GuidoCheckBoxMenuItem add {
-command server "VG SHOW PRIMARY MAP"
-command server "VG SHOW PRIMARY MAP"
-icon "icons/16/vg_show_primary_map.png"
-label "Primary variogram map"
-status_item "variogram map primary"
}
if {![string match Minex* [GuidoSSIOption get "product_title"]]} {
GuidoCheckBoxMenuItem add {
-icon "icons/16/vg_show_secondary_map.png"
-command server "VG SHOW SECONDARY MAP"
-command server "VG SHOW SECONDARY MAP"
-label "Secondary variogram map"
-status_item "variogram map secondary"
}
}
GuidoCheckBoxMenuItem extractexperimentalvariograms {
-icon "icons/16/vg_show_axes_variograms.png"
-command server "VG SHOW AXES VARIOGRAMS"
-command server "VG SHOW AXES VARIOGRAMS"
-label "Extract variograms along axes"
-status_item "extracted variograms"
}
GuidoSeparator sep0 {
}
GuidoMenuItem new {
-icon "icons/16/vg_ellipsoid_report.png"
-command server "vg ellipsoid report"
-label "Create anisotropy ellipsoid report"
}
GuidoMenuItem ellipsoid {
-icon "icons/16/ellipsoid_visualiser.png"
-command script forms/AnisotropyEllipsoid.tcl
-label "Ellipsoid visualiser"
}
}
GuidoMenu vgmapmenu {
-label "Variogram map"
-delayed_script $vgmapmenu_items
}
