Imager :: Imagentypes. Imager :: Imagentypes ist ein Perl-Modul, das Bildmodelle für Imager enthält.
Jetzt downloaden

Imager :: Imagentypes. Ranking & Zusammenfassung

Imager :: Imagentypes. Stichworte

Bild Perl-Modul Imager Modelle Bildmodelle Imager-Modelle

Imager :: Imagentypes. Beschreibung

Imager :: Imagentypes ist ein Perl-Modul, das Bildmodelle für Imager enthält. Imager :: Imagentypes ist ein Perl-Modul, das Bildmodelle für Imager.Synopsis enthält. $ img = Imager-> Neu (); # Leeres Bild (Größe ist 0 x 0) $ img-> geöffnet (Datei => 'lena.png', Typ => 'png'); # Bild lesen von Datei $ IMG = Imager-> NEU (Xsize => 400, Ysize => 300); # RGB-Daten $ IMG = Imager-> NEU (Xsize => 400, Ysize => 300, # Graustufenkanäle => 1); # $ IMG = Imager-> NEU (Xsize => 400, Ysize => 300, # RGB mit Alpha-Kanälen => 4); # $ IMG = Imager-> NEU (Xsize => 200, Ysize => 200, Typ => 'palettiert'); # Palettiertes Bild $ IMG = Imager-> NEU (Xsize => 200, Ysize => 200, Bits => 16); # 16 Bits / Kanal RGB $ IMG = Imager-> NEU (Xsize => 200, Ysize => 200, Bits => 'double'); # 'doppelter' Floating Point # pro Kanal $ IMG-> img_set (Xsize => 500, ysize => 500, # Setzen Sie die Bildobjektkanäle => 4); # Beispiel zum Erhalten von Informationen zu einem Imagers-Objekt drucken "Bildinformation: n"; drucken "Breite:", $ IMG-> Getwidth (), "n"; drucken "Höhe:", $ IMG-> GETHIEGD (), "N"; drucken "Kanäle:", $ IMG-> GetChannels (), "n"; drucken "Bits / Kanal:", $ img-> Bits (), "n"; drucken "virtuell:", $ iMG-> virtuelle ()? "Ja": "Nein", "n"; mein $ colorcount = $ img-> getcolorcount (maxcolors => 512); drucken "tatsächliche Anzahl der Farben im Bild:"; Definiert drucken ($ colorcount)? $ ColorCount: "> 512", "n"; drucken "Typ:, $ img-> typ ()," n "; if ($ IMG-> Typ () EQ 'Direct') {drucken "modifizierbare Kanäle:"; Drucken Join "", Map {($ IMG-> GetMask () und 1colorcount; @colors = $ IMG-> GetColors (); drucken "Palette Größe: $ drucken"; My $ mx = @colors> 4? 4: 0 + @ farben; drucken "erste $ mx-Einträge: n"; für (@colors ) {my @res = $ _-> rgba (); drucken "(", ", @res ),") n ";}} my @tags = $ img-> tags (); if (@tags) {drucken" Tags: n "; für (@tags) {Print Shift @ $ _,": ", Join" ", @ $ _," n ";}} else {drucken" keine Tags in Imagenten ";} Anforderungen: · Perl Anforderungen: · Perl.

Imager :: Imagentypes. Zugehörige Software