logarithmic repeat markers multiply by 10

[barcat.git] / barcat

diff --git a/barcat b/barcat
index 1ffdeda9097523dfcbc6fa9e224899df7e84c6b9..431ed401489a1aa40aa9a1315966b2422734a2c5 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -263,10 +263,10 @@ if ($opt{markers} and $size > 0) {
                                return $func;
                        }
                        elsif ($func =~ /\A\/($float)\z/) {
-                               my @range = $1;
-                               #TODO log
-                               for (my $next = $1; $next < $maxval; $next += $range[0]) {
-                                       push @range, $next;
+                               my @range = my $multiple = my $next = $1;
+                               while ($next < $maxval) {
+                                       $multiple *= 10 if $opt{log};
+                                       push @range, $next += $multiple;
                                }
                                return @range;
                        }