[Programación] Re: [Programación] Re: [Programación] Perl y GD para unir graficos (Solucionado)

[Sebastián D. Criado]

--nextPart4607630.2QVDe3GpyU
Content-Type: text/plain;
  charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline

El Lunes 06 Marzo 2006 15:45, Horacio Castellini escribi=F3:
> > He estado haciendo algunos programitas para armar
> > PNG con Perl gracias a las
> > bibliotecas GD.
> >
> > En lo que respecta a Lineas, polyline, shapes,
> > colores y textos con True Type,
> > todo anda de maravilla.
>
> Como te comentaron en la reuni=F3n del viernes existe
> una bibioteca ImageMagik para perl que permite hacer
> lo que quer=E9s hacer...
>
> Esto lo saqu=E9 del man...


Si, reci=E9n termine de hacer el script para hacer el compose de imagenes y=
a que=20
a la ma=F1ana Emiliano me paso eso mismo.
Saque algunos ejemplos de http://www.dylanbeattie.net/magick/composite/

Quedo as=ED.

#!/usr/bin/perl


use Image::Magick;

# Creo la imagen
$background=3DImage::Magick->new;

# De aqui sacare luego la imagen a componer
$logo =3D Image::Magick->new;

# Seteo ancho y alto
$background->Set(size=3D>'200x150');

# Leo el logo que quiero poner de fondo
$background->Read("jpg:logo.jpg");

# Y la imagen que uqiero poner en frente
$logo->Read("png:picture.png");


# Llamo al metodo composite y le digo que me ponga $logo delante de la imag=
en=20
# $background

$background->Composite(image=3D>$logo,compose=3D>'over');
$background->Set(quality=3D>100);

# Por ultimo vuelco
$background->Write("gif:graf_final.gif");

# y limpio
undef $background;
undef $logo;
=2D-----------------------------


Gracias igual Horacio por los datos, los voy a seguir mirando.




=2D-=20

Sebasti=E1n D. Criado - scriado{en}ciudad.com.ar
L.U.G.R.o - http://www.lugro.org.ar
GNU/Linux Registered User # 146768
=2D------------------------------------------------------------------
"Si el Universo fuera un programa estar=EDa hecho en C, y correr=EDa sobre
un sistema UNIX"
                                                   An=F3nimo.

		=09

--nextPart4607630.2QVDe3GpyU
Content-Type: application/pgp-signature

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.2 (GNU/Linux)

iD8DBQBEDIg98hmHQ8ZCg0IRAnMOAJ9gyQgNUo3mpr+uAMDssJQtvKf3JQCdH1gi
+E6mP1GFWnb7ReuA8L41t7k=
=fodx
-----END PGP SIGNATURE-----

--nextPart4607630.2QVDe3GpyU--