Changeset 1214
- Timestamp:
- Aug 17, 2012 9:17:50 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/sandbox/rigid.tcl
r1212 r1214 196 196 set ::rb_map_damping($phase,$bodnum,$mapnum) [lindex $rb_map 4] 197 197 198 set ::rb_damp_origin [lindex $::rb_map_damping($phase,$bodnum,$mapnum) 0]199 set ::rb_damp_euler [lindex $::rb_map_damping($phase,$bodnum,$mapnum) 3]198 set ::rb_damp_origin [lindex $::rb_map_damping($phase,$bodnum,$mapnum) 6] 199 set ::rb_damp_euler [lindex $::rb_map_damping($phase,$bodnum,$mapnum) 0] 200 200 201 201 set ::rb_map_tls($phase,$bodnum,$mapnum) [lindex $rb_map 5] … … 481 481 grid [label $main.rb_y -text "y"] -row 1 -column 4 482 482 grid [label $main.rb_z -text "z"] -row 1 -column 5 483 grid [label $main.rb_euler_x -text " E1"] -row 1 -column 6484 grid [label $main.rb_euler_y -text " E2"] -row 1 -column 7485 grid [label $main.rb_euler_z -text " E3"] -row 1 -column 8483 grid [label $main.rb_euler_x -text "R1"] -row 1 -column 6 484 grid [label $main.rb_euler_y -text "R2"] -row 1 -column 7 485 grid [label $main.rb_euler_z -text "R3"] -row 1 -column 8 486 486 set col 11 487 487 for {set coordnum 1} {$coordnum <= $::rb_coord_num($bodnum,1)} {incr coordnum} { … … 2046 2046 $::rb_tls($phasenum,$bodnum,$mapnum,saa) $::rb_tls($phasenum,$bodnum,$mapnum,sbb)" 2047 2047 2048 set rb_damping "$::rb_damp_ origin $::rb_damp_origin $::rb_damp_origin\2048 set rb_damping "$::rb_damp_euler $::rb_damp_euler $::rb_damp_euler \ 2049 2049 $::rb_damp_euler $::rb_damp_euler $::rb_damp_euler \ 2050 $::rb_damp_ euler $::rb_damp_euler $::rb_damp_euler"2050 $::rb_damp_origin $::rb_damp_origin $::rb_damp_origin" 2051 2051 set rb_damping_tls "$::rb_damp_t $::rb_damp_l $::rb_damp_s" 2052 2052 puts "tls damping = $rb_damping_tls"
Note: See TracChangeset
for help on using the changeset viewer.