Changeset 1138 for branches/sandbox


Ignore:
Timestamp:
Apr 22, 2011 12:06:43 PM (10 years ago)
Author:
toby
Message:

fixes for SetRigidBody? and SetRigidBodyVar?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/rb.tcl

    r1137 r1138  
    137137            if {$damp < 0} {set damp 0}
    138138            validint damp 5
    139         }
    140         setexp "${key}${i}PARM" $damp 16 20
     139            setexp "${key}${i}PARM" $damp 16 20
     140        }
    141141    }
    142142}
     
    528528    set value [llength [lindex $coordlist 0]]
    529529    validint value 5
    530     makeexprec "$key NATR"
     530    if {! [existsexp "$key NATR"]} {
     531        makeexprec "$key NATR"
     532    }
    531533    setexp "$key NATR" $value 1 5
    532534    # number of times used
    533535    set value 0
    534536    validint value 5
    535     makeexprec "$key NBDS"
     537    if {! [existsexp "$key NBDS"]} {
     538        makeexprec "$key NBDS"
     539    }
    536540    setexp "$key NBDS" $value 1 5
    537541    # number of coordinate matrices
    538542    set value [llength $multlist]
    539543    validint value 5
    540     makeexprec "$key NSMP"
     544    if {! [existsexp "$key NSMP"]} {
     545        makeexprec "$key NSMP"
     546    }
    541547    setexp "$key NSMP" $value 1 5
    542548    set i 0
    543549    foreach mult $multlist coords $coordlist {
    544550        incr i
    545         makeexprec "${key}${i}PARM"
     551        if {! [existsexp  "${key}${i}PARM"]} {
     552            makeexprec "${key}${i}PARM"
     553        }
    546554        setexp "${key}${i}PARM" [format "%10.5f%5d%5d" $mult 0 0] 1 20
    547555        set j 0
     
    551559            set value $j
    552560            validint value 3
    553             makeexprec "${key}${i}SC$value"
     561            if {! [existsexp "${key}${i}SC$value"]} {
     562                makeexprec "${key}${i}SC$value"
     563            }
    554564            if {[llength $item] == 4} {
    555565                setexp "${key}${i}SC$value" [eval format "%10.6f%10.6f%10.6f%10s" $item] 1 40
Note: See TracChangeset for help on using the changeset viewer.