TABLE OF CONTENTS
::pwtk::latvec3Dto2D
SYNOPSIS
proc ::pwtk::latvec3Dto2D {m} {
PURPOSE
Transform 3D Bravais lattice vectors into 2D vectors, i.e.:
{ {x1 y1 z1} {x2 y2 z2} {x3 y3 z3} }
is transformed to
{ {x1 y1} {x2 y2} }
ARGUMENTS
- m --- 3x3 matrix of Bravais lattice vectors
SOURCE
lassign $m v1 v2 return [list [lrange $v1 0 1] [lrange $v2 0 1]] }