layout of wiggle improved

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

diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm
index 8056ec2911c1f576d2d8a285573989ea178c8d7e..5322636b7980faa62c12bc11f46c43d8179821fd 100644 (file)
--- a/code_perl/Maasha/BGB/Track.pm
+++ b/code_perl/Maasha/BGB/Track.pm
@@ -227,6 +227,8 @@ sub track_wiggle
 
     my ( $i, $max_val, $min_val, $factor, $factor_height, $x1, $y1, $x2, $y2, $block_max, $mean, @features );
 
+    $cookie->{ 'TRACK_OFFSET' } += 10;
+
     $factor = $cookie->{ 'IMG_WIDTH' } / ( $end - $beg );
 
     ( $min_val, $max_val ) = Maasha::Calc::minmax( $vals );
@@ -287,7 +289,7 @@ sub track_wiggle
         font_size => $cookie->{ 'SEQ_FONT_SIZE' } - 2,
         color     => $cookie->{ 'SEQ_COLOR' },
         x1        => 0,
-        y1        => $cookie->{ 'TRACK_OFFSET' },
+        y1        => $cookie->{ 'TRACK_OFFSET' } - 5,
     };
 
     $cookie->{ 'TRACK_OFFSET' } += $cookie->{ 'WIGGLE_HEIGHT' } + $cookie->{ 'TRACK_SPACE' };