Changeset 1212 for branches/sandbox


Ignore:
Timestamp:
Aug 16, 2012 11:13:26 PM (8 years ago)
Author:
lake
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/rigid.tcl

    r1210 r1212  
    481481     grid [label $main.rb_y   -text "y"] -row 1 -column 4
    482482     grid [label $main.rb_z   -text "z"] -row 1 -column 5
    483      grid [label $main.rb_euler_x -text "x"] -row 1 -column 6
    484      grid [label $main.rb_euler_y -text "y"] -row 1 -column 7
    485      grid [label $main.rb_euler_z -text "z"] -row 1 -column 8
     483     grid [label $main.rb_euler_x -text "E1"] -row 1 -column 6
     484     grid [label $main.rb_euler_y -text "E2"] -row 1 -column 7
     485     grid [label $main.rb_euler_z -text "E3"] -row 1 -column 8
    486486     set col 11
    487487     for {set coordnum 1} {$coordnum <= $::rb_coord_num($bodnum,1)} {incr coordnum} {
     
    20102010                       set refcoordflag 0
    20112011                       set reftlsflag 0
    2012                        set rb_list "$::rb_var($phasenum,$bodnum,$mapnum,x) \
    2013                            $::rb_var($phasenum,$bodnum,$mapnum,y) $::rb_var($phasenum,$bodnum,$mapnum,z) \
    2014                            $::rb_var($phasenum,$bodnum,$mapnum,e1) $::rb_var($phasenum,$bodnum,$mapnum,e2) \
    2015                            $::rb_var($phasenum,$bodnum,$mapnum,e3) 0 0 0"
     2012                       set rb_list "$::rb_var($phasenum,$bodnum,$mapnum,e1) \
     2013                           $::rb_var($phasenum,$bodnum,$mapnum,e2) $::rb_var($phasenum,$bodnum,$mapnum,e3) \
     2014                           0 0 0 $::rb_var($phasenum,$bodnum,$mapnum,x) $::rb_var($phasenum,$bodnum,$mapnum,y) \
     2015                           $::rb_var($phasenum,$bodnum,$mapnum,z)"
    20162016#                       puts "param saved for map $phasenum $bodnum $mapnum is vvvvvvv $rb_list"
    20172017                       RigidBodyVary $phasenum $bodnum $mapnum $rb_list
     
    20572057                           
    20582058                            if {$::rb_var($phasenum,$bodnum,$mapnum,tls) == 0} {
    2059                                   RigidBodySetDamp $phasenum $bodnum $mapnum $rb_damping
     2059                                  RigidBodySetDamp $phasenum $bodnum $mapnum $rb_damping 
    20602060                            } else {
    20612061                                  RigidBodySetDamp $phasenum $bodnum $mapnum $rb_damping $rb_damping_tls
     
    21892189#     puts "mvarlist   $mvarlist"
    21902190
    2191      set ::rb_var($phasenum,$bodnum,$mapnum,x) [RB_VarSet [lindex $::rb_map_positionvars($phasenum,$bodnum,$mapnum) 0] $mvarlist $varlist]
    2192      set ::rb_var($phasenum,$bodnum,$mapnum,y) [RB_VarSet [lindex $::rb_map_positionvars($phasenum,$bodnum,$mapnum) 1] $mvarlist $varlist]
    2193      set ::rb_var($phasenum,$bodnum,$mapnum,z) [RB_VarSet [lindex $::rb_map_positionvars($phasenum,$bodnum,$mapnum) 2] $mvarlist $varlist]
     2191     set ::rb_var($phasenum,$bodnum,$mapnum,x) [RB_VarSet [lindex $::rb_map_positionvars($phasenum,$bodnum,$mapnum) 6] $mvarlist $varlist]
     2192     set ::rb_var($phasenum,$bodnum,$mapnum,y) [RB_VarSet [lindex $::rb_map_positionvars($phasenum,$bodnum,$mapnum) 7] $mvarlist $varlist]
     2193     set ::rb_var($phasenum,$bodnum,$mapnum,z) [RB_VarSet [lindex $::rb_map_positionvars($phasenum,$bodnum,$mapnum) 8] $mvarlist $varlist]
    21942194
    21952195     lappend ::rb_var_list ::rb_var($phasenum,$bodnum,$mapnum,x) ::rb_var($phasenum,$bodnum,$mapnum,y) ::rb_var($phasenum,$bodnum,$mapnum,z)
    21962196
    2197      set ::rb_var($phasenum,$bodnum,$mapnum,e1) [RB_VarSet [lindex $::rb_map_positionvars($phasenum,$bodnum,$mapnum) 3] $mvarlist $varlist]
    2198      set ::rb_var($phasenum,$bodnum,$mapnum,e2) [RB_VarSet [lindex $::rb_map_positionvars($phasenum,$bodnum,$mapnum) 4] $mvarlist $varlist]
    2199      set ::rb_var($phasenum,$bodnum,$mapnum,e3) [RB_VarSet [lindex $::rb_map_positionvars($phasenum,$bodnum,$mapnum) 5] $mvarlist $varlist]
     2197     set ::rb_var($phasenum,$bodnum,$mapnum,e1) [RB_VarSet [lindex $::rb_map_positionvars($phasenum,$bodnum,$mapnum) 0] $mvarlist $varlist]
     2198     set ::rb_var($phasenum,$bodnum,$mapnum,e2) [RB_VarSet [lindex $::rb_map_positionvars($phasenum,$bodnum,$mapnum) 1] $mvarlist $varlist]
     2199     set ::rb_var($phasenum,$bodnum,$mapnum,e3) [RB_VarSet [lindex $::rb_map_positionvars($phasenum,$bodnum,$mapnum) 2] $mvarlist $varlist]
    22002200
    22012201     lappend ::rb_var_list ::rb_var($phasenum,$bodnum,$mapnum,e1) ::rb_var($phasenum,$bodnum,$mapnum,e2) ::rb_var($phasenum,$bodnum,$mapnum,e3)
Note: See TracChangeset for help on using the changeset viewer.