Changeset 1962 for branches/blt4/gui
- Timestamp:
- Nov 17, 2010 8:22:44 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/blt4/gui/scripts/molvisviewer.tcl
r1961 r1962 2062 2062 error "bad number of vectors supplied to parallelepiped" 2063 2063 } 2064 point0 set { 0.0 0.0 0.0 } 2065 point4 expr {point2 + point1} 2066 point5 expr {point4 + point3} 2067 point6 expr {point2 + point3} 2068 point7 expr {point1 + point3} 2069 2064 2070 set values [$dataobj get components.parallelepiped.scale] 2065 2071 set n [llength $values] … … 2083 2089 origin set $values 2084 2090 } 2085 point0 set { 0.0 0.0 0.0 } 2086 point4 expr {point2 + point1}2087 point5 expr {point4 + point3}2088 point6 expr {point2 + point3} 2089 point7 expr {point1 + point3}2091 2092 # Scale and translate points 2093 for { set i 0 } { $i < 8 } { incr i } { 2094 point${i} expr "(point${i} * scale) + origin" 2095 } 2090 2096 2091 2097 # Generate vertices as a string for PyMOL 2092 2098 set vertices "" 2093 blt::vector x2094 2099 foreach n { 0 1 0 2 0 3 1 4 2 4 2 6 1 7 3 7 5 7 4 5 3 6 5 } { 2095 x expr "(point${n} * scale) + origin" 2096 set values [x values] 2100 set values [point${n} values] 2097 2101 append vertices "\[ [join $values {, }] \], \\\n" 2098 2102 } 2099 x expr "(point6 * scale) + origin" 2100 set values [x values] 2103 set values [point6 values] 2101 2104 append vertices "\[ [join $values {, }] \] \\\n" 2102 2105 blt::vector destroy point0 point1 point2 point3 point4 point5 point6 \ 2103 point7 xorigin scale2106 point7 origin scale 2104 2107 return $vertices 2105 2108 }
Note: See TracChangeset
for help on using the changeset viewer.