| version 1.39 | version 1.40 |
|---|
| |
| ## | ## |
| ## VND -- Visual Neuronal Dynamics graphical interface | ## VND -- Visual Neuronal Dynamics graphical interface |
| ## | ## |
| ## $Id: vnd_gui.tcl,v 1.39 2025/04/18 01:24:35 jasonks2 Exp $ | ## $Id: vnd_gui.tcl,v 1.40 2025/04/24 02:57:59 jasonks2 Exp $ |
| ## | ## |
| ## | ## |
| ## Home Page | ## Home Page |
| |
| puts "now excluding" | puts "now excluding" |
| } elseif {$::NeuronVND::exclude_axons == 0} { | } elseif {$::NeuronVND::exclude_axons == 0} { |
| graphics [lindex $principal_axis_mol_list $i] delete all | graphics [lindex $principal_axis_mol_list $i] delete all |
| | set flip_priority_axis 0 |
| set ::NeuronVND::princ_axes_spherelist $morph_spherelist_combo | set ::NeuronVND::princ_axes_spherelist $morph_spherelist_combo |
| lappend spherelist_list $::NeuronVND::princ_axes_spherelist | lappend spherelist_list $::NeuronVND::princ_axes_spherelist |
| set size_array [llength $x_array] | set size_array [llength $x_array] |
| |
| set a3_moved [coordtrans $aggrot $a3] | set a3_moved [coordtrans $aggrot $a3] |
| | |
| if {$::NeuronVND::exclude_axons == 1} { | if {$::NeuronVND::exclude_axons == 1} { |
| set a3_moved [vecscale -1 $a3_moved] | set a3_moved_flip [vecscale -1 $a3_moved] |
| | } elseif {$::NeuronVND::exclude_axons == 0} { |
| | set a3_moved_flip [vecscale -1 $a3_moved] |
| } | } |
| | |
| graphics $princ_moved_mol delete all | graphics $princ_moved_mol delete all |
| |
| graphics [lindex $princ_moved_mol_axes_list $i] color 12 | graphics [lindex $princ_moved_mol_axes_list $i] color 12 |
| vmd_draw_vector [lindex $princ_moved_mol_axes_list $i] [lindex $com_list $i] [vecscale $princ_axes_scale $a2_moved] | vmd_draw_vector [lindex $princ_moved_mol_axes_list $i] [lindex $com_list $i] [vecscale $princ_axes_scale $a2_moved] |
| graphics [lindex $princ_moved_mol_axes_list $i] color 15 | graphics [lindex $princ_moved_mol_axes_list $i] color 15 |
| vmd_draw_vector [lindex $princ_moved_mol_axes_list $i] [lindex $com_list $i] [vecscale $princ_axes_scale $a3_moved] | vmd_draw_vector [lindex $princ_moved_mol_axes_list $i] [lindex $com_list $i] [vecscale $princ_axes_scale $a3_moved_flip] |
| | |
| foreach sphere [lindex $spherelist_list $i] { | foreach sphere [lindex $spherelist_list $i] { |
| set ts [coordtrans $m_to_user $sphere] | set ts [coordtrans $m_to_user $sphere] |
| draw color 32 | graphics [lindex $princ_moved_mol_list $i] color 32 |
| graphics [lindex $princ_moved_mol_list $i] sphere $ts radius 1 | graphics [lindex $princ_moved_mol_list $i] sphere $ts radius 1 |
| } | } |
| } | } |