Как сохранить прозрачность при изменении размера PNG с использованием Perl и GD - PullRequest
Новая
       61

Как сохранить прозрачность при изменении размера PNG с использованием Perl и GD

6 голосов
/ 04 февраля 2011

Это код, который я использую: 

!/usr/bin/perl
use GD;
sub resize
{
    my ($inputfile, $width, $height, $outputfile) = @_;
    my $gdo = GD::Image->new($inputfile);

    ## Begin resize

    my $k_h = $height / $gdo->height;
    my $k_w = $width / $gdo->width;
    my $k = ($k_h < $k_w ? $k_h : $k_w);
    $height = int($gdo->height * $k);
    $width  = int($gdo->width * $k);

    ## The tricky part

    my $image = GD::Image->new($width, $height, $gdo->trueColor);
    $image->transparent( $gdo->transparent() );
    $image->copyResampled($gdo, 0, 0, 0, 0, $width, $height, $gdo->width, $gdo->height);

    ## End resize

    open(FH, ">".$outputfile);      
    binmode(FH);
    print FH $image->png();
    close(FH);
}
resize("test.png", 300, 300, "tested.png");

Выходное изображение имеет черный фон, и все альфа-каналы теряются.

Я использую это изображение: http://i54.tinypic.com/33ykhad.png

Это результат: http://i54.tinypic.com/15nuotf.png

Я пробовал все комбинации альфа (), прозрачности () и т. Д., Ни одна из них не работала .....

Просьба помочь мне с этой проблемой.

1 Ответ

7 голосов
/ 05 февраля 2011

Можно ли сохранить прозрачность PNG-изображения при использовании PHP GDlib imagecopyresampled? 

#!/usr/bin/env perl
use strictures;
use autodie qw(:all);
use GD;

sub resize {
    my ($inputfile, $width, $height, $outputfile) = @_;
    GD::Image->trueColor(1);
    my $gdo = GD::Image->new($inputfile);

    {
        my $k_h = $height / $gdo->height;
        my $k_w = $width / $gdo->width;
        my $k   = ($k_h < $k_w ? $k_h : $k_w);
        $height = int($gdo->height * $k);
        $width  = int($gdo->width * $k);
    }

    my $image = GD::Image->new($width, $height);
    $image->alphaBlending(0);
    $image->saveAlpha(1);
    $image->copyResampled($gdo, 0, 0, 0, 0, $width, $height, $gdo->width, $gdo->height);

    open my $FH, '>', $outputfile;
    binmode $FH;
    print {$FH} $image->png;
    close $FH;
}
resize('test.png', 300, 300, 'tested.png');
...