From 74f3109d808ef8f7f56373868070d728f22cfac2 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Wed, 4 Sep 2019 20:24:17 +0200 Subject: [PATCH] negative value support Include integers less than zero; treat as positive for bar sizes. --- graph | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/graph b/graph index ad1225b..01f6846 100755 --- a/graph +++ b/graph @@ -19,11 +19,12 @@ $opt{color} //= 1; my @lines = readline or exit; chomp for @lines; -my @values = map { s/^\h*([0-9]*)// and $1 } @lines; +my @values = map { s/^\h*(-?[0-9]*)// and $1 } @lines; my @order = sort { $b <=> $a } @values; -my $lenval = 1 + int log($order[0]) / log 10; # max string length +my $maxval = max $order[0], -$order[-1]; +my $lenval = 1 + ($order[-1] < 0) + int log($maxval || 1) / log 10; # max string length my $len = 1 + max map { length } @lines; # left padding -my $size = ($opt{width} - $lenval - $len) / $order[0]; # bar multiplication +my $size = ($opt{width} - $lenval - $len) / $maxval; # bar multiplication sub orderpos { ($order[$_[0]] + $order[$_[0] + .5]) / 2 * $size } my @barmark; @@ -41,7 +42,7 @@ for my $nr (0 .. $#lines) { printf "%*s", $lenval, $val; print "\e[0m" if $color; printf '%-*s', $len, $lines[$nr]; - print $barmark[$_] // '-' for 1 .. $val * $size; + print $barmark[$_] // '-' for 1 .. abs $val * $size; say ''; } -- 2.30.0