X-Git-Url: http://git.shiar.net/barcat.git/blobdiff_plain/a0573c74950b40df8b902c9af355ce476ebc7d47..6b073cda9ed996cec5895eb2d9f0b0fd88e50312:/graph diff --git a/graph b/graph index b41f0c0..0d9db2e 100755 --- a/graph +++ b/graph @@ -39,7 +39,7 @@ my $size = ($maxval - $minval) && ($opt{width} - $lenval - $len) / ($maxval - $minval); # bar multiplication my @barmark; -if ($opt{markers} // 1) { +if ($opt{markers} // 1 and $size > 0) { sub orderpos { (($order[$_[0]] + $order[$_[0] + .5]) / 2 - $minval) * $size } $barmark[ (sum(@order) / @order - $minval) * $size ] = '='; # average $barmark[ orderpos($#order / 2) ] = '+'; # mean