From 4a3544b46588d4b055576ceb2b7eb188ce7da704 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Wed, 4 Sep 2019 16:45:49 +0200 Subject: [PATCH] prepare bar positions of (mean) indicators --- graph | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/graph b/graph index 2de4b90..0a02d3e 100755 --- a/graph +++ b/graph @@ -12,7 +12,10 @@ my @order = sort { $b <=> $a } @values; my $lenval = 1 + int log($order[0]) / log 10; # max string length my $len = 1 + max map { length } @lines; # left padding my $size = ($width - $lenval - $len) / $order[0]; # bar multiplication + +my @barmark; my $mean = ($order[$#order / 2] + $order[$#order / 2 + .5]) / 2; +$barmark[ $mean * $size ] = '+'; # mean for my $nr (0 .. $#lines) { my $val = $values[$nr]; @@ -24,7 +27,6 @@ for my $nr (0 .. $#lines) { printf "%*s", $lenval, $val; print "\e[0m" if $color; printf '%-*s', $len, $lines[$nr]; - my $bar = '-' x ($val * $size); - substr $bar, int($mean * $size) - 1, 1, "\e[36m+\e[0m" if $val >= $mean; - say $bar; + print $barmark[$_] // '-' for 1 .. $val * $size; + say ''; } -- 2.30.0