From dc3cfd46b4111ef4ee92714ce0c0a002b3b9c91b Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Thu, 20 Aug 2009 06:37:07 +0000
Subject: [PATCH] added more range to plot_lendist

git-svn-id: http://biopieces.googlecode.com/svn/trunk@640 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/Plot.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/code_perl/Maasha/Plot.pm b/code_perl/Maasha/Plot.pm
index 22968f3..720b5e9 100644
--- 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";
-- 
2.39.5