Discussion :

[ascito]

Bonjour à tous,

voici le cas de figure :

1 ) j'ai installé les modules Image::Magick, PDF::API2
2 ) je dispose d'une image quelconque, admettons quelle soit .jpg en couche RBV
3 ) je souhaite tout d'abord changer son mode colorimétrique en CMYK ( avec Image::Magick , pas de problème apparent )
4) je souhaite créer un pdf ( avec PDF::API2 , pas de problème apparent )
5 ) j'intègre la nouvelle image dans le pdf, j'enregistre

le problème tel que je le vois est que le format du pdf ne serait pas "couché" en CMYK, qui fait que les couleurs de l'image ne sont pas les bonnes

je vous joint ce que j'ai écris comme test, je ne comprend pas comment forcer le pdf à être en CMYK... Je ne sais même plus si c'est possible avec PDF::API2.
je peu tout a fait installer un autre module qui le permettrais si cela est nécessaire.

Je vous remercie d'avance de votre aide

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
#!/usr/bin/perl
 
use strict;
use warnings;
use Image::Magick;
use PDF::API2;
use PDF::API2::Resource::ColorSpace::Separation;
use PDF::API2::Resource::ColorSpace::DeviceN;
my($image, $x);
 
$image = Image::Magick->new;
$x = $image->Read('logo.jpg');
$image->Crop(geometry=>'1900x1300+0+0');
$image->Set(colorspace=>'CMYK');
$image->Set(density=>'300x300');
$x =$image->Write('x.jpg');
 
my $pdf=PDF::API2->new;
 
my $cy = $pdf->colorspace_separation('Cyan',    '%f000');
my $ma = $pdf->colorspace_separation('Magenta', '%0f00');
my $ye = $pdf->colorspace_separation('Yellow',  '%00f0');
my $bk = $pdf->colorspace_separation('Black',   '%000f');
my $pms023 = $pdf->colorspace_separation('PANTONE 032CV', '%0ff0'); 
my $dncs = $pdf->colorspace_devicen( [ $cy,$ma,$ye,$bk,$pms023 ] );
 
#$pdf->resource('ColorSpace',$spacekey,$spaceobj);//ne sais pas  comment l'ecrire ni s'il faut s'en servir
 
my $page = $pdf->page;
$page->mediabox(1900,1300);
 
my $gfx=$page->gfx;
my $img = $pdf->image_jpeg("x.jpg");
$gfx->image($img, 0, 0, 1900,1300);
 
 
$pdf->saveas("test.pdf");
$pdf->end();