Changeset 1174
- Timestamp:
- Oct 24, 2011 11:06:34 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/sandbox/rigid.tcl
r1173 r1174 100 100 # Procedure to determine possible RB file formats available 101 101 102 set rbtypelist "" 102 103 proc RB_Import_Data_Type {args} { 103 104 global expgui tcl_platform 104 105 # only needs to be done once 105 set ::rbtypelist "" 106 107 set files [glob -nocomplain [file join $expgui(scriptdir) rbimport_*.tcl]] 108 foreach filetype $files { 109 set temp [lindex [string map {_ " "} $filetype] 1] 110 lappend ::rbtypelist $temp 111 } 112 if {$::rbtypelist == ""} {lappend ::rbtypelist "no rigid body file types available"} 113 foreach filetype $::rbtypelist { 114 source $::expgui(scriptdir)/rbimport_$filetype 115 } 116 return $::rbtypelist 106 if {$::rbtypelist != ""} return 107 108 set ::rbtypelist [glob -nocomplain [file join $expgui(scriptdir) rbimport_*.tcl]] 109 if {$::rbtypelist == ""} { 110 MyMessageBox -parent . -title "Installation error" -icon warning \ 111 -message "No rigid body import routines were found.\nSomething is wrong with the EXPGUI installation" 112 set ::rbtypelist " " 113 } 114 foreach file $::rbtypelist { 115 source $file 116 } 117 117 } 118 118 … … 365 365 # puts "cartesian coords: $temp_car" 366 366 AddRigidBody $temp_mat $temp_car 367 RecordMacroEntry "AddRigidBody $temp_mat $temp_car" 0367 RecordMacroEntry "AddRigidBody $temp_mat [list $temp_car]" 0 368 368 RecordMacroEntry "incr expgui(changed)" 0 369 369 incr ::expgui(changed) … … 802 802 # puts "Euler = $euler" 803 803 MapRigidBody $::rb_phase $::body_type $::rb_firstatom $origin $euler 804 RecordMacroEntry "MapRigidBody $::rb_phase $::body_type $::rb_firstatom $origin $euler" 0804 RecordMacroEntry "MapRigidBody $::rb_phase $::body_type $::rb_firstatom [list $origin] [list $euler]" 0 805 805 incr ::rb_map($::body_type) 806 806 set curpage [$::rb_notebook raise] … … 1283 1283 # puts "Matrix vars = $temp_var" 1284 1284 SetRigidBodyVar $bodnum $temp_var $temp_damp 1285 RecordMacroEntry "SetRigidBodyVar $bodnum $temp_var $temp_damp" 01285 RecordMacroEntry "SetRigidBodyVar $bodnum [list $temp_var] [list $temp_damp]" 0 1286 1286 ReplaceRigidBody $bodnum $temp_mat $temp_car $temp_var $temp_damp 1287 RecordMacroEntry "ReplaceRigidBody $bodnum $temp_mat $temp_car $temp_var $temp_damp" 01287 RecordMacroEntry "ReplaceRigidBody $bodnum [list $temp_mat] [list $temp_car] [list $temp_var] [list $temp_damp]" 0 1288 1288 #SetRigidBodyVar $bodnum $temp_var $temp_damp 1289 1289 incr ::expgui(changed)
Note: See TracChangeset
for help on using the changeset viewer.