Changeset 2015 for trunk

Timestamp:

Dec 20, 2010, 7:14:46 AM (14 years ago)

Author:

gah

Message:

wrong vector method in parallelepiped

File:

• trunk/gui/scripts/molvisviewer.tcl (modified) (1 diff)

trunk/gui/scripts/molvisviewer.tcl

@@ -2045 +2045 @@
         error "bad number of vectors supplied to parallelepiped"
     }
+    point0 set { 0.0 0.0 0.0 }
+    point4 expr {point2 + point1}
+    point5 expr {point4 + point3}
+    point6 expr {point2 + point3}
+    point7 expr {point1 + point3}
+
     set values [$dataobj get components.parallelepiped.scale]
     set n [llength $values]