The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

PMPERRY / PDF-Builder-3.026 / lib / PDF / Builder / Resource / ColorSpace / Indexed / WebColor.pm 

            

              
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

              
package PDF::Builder::Resource::ColorSpace::Indexed::WebColor;
use base 'PDF::Builder::Resource::ColorSpace::Indexed';
use strict;
use warnings;
our $VERSION = '3.026'; # VERSION
our $LAST_UPDATE = '3.026'; # manually update whenever code is changed
=head1 NAME
PDF::Builder::Resource::ColorSpace::Indexed::WebColor - colorspace support for "Web Safe" Device RGB colors. Inherits from L<PDF::Builder::Resource::ColorSpace::Indexed>
=cut
use PDF::Builder::Basic::PDF::Utils;
use PDF::Builder::Util;
use Scalar::Util qw(weaken);
=head1 METHODS
=head2 new
     PDF::Builder::Resource::ColorSpace::Indexed::WebColor->new()
=over
Create a new "web-safe" indexed colorspace object.
=back
=cut
sub new {
    my ($class, $pdf) = @_;
    $class = ref($class) if ref($class);
    my $self = $class->SUPER::new($pdf, pdfkey());
    $pdf->new_obj($self) unless $self->is_obj($pdf);
    $self->{' apipdf'} = $pdf;
    weaken $self->{' apipdf'};
    my $csd = PDFDict();
    $pdf->new_obj($csd);
    $csd->{'Filter'} = PDFArray(PDFName('ASCIIHexDecode'));
   #$csd->{'WhitePoint'} = PDFArray(map {PDFNum($_)} (0.95049, 1, 1.08897));
   #$csd->{'BlackPoint'} = PDFArray(map {PDFNum($_)} (0, 0, 0));
   #$csd->{'Gamma'} = PDFArray(map {PDFNum($_)} (2.22218, 2.22218, 2.22218));
    $csd->{' stream'} = '';
    # 0-215
    foreach my $r (0,0x33,0x66,0x99,0xCC,0xFF) {
        foreach my $g (0,0x33,0x66,0x99,0xCC,0xFF) {
            foreach my $b (0,0x33,0x66,0x99,0xCC,0xFF) {
                $csd->{' stream'} .= pack('CCC', $r,$g,$b);
            }
        }
    }
    # 216-231
    foreach my $r (0,0x11,0x22,0x33,0x44,0x55,0x66,0x77,
                   0x88,0x99,0xAA,0xBB,0xCC,0xDD,0xEE,0xFF) {
        $csd->{' stream'} .= pack('CCC', $r,$r,$r);
    } 
    # 232-247
    foreach my $r (0,0x11,0x22,0x33,0x44,0x55,0x66,0x77,
                   0x88,0x99,0xAA,0xBB,0xCC,0xDD,0xEE,0xFF) {
        $csd->{' stream'} .= pack('CCC', 
                                  map { $_*255 } 
                                  namecolor('!'.sprintf('%02X', $r).'FFFF'));
    }
    # 248-255
    foreach my $r (0,0x22,0x44,0x66,0x88,0xAA,0xCC,0xEE) {
        $csd->{' stream'} .= pack('CCC', 
                                  map { $_*255 } 
                                  namecolor('!'.sprintf('%02X', $r).'FF99'));
    }
    $csd->{' stream'} .= "\x00" x 768;
    $csd->{' stream'} = substr($csd->{' stream'}, 0, 768);
    $self->add_elements(PDFName('DeviceRGB'), PDFNum(255), $csd);
    $self->{' csd'} = $csd;
    return $self;
}
1;