#!/bin/sh
# (C) 2018 by Eugeniy Mikhailov, <evgmik@gmail.com>
# vim:set ft=tcl: \
exec tclsh "$0" "$@"

package require math::statistics

proc data2txtPlot { data } {
	# fixme: use buil-in min and max to get rid math::statistics dependence
	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 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))) }]

		# safety check on counter value
		set cnt [expr {min($cnt, ($barsNum-1))}]
		set cnt [expr {max($cnt, 0)}]

		set bar [lrange $chars $cnt $cnt]
		lappend strPlot $bar
	}
	return [join $strPlot ""]
}

proc binInHistogram { x limits } {
	# calculates which bin in histogram	is occupied by data with value x
	# limits of the histogram they are used the same way as in ::math::statistics::histogram
	set cnt 0
	foreach lim $limits {
		if { $x < $lim } {
			break;
		}
		incr cnt
	}
	return $cnt;
}

proc markNthBin { i } {
	#set mark  {█}
	#set mark  {╽}
	set mark  {╿}
	set mark  {↑}
	set space {▁}
	#set space {─}
	set out {}
	set cnt 0
	set i [expr {max(0,$i)}]
	while { $cnt < $i } {
		lappend out $space
		incr cnt
	}
	lappend out $mark
	return [join $out ""]
}

# usage examples
#
#puts [ data2txtPlot {1 2 3 4 5 6 7 8} ]
#puts [ data2txtPlot {1 2 3 4 5 6 7 8 7 6 5 4 3 2 1} ]

#puts [ binInHistogram -10 {10 20 30}]
#puts [ binInHistogram  15 {10 20 30}]
#puts [ binInHistogram  25 {10 20 30}]
#puts [ binInHistogram  35 {10 20 30}]
#puts [ binInHistogram  30 {10 20 30}]
#puts [ binInHistogram  10 {10 20 30}]

#puts [ markNthBin 0 ]
#puts [ markNthBin 1 ]
#puts [ markNthBin 2 ]
#puts [ markNthBin 10 ]


# vim: ts=2 sw=2 foldmethod=indent: