From 437b5a8e1a256d29ecfdaf25b55bcc3ecaeb9b5e Mon Sep 17 00:00:00 2001 From: "Eugeniy E. Mikhailov" Date: Thu, 10 May 2018 20:36:05 -0400 Subject: uniform data is plotted as mid size blocks --- GradeBook_lib.tcl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'GradeBook_lib.tcl') diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 000bdfe..58d2b03 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -2299,11 +2299,12 @@ proc data2txtPlot { data } { set maxVal [::math::statistics::max $data ] set minVal [::math::statistics::min $data ] set diffVal [expr {$maxVal-$minVal}] + set chars {▁ ▂ ▃ ▄ ▅ ▆ ▇ █}; # 8 bars if { $diffVal == 0 } { set diffVal 1 + set chars {▄}; # if all values are the same use mid bar } - set chars {▁ ▂ ▃ ▄ ▅ ▆ ▇ █}; # 8 bars - set barsNum 8; + set barsNum [llength $chars]; foreach x $data { # funky 1.1 are needed to convert it to floats set cnt [expr { round((1.0*$x-$minVal)/(1.1*$diffVal)*(1.1*($barsNum-1.0))) }] -- cgit v1.2.3