| version 1.43 | version 1.44 |
|---|
| |
| ## | ## |
| ## VND -- Visual Neuronal Dynamics graphical interface | ## VND -- Visual Neuronal Dynamics graphical interface |
| ## | ## |
| ## $Id: vnd_gui.tcl,v 1.43 2025/07/03 18:48:10 jasonks2 Exp $ | ## $Id: vnd_gui.tcl,v 1.44 2025/07/25 18:54:27 barryi Exp $ |
| ## | ## |
| ## | ## |
| ## Home Page | ## Home Page |
| |
| $w.menubar.display.menu.rendermode add radiobutton -label "Acrobat3D" -variable render -value a3D -command { display rendermode Acrobat3D } | $w.menubar.display.menu.rendermode add radiobutton -label "Acrobat3D" -variable render -value a3D -command { display rendermode Acrobat3D } |
| $w.menubar.display.menu add separator | $w.menubar.display.menu add separator |
| $w.menubar.display.menu add command -label "Display Settings" -command { menu display off; menu display on } | $w.menubar.display.menu add command -label "Display Settings" -command { menu display off; menu display on } |
| | $w.menubar.display.menu add checkbutton -label "Show Virtuals in New Reps" -variable ::neuro::display_virtuals_at_creation -onvalue True -offvalue False |
| $w.menubar.display.menu add command -label "Ruler" -command {::Ruler::ruler_gui} | $w.menubar.display.menu add command -label "Ruler" -command {::Ruler::ruler_gui} |
| | |
| # Analysis | # Analysis |
| |
| .neuron.fp.spikes.main.lbl2frame.lbl.cb configure -values $::NeuronVND::listOfRepsForConnect | .neuron.fp.spikes.main.lbl2frame.lbl.cb configure -values $::NeuronVND::listOfRepsForConnect |
| } | } |
| | |
| | |
| | |
| proc ::NeuronVND::editRep {case} { | proc ::NeuronVND::editRep {case} { |
| variable repselected | variable repselected |
| variable styleRep | variable styleRep |
| |
| } | } |
| # create a timeseries for each type in typeList | # create a timeseries for each type in typeList |
| puts "nid_gid_dict = $nid_gid_dict" | puts "nid_gid_dict = $nid_gid_dict" |
| foreach p $::neuro::spikeHash(spikeList,$::NeuronVND::spikePop1) { | foreach p $::neuro::spikeHash(spikeList,$spikePop1) { |
| if [dict exists $nid_gid_dict [lindex $p 0]] { | if [dict exists $nid_gid_dict [lindex $p 0]] { |
| if {$n > -1 } { | if {$n > -1 } { |
| if {$n == 0} {set sp ""} else {set sp ","} | if {$n == 0} {set sp ""} else {set sp ","} |
| |
| set ret_string "dict($auxX_text $auxY_text $auxColor_text $auxGid_text)" | set ret_string "dict($auxX_text $auxY_text $auxColor_text $auxGid_text)" |
| return $ret_string | return $ret_string |
| | |
| | # the remaining code is this proc is not used: |
| # define multiplot with first set of data, using colors from VMD | # define multiplot with first set of data, using colors from VMD |
| puts $colorForData | puts $colorForData |
| set spikePlothandle [multiplot -x [lindex $timeSeriesData 0 1] -y [lindex $timeSeriesData 0 0] -nolines -xmin 0 -xmax $::NeuronVND::spikeEnd -xlabel "Time (ms)" -marker square -radius 2 -fillcolor white -linecolor $colorForData -title "Neuronal Spike Activity" -callback ::NeuronVND::goto -legend "Type [lindex $typeList 0]"] | set spikePlothandle [multiplot -x [lindex $timeSeriesData 0 1] -y [lindex $timeSeriesData 0 0] -nolines -xmin 0 -xmax $::NeuronVND::spikeEnd -xlabel "Time (ms)" -marker square -radius 2 -fillcolor white -linecolor $colorForData -title "Neuronal Spike Activity" -callback ::NeuronVND::goto -legend "Type [lindex $typeList 0]"] |
| |
| | |
| } | } |
| | |
| | proc ::NeuronVND::cmd_mod_rep_node_gid_list_gui {repid style colorMethod material scaling resolution gid_list {stride 1} {v1_special_skip False}} { |
| | #prototype, not in use |
| | #note: repid is an nrep number, not an index of the nreo list |
| | variable repselected |
| | set repIndex [lsearch -exact -index 0 -integer $::neuro::nrepList $repid] |
| | ::neuro::cmd_mod_rep_node_gid_list $repid $style $colorMethod $material $scaling $resolution $gid_list $stride $v1_special_skip |
| | set repdetails [lindex $::neuro::nrepList $repIndex] |
| | .neuron.fp.systems.rep.main.table.tb delete $repIndex |
| | # insert repid details in table |
| | # now showing a new column, "Neurons" |
| | set rowid [.neuron.fp.systems.rep.main.table.tb insert $repIndex [list [lindex $repdetails 3] [lindex $repdetails 4] $numberRep $selRep]] |
| | # set table curselection and repIndex |
| | .neuron.fp.systems.rep.main.table.tb selection clear 0 end |
| | .neuron.fp.systems.rep.main.table.tb selection set $rowid |
| | set repselected [.neuron.fp.systems.rep.main.table.tb curselection] |
| | # update GUI elements for rep at every parsed selection, then new data can be accessed from nrepList |
| | ::NeuronVND::updateRepMenu |
| | #fetch the most updated variables from the selection |
| | .neuron.fp.systems.rep.main.table.tb delete $repselected |
| | set rowid [.neuron.fp.systems.rep.main.table.tb insert $repselected [list [lindex $repdetails 3] [lindex $repdetails 4] $numberRep $selRep]] |
| | .neuron.fp.systems.rep.main.table.tb selection clear 0 end |
| | .neuron.fp.systems.rep.main.table.tb selection set $rowid |
| | |
| | } |
| | |
| | |
| | |