added more range to plot_lendist

git-svn-id: http://biopieces.googlecode.com/svn/trunk@640 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/Plot.pm b/code_perl/Maasha/Plot.pm
index 22968f3c8a62d4748441c3a15bcc7b5c93d86d0b..720b5e92a561dda5d9ba374c15012865ed2f6e4c 100644 (file)
--- a/code_perl/Maasha/Plot.pm
+++ b/code_perl/Maasha/Plot.pm
@@ -199,7 +199,7 @@ sub histogram_lendist
 
     $options->{ "terminal" } ||= "dumb";
 
-    if ( $data->[ -1 ]->[ 0 ] <= 10 ) {
+    if ( $data->[ -1 ]->[ 0 ] <= 10 ) { # FIXME: some day figure the formula for this!
         $xtic_space = 1;
     } elsif ( $data->[ -1 ]->[ 0 ] <= 100 ) {
         $xtic_space = 5;
@@ -219,6 +219,8 @@ sub histogram_lendist
         $xtic_space = 1000;
     } elsif ( $data->[ -1 ]->[ 0 ] <= 100000 ) {
         $xtic_space = 5000;
+    } elsif ( $data->[ -1 ]->[ 0 ] <= 1000000 ) {
+        $xtic_space = 50000;
     }
 
     $cmd  = "gnuplot";