• AUTHOR

$cs = PDF::API2::Resource::ColorSpace->new $pdf, $key, %parameters

Returns a new colorspace object. base class for all colorspaces.

$cs = PDF::API2::Resource::ColorSpace->new_api $api, $name

Returns a color-space object. This method is different from 'new' that it needs an PDF::API2-object rather than a Text::PDF::File-object.

$name = $res->name $name

Returns or sets the Name of the resource.

@param = $cs->param @param

Returns properly formatted color-parameters based on the colorspace.

AUTHOR

alfred reibenschuh

    $Log: ColorSpace.pm,v $
    Revision 2.0  2005/11/16 02:16:04  areibens
    revision workaround for SF cvs import not to screw up CPAN

    Revision 1.2  2005/11/16 01:27:48  areibens
    genesis2

    Revision 1.1  2005/11/16 01:19:25  areibens
    genesis

    Revision 1.11  2005/06/17 19:44:03  fredo
    fixed CPAN modulefile versioning (again)

    Revision 1.10  2005/06/17 18:53:34  fredo
    fixed CPAN modulefile versioning (dislikes cvs)

    Revision 1.9  2005/03/14 22:01:06  fredo
    upd 2005

    Revision 1.8  2004/12/16 00:30:53  fredo
    added no warn for recursion

    Revision 1.7  2004/07/15 14:35:14  fredo
    added type accessor

    Revision 1.6  2004/06/15 09:14:41  fredo
    removed cr+lf

    Revision 1.5  2004/06/07 19:44:36  fredo
    cleaned out cr+lf for lf

    Revision 1.4  2003/12/08 13:05:33  Administrator
    corrected to proper licencing statement

    Revision 1.3  2003/11/30 17:28:55  Administrator
    merged into default

    Revision 1.2.2.1  2003/11/30 16:56:35  Administrator
    merged into default

    Revision 1.2  2003/11/30 11:44:49  Administrator
    added CVS id/log

=cut

if($opts{-type} eq 'CalRGB') {

my $csd=PDFDict(); $opts{-whitepoint}||=[ 0.95049, 1, 1.08897 ]; $opts{-blackpoint}||=[ 0, 0, 0 ]; $opts{-gamma}||=[ 2.22218, 2.22218, 2.22218 ]; $opts{-matrix}||=[ 0.41238, 0.21259, 0.01929, 0.35757, 0.71519, 0.11919, 0.1805, 0.07217, 0.95049 ];

$csd->{WhitePoint}=PDFArray(map {PDFNum($_)} @{$opts{-whitepoint}}); $csd->{BlackPoint}=PDFArray(map {PDFNum($_)} @{$opts{-blackpoint}}); $csd->{Gamma}=PDFArray(map {PDFNum($_)} @{$opts{-gamma}}); $csd->{Matrix}=PDFArray(map {PDFNum($_)} @{$opts{-matrix}});

$self->add_elements(PDFName($opts{-type}),$csd);

$self->{' type'}='rgb';

} elsif($opts{-type} eq 'CalGray') {

my $csd=PDFDict(); $opts{-whitepoint}||=[ 0.95049, 1, 1.08897 ]; $opts{-blackpoint}||=[ 0, 0, 0 ]; $opts{-gamma}||=2.22218; $csd->{WhitePoint}=PDFArray(map {PDFNum($_)} @{$opts{-whitepoint}}); $csd->{BlackPoint}=PDFArray(map {PDFNum($_)} @{$opts{-blackpoint}}); $csd->{Gamma}=PDFNum($opts{-gamma});

$self->add_elements(PDFName($opts{-type}),$csd);

$self->{' type'}='gray';

} elsif($opts{-type} eq 'Lab') {

my $csd=PDFDict(); $opts{-whitepoint}||=[ 0.95049, 1, 1.08897 ]; $opts{-blackpoint}||=[ 0, 0, 0 ]; $opts{-range}||=[ -200, 200, -200, 200 ]; $opts{-gamma}||=[ 2.22218, 2.22218, 2.22218 ];

$csd->{WhitePoint}=PDFArray(map {PDFNum($_)} @{$opts{-whitepoint}}); $csd->{BlackPoint}=PDFArray(map {PDFNum($_)} @{$opts{-blackpoint}}); $csd->{Gamma}=PDFArray(map {PDFNum($_)} @{$opts{-gamma}}); $csd->{Range}=PDFArray(map {PDFNum($_)} @{$opts{-range}});

$self->add_elements(PDFName($opts{-type}),$csd);

$self->{' type'}='lab';

} elsif($opts{-type} eq 'Indexed') {

$opts{-base}||='DeviceRGB'; $opts{-whitepoint}||=[ 0.95049, 1, 1.08897 ]; $opts{-blackpoint}||=[ 0, 0, 0 ]; $opts{-gamma}||=[ 2.22218, 2.22218, 2.22218 ];

# my $csd=PDFDict(); # $csd->{WhitePoint}=PDFArray(map {PDFNum($_)} @{$opts{-whitepoint}}); # $csd->{BlackPoint}=PDFArray(map {PDFNum($_)} @{$opts{-blackpoint}}); # $csd->{Gamma}=PDFArray(map {PDFNum($_)} @{$opts{-gamma}});

my $csd=PDFDict(); $pdf->new_obj($csd); $csd->{Filter}=PDFArray(PDFName('FlateDecode')); $self->{' index'}=[];

if(defined $opts{-actfile}) { } elsif(defined $opts{-acofile}) { } elsif(defined $opts{-colors}) { $opts{-maxindex}||=scalar(@{$opts{-colors}})-1;

foreach my $col (@{$opts{-colors}}) { map { $csd->{' stream'}.=pack('C',$_); } @{$col}; }

foreach my $col (0..$opts{-maxindex}) { if($opts{-base}=~/RGB/i) { my $r=(shift(@{$opts{-colors}})||0)/255; my $g=(shift(@{$opts{-colors}})||0)/255; my $b=(shift(@{$opts{-colors}})||0)/255; push(@{$self->{' index'}},[$r,$g,$b]); } elsif($opts{-base}=~/CMYK/i) { my $c=(shift(@{$opts{-colors}})||0)/255; my $m=(shift(@{$opts{-colors}})||0)/255; my $y=(shift(@{$opts{-colors}})||0)/255; my $k=(shift(@{$opts{-colors}})||0)/255; push(@{$self->{' index'}},[$c,$m,$y,$k]); } } } else { die ``unspecified color index table.''; }

$self->add_elements(PDFName($opts{-type}),PDFName($opts{-base}),PDFNum($opts{-maxindex}),$csd);

$self->{' type'}='index-'.( $opts{-base}=~/RGB/i ? 'rgb' : $opts{-base}=~/CMYK/i ? 'cmyk' : 'unknown' );

} elsif($opts{-type} eq 'ICCBased') {

my $csd=PDFDict();

$csd->{Filter}=PDFArray(PDFName('FlateDecode')); $csd->{Alternate}=PDFName($opts{-base}) if(defined $opts{-base}); $csd->{N}=PDFNum($opts{-components}); $csd->{' streamfile'}=$opts{-iccfile}; $pdf->new_obj($csd); $self->add_elements(PDFName($opts{-type}),$csd);

$self->{' type'} = $opts{-base}=~/RGB/i ? 'rgb' : $opts{-base}=~/CMYK/i ? 'cmyk' : $opts{-base}=~/Lab/i ? 'lab' : $opts{-base}=~/Gr[ae]y/i ? 'gray' : $opts{-base}=~/Index/i ? 'index' : 'other' ;

}