From: martinahansen Date: Wed, 10 Feb 2010 15:54:39 +0000 (+0000) Subject: fixed feature width issue X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f25e4cacbe7839a6e037a3c3d4facee54e433e8d;p=biopieces.git fixed feature width issue git-svn-id: http://biopieces.googlecode.com/svn/trunk@873 74ccb610-7750-0410-82ae-013aeee3265d --- diff --git a/code_perl/Maasha/BGB/Draw.pm b/code_perl/Maasha/BGB/Draw.pm index f3dd63d..dcb7ef0 100644 --- a/code_perl/Maasha/BGB/Draw.pm +++ b/code_perl/Maasha/BGB/Draw.pm @@ -86,8 +86,8 @@ sub draw_feature $cr->rectangle( $feature->{ 'x1' }, $feature->{ 'y1' }, - $feature->{ 'x2' } - $feature->{ 'x1' }, - $feature->{ 'y2' } - $feature->{ 'y1' }, + $feature->{ 'x2' } - $feature->{ 'x1' } + 1, + $feature->{ 'y2' } - $feature->{ 'y1' } + 1, ); $cr->fill; diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm index 0b3531d..a3cad5d 100644 --- a/code_perl/Maasha/BGB/Track.pm +++ b/code_perl/Maasha/BGB/Track.pm @@ -246,7 +246,7 @@ sub track_feature_linear last if $x1 >= $ladder[ $y_step ] + 1; } - $y1 = $cookie->{ 'TRACK_OFFSET' } + ( ( 0.1 + $cookie->{ 'FEAT_WIDTH' } ) * $y_step ); + $y1 = $cookie->{ 'TRACK_OFFSET' } + ( ( 1.1 + $cookie->{ 'FEAT_WIDTH' } ) * $y_step ); $feature = { line_width => $cookie->{ 'FEAT_WIDTH' }, @@ -270,7 +270,7 @@ sub track_feature_linear push @features, $feature; - $y_max = Maasha::Calc::max( $y_max, $y_step * ( 0.1 + $cookie->{ 'FEAT_WIDTH' } ) ); + $y_max = Maasha::Calc::max( $y_max, $y_step * ( 1.1 + $cookie->{ 'FEAT_WIDTH' } ) ); push @features, feature_align( $entry, $beg, $y1, $factor, $cookie->{ 'FEAT_WIDTH' } ) if $entry->[ ALIGN ] ne '.';