From 509cc3176a1ab80da8cd02badcd6fc6064d41e25 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 13 Nov 2022 15:28:46 +0100
Subject: [PATCH] restrict spark index to maximum value

---
 barcat                                   | 2 +-
 t/t2130-overspark.in                     | 1 +
 t/t2130-overspark_--spark_--maxval=1.out | 1 +
 3 files changed, 3 insertions(+), 1 deletion(-)
 create mode 120000 t/t2130-overspark.in
 create mode 100644 t/t2130-overspark_--spark_--maxval=1.out

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
diff --git a/t/t2130-overspark.in b/t/t2130-overspark.in
new file mode 120000
index 0000000..cb5106f
--- /dev/null
+++ b/t/t2130-overspark.in
@@ -0,0 +1 @@
+t2110-spark_binary.in
\ No newline at end of file
diff --git a/t/t2130-overspark_--spark_--maxval=1.out b/t/t2130-overspark_--spark_--maxval=1.out
new file mode 100644
index 0000000..0f13d54
--- /dev/null
+++ b/t/t2130-overspark_--spark_--maxval=1.out
@@ -0,0 +1 @@
+ ▁██▆ ▆█ ████  
-- 
2.30.0