#!/usr/bin/perl
my
$compress
=
'flate'
;
my
$cx
= 50;
my
$cy
= 50;
my
$cr
= 15;
my
$cs
= 32;
my
$ang
= 30;
my
$pdf
= PDF::Builder->new(
-compress
=>
$compress
);
$pdf
->mediabox(595,842);
my
$fnt
=
$pdf
->corefont(
'Verdana-Bold'
);
my
$page
=
$pdf
->page();
my
$gfx
=
$page
->gfx();
my
$text
=
$page
->text();
$text
->linewidth(0);
$text
->render(2);
$text
->textlabel(300,750,
$fnt
,20,
'Separation Colorspace(s)'
,
-color
=>
'#000'
,
-hscale
=>125,
-center
=>1);
$text
->strokecolor(
'#000'
);
my
$y
= 0;
foreach
my
$csn
(
qw( Red %0ff0 Green %f0f0 Blue %ff00 Cyan %f000 Magenta %0f00 Yellow %00f0 )
) {
my
$csp
=
$pdf
->colorspace_separation(
$csn
,
$csn
);
$text
->textlabel(
$cx
,
$cy
+(
$y
*$cs
)+14,
$fnt
,8,
$csn
,
-color
=>
'#000'
,
-hscale
=>85,
-right
=>1);
foreach
my
$x
(0 .. 0xf) {
$gfx
->fillcolor(
$csp
,
sprintf
(
'%0.4f'
,
$x
/0xf));
$gfx
->circle(
$cx
+(
$x
+1)
*$cs
,
$cy
+(
$y
+0.5)
*$cs
,
$cr
);
$gfx
->fillstroke();
$text
->textlabel(
$cx
+(
$x
+1)
*$cs
,
$cy
+(
$y
+0.5)
*$cs
-2,
$fnt
,8,
sprintf
(
'%0.4f'
,
$x
/0xf),
-color
=>
'#000'
,
-hscale
=>85,
-center
=>1);
}
$y
++;
}
my
$csp
=
$pdf
->colorspace_separation(
'All'
,
'#000'
);
$text
->textlabel(
$cx
,
$cy
+(
$y
*$cs
)+14,
$fnt
,8,
'All'
,
-color
=>
'#000'
,
-hscale
=>85,
-right
=>1);
foreach
my
$x
(0 .. 0xf) {
$gfx
->fillcolor(
$csp
,
sprintf
(
'%0.4f'
,
$x
/0xf));
$gfx
->circle(
$cx
+(
$x
+1)
*$cs
,
$cy
+(
$y
+0.5)
*$cs
,
$cr
);
$gfx
->fillstroke();
$text
->textlabel(
$cx
+(
$x
+1)
*$cs
,
$cy
+(
$y
+0.5)
*$cs
-2,
$fnt
,8,
sprintf
(
'%0.4f'
,
$x
/0xf),
-color
=>
'#000'
,
-strokecolor
=>
'#FFF'
,
-hscale
=>85,
-center
=>1);
}
$y
++;
$csp
=
$pdf
->colorspace_separation(
'None'
,
'#000'
);
$text
->textlabel(
$cx
,
$cy
+(
$y
*$cs
)+14,
$fnt
,8,
'None'
,
-color
=>
'#000'
,
-hscale
=>85,
-right
=>1);
foreach
my
$x
(0 .. 0xf) {
$gfx
->fillcolor(
$csp
,
sprintf
(
'%0.4f'
,
$x
/0xf));
$gfx
->circle(
$cx
+(
$x
+1)
*$cs
,
$cy
+(
$y
+0.5)
*$cs
,
$cr
);
$gfx
->fillstroke();
$text
->textlabel(
$cx
+(
$x
+1)
*$cs
,
$cy
+(
$y
+0.5)
*$cs
-2,
$fnt
,8,
sprintf
(
'%0.4f'
,
$x
/0xf),
-color
=>
'#000'
,
-hscale
=>85,
-center
=>1);
}
$y
++;
delete
$gfx
->{
'Filter'
};
$pdf
->saveas(
"$0.pdf"
);
$pdf
->end();
exit
;