| version 1.42 | version 1.43 |
|---|
| |
| ## | ## |
| ## VND -- Visual Neuronal Dynamics graphical interface | ## VND -- Visual Neuronal Dynamics graphical interface |
| ## | ## |
| ## $Id: vnd_gui.tcl,v 1.42 2025/06/30 23:56:37 barryi Exp $ | ## $Id: vnd_gui.tcl,v 1.43 2025/07/03 18:48:10 jasonks2 Exp $ |
| ## | ## |
| ## | ## |
| ## Home Page | ## Home Page |
| |
| #grid [button $w.main.but2 -text "Remove Axes" -command {::NeuronVND::hide_axis}] -row $gr -column 0 -sticky news -padx 2 -pady 1 | #grid [button $w.main.but2 -text "Remove Axes" -command {::NeuronVND::hide_axis}] -row $gr -column 0 -sticky news -padx 2 -pady 1 |
| incr gr | incr gr |
| grid [button $w.main.label3.but4 -text "Align to x, y, z" -command {::NeuronVND::jump_mult_node}] -row $gr -column 0 -sticky news -padx 4 -pady 1 | grid [button $w.main.label3.but4 -text "Align to x, y, z" -command {::NeuronVND::jump_mult_node}] -row $gr -column 0 -sticky news -padx 4 -pady 1 |
| grid [button $w.main.label3.but5 -text "Reset position" -command {::NeuronVND::resetpos}] -row $gr -column 1 -sticky news -padx 4 -pady 1 | |
| incr gr | incr gr |
| wm protocol . WM_DELETE_WINDOW { | wm protocol . WM_DELETE_WINDOW { |
| destroy .neuron.aligntoolgui | destroy .neuron.aligntoolgui |
| |
| #copy the apical nodes for calculations | #copy the apical nodes for calculations |
| foreach coord [lindex [lindex $morpho_details_of_one_node 0] 3] { | foreach coord [lindex [lindex $morpho_details_of_one_node 0] 3] { |
| if {[lindex $coord 0] == 4} { | if {[lindex $coord 0] == 4} { |
| lappend morph_spherelist_combo_apical [lindex $coord 1] | append morph_spherelist_combo_apical [lindex $coord 1] |
| foreach {x y z} [lindex $coord 1] { | foreach {x y z} [lindex $coord 1] { |
| lappend x_array_apical $x | lappend x_array_apical $x |
| lappend y_array_apical $y | lappend y_array_apical $y |
| |
| } | } |
| puts "The percent flipped = $percent%" | puts "The percent flipped = $percent%" |
| } | } |
| | mol top $principal_axis_mol |
| | display resetview |
| | |
| #fill Mariano's objlist #haky way | #fill Mariano's objlist #haky way |
| lappend ::NeuronVND::objList [list $principal_axis_mol $name2] | lappend ::NeuronVND::objList [list $principal_axis_mol $name2] |