| Imager :: Imagetypes Imager :: Imagetypes is een PERL-module die beeldmodellen voor imager bevat. |
Download nu |
Imager :: Imagetypes Rangschikking & Samenvatting
- Vergunning:
- Perl Artistic License
- Naam uitgever:
- Tony Cook, Arnar M. Hrafnkelsson
- Uitgever website:
- http://search.cpan.org/~tonyc/Imager-0.61/lib/Imager/ImageTypes.pod
Imager :: Imagetypes Tags
Imager :: Imagetypes Beschrijving
Imager :: Imagetypes is een Perl-module die beeldmodellen voor imager bevat. Imager :: Imagetypes is een PERL-module die beeldmodellen voor imager.synopsis gebruiken Gebruik Imager; $ img = imager-> nieuw (); # Lege afbeelding (maat is 0 door 0) $ img-> open (bestand => 'Lena.png', type => 'PNG'); # Lees afbeelding uit bestand $ img = imager-> nieuw (XSIZE => 400, YSIZE => 300); # RGB Data $ IMG = Imager-> NIEUW (XSIZE => 400, YSIZE => 300, # GrayScale-kanalen => 1); # $ IMG = imager-> NIEUW (XSIZE => 400, YSIZE => 300, # RGB met alpha-kanalen => 4); # $ img = imager-> nieuw (XSIZE => 200, YSIZE => 200, type => 'gealetteerd'); # Paletted Image $ IMG = Imager-> NIEUW (XSIZE => 200, YSIZE => 200, BITS => 16); # 16 bits / kanaal RGB $ IMG = imager-> Nieuw (XSIZE => 200, YSIZE => 200, bits => 'Dubbel'); # 'Double' drijvend punt # per kanaal $ img-> img_set (XSIZE => 500, YSIZE => 500, # Reset de beeldobjectkanalen => 4); # Voorbeeld Krijg Informatie over een Imager Object Print "Beeldinformatie: N"; Print "Breedte:", $ img-> getwidth (), "n"; Afdrukken "Hoogte:", $ img-> Gethight (), "N"; Print "kanalen:", $ img-> Getchannels (), "N"; Print "bits / kanaal:", $ img-> bits (), "n"; Print "virtueel:", $ img-> virtueel ()? "Ja": "Nee", "N"; mijn $ colorcount = $ img-> getcolorcount (maxcolors => 512); Print "Werkelijk aantal kleuren in afbeelding:"; Afdruk gedefinieerd ($ ColorCount)? $ COLORCOUNT: "> 512", "N"; Print "Type:", $ img-> type (), "N"; if ($ img-> type () EQ 'DIRECT') {print "modificeerbare kanalen:"; Afdrukken Join "", kaart {($ img-> getmask () en 1colorcount; @colors = $ img-> getcolors (); print "palet grootte: $ countn"; mijn $ mx = @colors> 4? 4: 0 + @ kleuren; Print "First $ MX-vermeldingen: n"; voor (@colors ) {MY @RES = $ _-> RGBA (); Print "(", Word lid (", ", @res ),") n ";}} mijn @tags = $ img-> tags (); if (@tags) {print" -tags: n "; voor (@tags) {print shift @ $ _,": ", join" ", @ $ _," n ";}} anders {print" geen tags in Imagen ";} Vereisten: · Perl-vereisten: · Perl
Imager :: Imagetypes Gerelateerde software