TABLE OF CONTENTS

::pwtk::shiftCoor

SYNOPSIS

proc ::pwtk::shiftCoor {dx dy dz coor} {

PURPOSE

Displace given coordinates by ($dx,$dy,$dz) vector.

ARGUMENTS

SOURCE

    set result ""
    foreach line [split $coor \n] {     
        set len [llength $line]
        if { $len == 4 } {
            set sym [lindex $line 0]
            set x   [lindex $line 1]
            set y   [lindex $line 2]
            set z   [lindex $line 3]    
            # we multiply $dx by 1.0 to force the use of floating-point arithmetics
            append result [format "%3s   %15.10f %15.10f %15.10f\n" \
                               $sym [expr $x + 1.0*$dx] [expr $y + 1.0*$dy] [expr $z + 1.0*$dz]]
        }
    }
    return $result
}