restrict spark index to maximum value

[barcat.git] / barcat

diff --git a/barcat b/barcat
index 4d3205ff3aec082d3741083e8c438902e45aeb52..62c1dbc4f9210e26d3d8e2c119313b6d585f39cc 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -285,7 +285,7 @@ say(
 
 while ($nr <= $limit) {
        my $val = $values[$nr];
-       my $rel = length $val && $range && ($val - $minval) / $range;
+       my $rel = length $val && $range && min(1, ($val - $minval) / $range);
        my $color = !length $val || !$opt{palette} ? undef :
                $val == $order[0] ? $opt{palette}->[-1] : # max
                $val == $order[-1] ? $opt{palette}->[0] : # min