Discussion :

[djibril]

Bonjour,

Petite question car je ne trouve pas la réponse. J'utilise essentiellement le module GD et Image::Info.
J'ai deux images visuellement identiques. L'une a un color_type RGBA (ok.png) et l'autre indexed-RGB (bad.png).
Je souhaite avec le module GD réenregistrer l'image, la convertir toujours en PNG mais en corrigeant le color_type en RGBA ou RGB.

Voici un début de programme pour lister les informations des images :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use strict;
use warnings;
use Image::Info qw(image_info dim);
use GD::Image;
 
my $image1      = 'bad.png';
my $image2      = 'ok.png';
my $image_info1 = image_info($image1);
my $image_info2 = image_info($image2);
print "$image1\n";
print $image_info1->{color_type}, "\n";
print "$image2\n";
print $image_info2->{color_type}, "\n";
 
# réenregistrer l'image 1 pour modifier le color_type

[dmganges]

Bonsoir,
Juste pour ne pas te laisser seul sur ce coup et pour faire remonter le sujet

Çà c'est OK, ça reste en Indexed-RGB (standard ???) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
# Convert the image to PNG and print it on standard output
        print $im->png;

Par curiosité j'ai regardé, je n'ai même pas réussi à faire un clone

En fait le clone fonctionne mais on perd la transparence... pour un clone ça la fout mal !
Et on est toujours en Indexed-RGB;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#!/usr/bin/perl
use strict;
use warnings;
use Image::Info qw(image_info dim);
use GD::Image;
 
my $image1      = 'bad.png';
my $image2      = 'ok.png';
my $image_info1 = image_info($image1);
my $image_info2 = image_info($image2);
print "$image1\n";
print $image_info1->{color_type}, "\n";
print "$image2\n";
print $image_info2->{color_type}, "\n";
 
# réenregistrer l'image 1 pour modifier le color_type
#####################################################
 
my $bon       = 'bon.png';
my $image_bon = image_info($bon);
print "\n$bon\n";
print $image_bon->{color_type}, "\n";
 
my $source_file = "mauvais.png";
my $target_file = "essai.png";
 
my $image = newFromPng GD::Image($source_file, 1) || die "Impossible ouvrir image ! $!";
 
(my $width, my $height) = $image->getBounds();
print "$width  $height\n";
 
my $imageA = $image->clone;
 
open(DATEI ,">$target_file") || die "Ouverture impossible : $!";
binmode DATEI;
print DATEI ($imageA->png());
close(DATEI);
 
my $essai       = 'essai.png';
my $image_essai = image_info($essai);
print "\n$essai\n";
print $image_essai->{color_type}, "\n";

En grattant je suis tombé sur des outils math pour faire des conversions vers RGB, mais c'est trop ardu pour moi !
c'était pour faire avancer le schmilblick

[djibril]

C'est clair que je sèche.

[Philou67430]

Je ne sais pas si c'est pertinent, mais as-tu regardé du côté des outils perl-magick ? (modules Image::Magick).

[djibril]

Si si, c'est très pertinent, mais mon but était de ne pas l'utiliser car mon prog tourne sur des pc qui ne l'auront pas forcément. Dans l'absolu, si tous les pc l'avaient, ce serait la joie et je n'utiliserai même pas GD !

[magicshark]

Je sais pas si c'est possible dans ton cas mais en utilisant Imager, j'ai réussi à faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict;
use warnings;
use Image::Info qw(image_info dim);
use Imager;
 
my $image1      = 'bad.png';
my $target_file = "essai.png";
 
my $image_info1 = image_info($image1);
print $image1."\ntype : ".$image_info1->{color_type}, "\n";
 
my $image = Imager->new;
$image->read(file=>$image1) or die $image->errstr;
my $rgbimg = $image->to_rgb_double;
$image->write(file => $target_file, type => 'png') or die $image->errstr;
 
my $image_info_resultat = image_info($target_file);
print $target_file."\ntype : ".$image_info_resultat->{color_type}, "\n"

n'étant pas expert dans le domaine j'ai choisi arbitrairement la méthode "to_rgb_double()" mais il y en à plusieurs autres (cf doc ici)