From ca6b20aa1d3f9ca870d0a26a802b9a263218ea79 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 23 Sep 2019 17:40:14 +0200
Subject: [PATCH] distribute palette parameters over value range

---
 barcat | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/barcat b/barcat
index 7038f06..15a2269 100755
--- a/barcat
+++ b/barcat
@@ -221,9 +221,11 @@ say(
 while ($nr <= $#lines) {
 	$nr >= $opt{hidemax} and last if defined $opt{hidemax};
 	my $val = $values[$nr];
+	my $rel = length $val && ($val - $minval) / ($maxval - $minval);
 
 	if ($opt{spark}) {
-		print $opt{spark}->[ ($val - $minval) / $maxval * $#{$opt{spark}} ];
+		print color($opt{palette}->[ $rel * $#{$opt{palette}} ]) if $opt{palette};
+		print $opt{spark}->[ $rel * $#{$opt{spark}} ];
 		next;
 	}
 
@@ -231,7 +233,7 @@ while ($nr <= $#lines) {
 		my $color = !$opt{palette} ? undef :
 			$val == $order[0] ? $opt{palette}->[-1] : # max
 			$val == $order[-1] ? $opt{palette}->[0] : # min
-			$opt{palette}->[1] // $opt{palette}->[0];
+			$opt{palette}->[ $rel * ($#{$opt{palette}} - 1) + 1 ];
 		$val = $opt{units} ? sival($val) : sprintf "%*s", $lenval, $val;
 		color($color) for $val;
 	}
@@ -243,7 +245,7 @@ while ($nr <= $#lines) {
 continue {
 	$nr++;
 }
-say '' if $opt{spark};
+say $opt{palette} ? color(0) : '' if $opt{spark};
 
 }
 
-- 
2.30.0