TABLE OF CONTENTS


::pwtk::formatCoor

SYNOPSIS

proc ::pwtk::formatCoor {coor} {

PURPOSE

Format the coordinates (Coor) for pretty printout.

ARGUMENT

      symb x y z
      ...

or

      symb x y z  fx fy fz
      ...        

SOURCE

    variable fmt_coor
    set result ""
    foreach line [split $coor \n] {
        set len [llength $line]
        if { $len == 4 || $len == 7 } {            
            append result [format $fmt_coor($len) {*}$line]
        }
    }
    return $result
}