Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix appearance of crossbox glyph

  • Loading branch information...
commit 0568fe9a4f1684414fc26ac810b533bf44fdaa7b 1 parent 2bd4ace
@lstein lstein authored
View
5 Changes
@@ -1,8 +1,11 @@
Revision history for Perl extension Bio::Graphics.
-2.32 Fri Feb 22 15:58:10 EST 2013
+2.33 Fri Feb 22 15:58:10 EST 2013
- Add truetype support. Enable by passing -truetype=>1 to Bio::Graphics::Panel->new()
+2.32 Mon Dec 10 05:47:45 EST 2012
+ - Clean up appearance of crossbox to avoid odd black bar in the middle.
+
2.31 Tue Sep 25 22:39:43 EDT 2012
- Fix infinite loop when drawing wiggle_xyplots with z-score scaling
over regions that do not vary much.
View
2  lib/Bio/Graphics.pm
@@ -2,7 +2,7 @@ package Bio::Graphics;
use strict;
use Bio::Graphics::Panel;
-our $VERSION = '2.32';
+our $VERSION = '2.33';
1;
View
13 lib/Bio/Graphics/Glyph/crossbox.pm
@@ -14,16 +14,9 @@ sub draw_component {
my $fg = $self->fgcolor;
my ($left,$top) = @_;
my($x1,$y1,$x2,$y2) = $self->bounds(@_);
- $self->unfilled_box($gd,
- $x1, $y1,
- $x2, $y2);
-
- if ($self->option('bgcolor')){
- my $c = $self->color('bgcolor');
- my $xmid = ($x2+$x1)/2;
- my $ymid = ($y2+$y1)/2;
- $gd->fill($xmid,$ymid,$c);
- }
+ $self->filled_box($gd,
+ $x1, $y1,
+ $x2, $y2);
$gd->line($x1,$y1,$x2,$y2,$fg);
$gd->line($x1,$y2,$x2,$y1,$fg);
Please sign in to comment.
Something went wrong with that request. Please try again.