######################################################################
#
# Macro Name    : g:/mining/surpac/survey/ug/prince/stitch-mod.tcl
#
# Version       : Surpac Vision V5.0-I
#
# Creation Date : Wed Jun 09 15:55:49 2004
#
# Description   : 
#
######################################################################
   # loop 100 times
for {set i 0} {$i < 100} {incr i} {
   # check to see if a message needs to be printed
   set remainder [expr $i % 1]
   if {$remainder == 0} {
set status [ SclFunction "TRIANGULATE MANY SEGMENTS" {
  frm00459={
    {
      iobj="1"
      itrisol="1"
    }
  }
  frm00651={
    {
      theopt1="N"
      theopt2="R"
    }
  }
  frm00655={
    {
      str_seg="STR"
      seg_no="$i"
      str_rg="1;6"
    }
  }
}]
       puts "Pillar $i"
   }
}

puts "Finished - renumber trisolations and validate"
