X-Git-Url: http://git.shiar.net/barcat.git/blobdiff_plain/86f0baa047d92c961adb8dc8527e955d1254ad0b..509cc3176a1ab80da8cd02badcd6fc6064d41e25:/barcat

diff --git a/barcat b/barcat
index 4d3205f..62c1dbc 100755
--- 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