-$barmark[ (sum(@order) / @order - $minval) * $size ] = '='; # average
-$barmark[ orderpos($#order / 2) ] = '+'; # mean
-$barmark[ -$minval * $size ] = '|' if $minval < 0; # zero
-defined and $opt{color} and $_ = "\e[36m$_\e[0m" for @barmark;
+if ($opt{markers} // 1 and $size > 0) {
+ my sub orderpos { (($order[$_[0]] + $order[$_[0] + .5]) / 2 - $minval) * $size }
+ $barmark[ (sum(@order) / @order - $minval) * $size ] = '='; # average
+ $barmark[ orderpos($#order * .31731) ] = '>';
+ $barmark[ orderpos($#order * .68269) ] = '<';
+ $barmark[ orderpos($#order / 2) ] = '+'; # mean
+ $barmark[ -$minval * $size ] = '|' if $minval < 0; # zero
+ defined and $opt{color} and $_ = "\e[36m$_\e[0m" for @barmark;
+
+ state $lastmax = $maxval;
+ if ($maxval > $lastmax) {
+ print ' ' x ($lenval + $len);
+ printf "\e[90m" if $opt{color};
+ printf '%-*s',
+ ($lastmax - $minval) * $size + .5,
+ '-' x (($values[$nr - 1] - $minval) * $size);
+ print "\e[92m" if $opt{color};
+ say '+' x (($maxval - $lastmax - $minval) * $size + .5);
+ print "\e[0m" if $opt{color};
+ $lastmax = $maxval;
+ }
+}