Changeset 1137

Timestamp:

Apr 21, 2011 11:05:09 AM (10 years ago)

Author:

toby

Message:

change rb.tcl as per CHL request

File:

• branches/sandbox/rb.tcl (modified) (3 diffs)

branches/sandbox/rb.tcl

@@ -6 +6 @@
 # rigid body EXP editing routines (to move into readexp.tcl)
 # RigidBodyList -- returns a list of the defined rigid body types
+# SetRigidBodyVar -- set variables and damping for rigid body type multipliers
 # ReadRigidBody  -- # of times a body is mapped, scaling factors, var #s & coordinates
 # RigidBodyMappingList - return a list instances where a RB is mapped in phase
@@ -103 +104 @@
 #   varnumlist is a list of variable numbers
 #      note that if this list is shorter than the number of actual multipliers 
-#      for the body, the unspecified variable will be set to 0 (not refined)
+#      for the body, the unspecified variable will not be changed
 #   damplist   is a list of damping values (0-9)
 #      note that if the damplist is shorter than the number of actual multipliers 
 #      the unspecified values are not changed
-
 #  SetRigidBodVar 2 {1 2 3} {} 
 #       will vary the (first 3) translations in body #3 and will not change the 
 #       damping values
 #  SetRigidBodVar 3 {} {0 0 0} 
-#       will turn off all variables and will change the (first 3) damping values
+#       will not change variable settings but will change the (first 3) damping values
+#  SetRigidBodVar 4 {11 11} {8 8} 
+#      changes both variable numbers and damping at the same time
 # Nothing is returned
 proc SetRigidBodyVar {rbnum varnumlist damplist} {
@@ -126 +128 @@
         incr j -1
         set var [lindex $varnumlist $j]
-        if {$var == ""} {set var 0}
-        validint var 5
-        setexp "${key}${i}PARM" $var 11 15
+        if {$var != ""} {
+            validint var 5
+            setexp "${key}${i}PARM" $var 11 15
+        }
         set damp [lindex $damplist $j]
         if {$damp != ""} {