From: martinahansen Date: Fri, 5 Mar 2010 13:22:49 +0000 (+0000) Subject: layout of wiggle improved X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0cd55075b67b82b8b3817e2786e11b147f8d24a1;p=biopieces.git 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 8056ec2..5322636 100644 --- 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' };