Changeset 1138

Timestamp:

Apr 22, 2011 12:06:43 PM (12 years ago)

Author:

toby

Message:

fixes for SetRigidBody? and SetRigidBodyVar?

File:

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

branches/sandbox/rb.tcl

@@ -137 +137 @@
             if {$damp < 0} {set damp 0}
             validint damp 5
-        }
-        setexp "${key}${i}PARM" $damp 16 20
+            setexp "${key}${i}PARM" $damp 16 20
+        }
     }
 }
@@ -528 +528 @@
     set value [llength [lindex $coordlist 0]]
     validint value 5
-    makeexprec "$key NATR"
+    if {! [existsexp "$key NATR"]} {
+        makeexprec "$key NATR"
+    }
     setexp "$key NATR" $value 1 5
     # number of times used
     set value 0
     validint value 5
-    makeexprec "$key NBDS"
+    if {! [existsexp "$key NBDS"]} {
+        makeexprec "$key NBDS"
+    }
     setexp "$key NBDS" $value 1 5
     # number of coordinate matrices
     set value [llength $multlist]
     validint value 5
-    makeexprec "$key NSMP"
+    if {! [existsexp "$key NSMP"]} {
+        makeexprec "$key NSMP"
+    }
     setexp "$key NSMP" $value 1 5
     set i 0
     foreach mult $multlist coords $coordlist {
         incr i
-        makeexprec "${key}${i}PARM"
+        if {! [existsexp  "${key}${i}PARM"]} {
+            makeexprec "${key}${i}PARM"
+        }
         setexp "${key}${i}PARM" [format "%10.5f%5d%5d" $mult 0 0] 1 20
         set j 0
@@ -551 +559 @@
             set value $j
             validint value 3
-            makeexprec "${key}${i}SC$value"
+            if {! [existsexp "${key}${i}SC$value"]} {
+                makeexprec "${key}${i}SC$value"
+            }
             if {[llength $item] == 4} {
                 setexp "${key}${i}SC$value" [eval format "%10.6f%10.6f%10.6f%10s" $item] 1 40