diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 5 |
1 files changed, 3 insertions, 2 deletions
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))) }] |