Le ven. 30 sept. 2022 à 07:20, Andreas Tille <ti...@debian.org> a écrit :
> Am Fri, Sep 30, 2022 at 02:20:26AM +0200 schrieb olivier sallou:
> > Will try to have a look, but i have no perl knowledge and software is
> quite
> > old now...
>
I have a patch. With this patch, tests are ok, but I have no way to know if
it works as expected (don't know how to test it on real case)
Basically it removes gd2 format usage to use png, see patch below. But it
could have impacts on real display.
Patch:
--- a/lib/Bio/Graphics/Browser2/CachedTrack.pm
+++ b/lib/Bio/Graphics/Browser2/CachedTrack.pm
@@ -151,7 +151,7 @@
sub put_data {
my $self = shift;
my ($gd,$map,$titles) = @_;
- $self->{data}{gd} = $gd->can('gd2') ? $gd->gd2 : $gd;
+ $self->{data}{gd} = $gd->png;
$self->{data}{map} = $map;
$self->{data}{titles} = $titles;
my $datafile = $self->datafile;
@@ -191,7 +191,7 @@
my $gd = (ref($data->{gd})
&& ref($data->{gd})=~/^GD/)
? $data->{gd}
- : GD::Image->newFromGd2Data($data->{gd});
+ : GD::Image->newFromPngData($data->{gd});
return $gd;
}
--- a/lib/Bio/Graphics/Browser2/Render/Slave.pm
+++ b/lib/Bio/Graphics/Browser2/Render/Slave.pm
@@ -488,7 +488,7 @@
titles => $titles,
width => $width,
height => $height,
- imagedata => eval{$imagedata->gd2}};
+ imagedata => eval{$imagedata->png}};
}
my $content = nfreeze \%results;
return $content;
Olivier
>
> Alternatively we might consider removal.
>
> Kind regards
>
> Andreas.
>
> --
> http://fam-tille.de
>
