Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
TIFF	[ DIR ]	drwxr-xr-x
GD.pm	1.45 KB	-rw-r--r--
GIF.pm	6.86 KB	-rw-r--r--
JPEG.pm	2.18 KB	-rw-r--r--
PNG.pm	27.76 KB	-rw-r--r--
PNM.pm	7.93 KB	-rw-r--r--
TIFF.pm	8.69 KB	-rw-r--r--

Code Editor : GD.pm

package PDF::API2::Resource::XObject::Image::GD;

use base 'PDF::API2::Resource::XObject::Image';

use strict;
no warnings qw[ deprecated recursion uninitialized ];

our $VERSION = '2.043'; # VERSION

use PDF::API2::Util;
use PDF::API2::Basic::PDF::Utils;
use Scalar::Util qw(weaken);

sub new {
    my ($class,$pdf,$obj,$name,@opts) = @_;
    my $self;

$class = ref $class if ref $class;

$self=$class->SUPER::new($pdf,$name|| 'Jx'.pdfkey());
    $pdf->new_obj($self) unless($self->is_obj($pdf));

$self->{' apipdf'}=$pdf;
    weaken $self->{' apipdf'};

$self->read_gd($obj,@opts);

return($self);
}

sub read_gd {
    my $self = shift @_;
    my $gd = shift @_;
    my %opts = @_;

my ($w,$h) = $gd->getBounds();
    my $c = $gd->colorsTotal();

$self->width($w);
    $self->height($h);

$self->bpc(8);
    $self->colorspace('DeviceRGB');

if($gd->can('jpeg') && ($c > 256) && !$opts{-lossless}) {

$self->filters('DCTDecode');
        $self->{' nofilt'}=1;
        $self->{' stream'}=$gd->jpeg(75);

} elsif($gd->can('raw')) {

$self->filters('FlateDecode');
        $self->{' stream'}=$gd->raw;

} else {

$self->filters('FlateDecode');
        for(my $y=0;$y<$h;$y++) {
            for(my $x=0;$x<$w;$x++) {
                my $index=$gd->getPixel($x,$y);
                my @rgb=$gd->rgb($index);
                $self->{' stream'}.=pack('CCC',@rgb);
            }
        }

}

return($self);
}

${this.title}

Code Editor : GD.pm