[Perl] Samplear con PERL

[Alejandro G. Bedoya]

Ciertamente... Esto hace "resampleo cubico" para que quede bonito, o =
solo un
resize que queda un poquito feo????

Se usa con un vil???

        use GD;

Se supone que se debe de agregar el modulo al perl porque lo probe en=
 mi
maquina linux y me dijo que no lo encontro... el problema ser=EDa dec=
irle al
ISP si lo tiene( ya le pregunte y ni me contesto), pero probandolo po=
dria
saber...


---
Sinceramente...
Alejandro G. Bedoya
InterAccion.COM          Ponemos su Internet en Acci=F3n



----- Original Message -----
=46rom: "Salvador Ortiz Garcia" <sog@msg.com.mx>
To: "Alejandro G. Bedoya" <nezumi@prodigy.net.mx>
Cc: "Lista de perl" <perl@tlali.iztacala.unam.mx>
Sent: Wednesday, May 15, 2002 8:11 PM
Subject: Re: [Perl] Samplear con PERL


On Wed, 2002-05-15 at 17:14, Alejandro G. Bedoya wrote:
> Hablando de gr=E1ficas, alguien conoce un m=F3dulo simple que permi=
ta
resamplear
> imagenes JPG al vuelo. Lo que quiero hacer es que de un catalogo de
imagenes
> haga "thumbnails" al vuelo, me dijeron que habia algo similar para =
php.

Por ah=ED encuentras Image::GD::Thumbnail, yo no lo he probado.

Pero con GD vil y simple no es complicado:

   ...
   my $orig =3D GD::Image->newFromJpeg(...);
   my ($ox,$oy) =3D $orig->getBouds();
   my $thub =3D GD::Image->new($ox/$scala,$oy/$scala);
   $thumb->copyResized($orig,0,0,0,0,$ox/$scala,$oy/$scala,$ox,$oy);
   ...
   print SALIDA $thumb->jpeg;

Ahora que si quieres algo m=E1s grande y con muchos "features", puede=
s
usar PerlMagick, aunque no s=E9 si existe ImageMagick para Windows.


Saludos.

Salvador Ortiz.



_______________________________________________
Perl mailing list
Perl@tlali.iztacala.unam.mx
http://tlali.iztacala.unam.mx/mailman/listinfo/perl