* Purpose: Progress meter for Tcl scripts

I am creating this page because I don't find one like it
but certainly there should be an interest. While the below 
example works somewhat, I am sure that the more experienced 
coders can come up with better.

The "spinner" component spins upon each loop providing an
indication that the program is working, while the percent
meter indicates the entire progress of work being done.
----
 set p(cnt) 1
 set spincnt 0
 array set spinner {
   0 "/" 1 "-" 2 "\\" 3 "|"
   4 "/" 5 "-" 6 "\\" 7 "|"
 }
 proc progressMeter {total} {
   global p spincnt spinner
   puts -nonewline stdout " \[00%\]\b\b\b\b\b\b"; flush stdout
   for {set i 0} {$i < $total} {incr i} {
     if {$spincnt == 7} {
       set spincnt 0
     } else {
       incr spincnt
     }
     if {$p(cnt) < 10} {
       set percent ".0$p(cnt)"
     } else {
       set percent ".$p(cnt)"
     }
     puts -nonewline stdout "  $spinner($spincnt)\b\b\b"; flush stdout
     if {$i >= [expr $total * $percent]} {
       incr p(cnt)
       set pout [string map {"." ""} $p(cnt)]
       puts -nonewline stdout "  $spinner($spincnt)\[$pout%\]\b\b\b\b\b\b\b\b"
       flush stdout
     }
     # your code goes here rather than the delay
     after 100
   }
   puts stdout "\b\bDone!     "; flush stdout
   return
 }
 # arbitrary starter
 progressMeter 220
----