Imager :: ImageTypes. Imager :: ImageTypes é um módulo Perl que contém modelos de imagem para o Imager.
Baixe Agora

Imager :: ImageTypes. Classificação e resumo

Imager :: ImageTypes. Tag

imagem Módulo Perl. Imager Modelos Modelos de imagem. Modelos de imagens

Imager :: ImageTypes. Descrição

Imager :: ImageTypes é um módulo Perl que contém modelos de imagem para o Imager. Imager :: ImageTypes é um módulo Perl que contém modelos de imagem para o Imager.synopsis usam o Imager; $ IMG = Imager-> Novo (); # Imagem vazia (tamanho é 0 por 0) $ img-> aberto (file => 'lena.png', digite => 'png'); # Leia a imagem do arquivo $ img = imager-> NOVO (xsize => 400, ysize => 300); # RGB dados $ img = imager-> novo (xsize => 400, ysize => 300, # canais de escala de cinza => 1); # $ img = imager-> novo (xsize => 400, ysize => 300, # RGB com canais alfa => 4); # $ img = imager-> novo (xsize => 200, ysize => 200, tipo => 'paletted'); # Paletted Image IMG = Imager-> Novo (Xsize => 200, Ysize => 200, bits => 16); # 16 bits / canal RGB $ IMG = Imager-> Novo (xsize => 200, ysize => 200, bits => 'duplo'); # 'duplo' ponto flutuante # por canal $ img-> img_set (xsize => 500, ysize => 500, # redefinir os canais de objeto de imagem => 4); # Exemplo Obtendo informações sobre um objeto Imager Imprimir "Informações da imagem: n"; Imprimir "Largura:", $ Img-> GetWidth (), "N"; Imprimir "Altura:", $ Img-> Getheight (), "N"; Imprimir "Canais:", $ Img-> GetCannels (), "N"; Imprimir "bits / canal:", $ img-> bits (), "n"; Imprimir "Virtual:", $ IMG-> Virtual ()? "Sim": "Não", "N"; Meu $ ColorCount = $ IMG-> GetColorCount (maxcolors => 512); Imprimir "Número real de cores na imagem:"; Imprimir definido ($ ColorCount)? $ ColorCount: "> 512", "n"; Imprimir "Tipo:", $ Img-> Tipo (), "N"; se ($ img-> tipo () eq 'direct') {Imprimir "canais modificáveis:"; Imprimir junção "", Mapa {($ img-> getmask () e 1Colorcount; @colors = $ img-> getcolors (); impressão "Tamanho da paleta: $ COUNTN"; Meu $ 4: 0 + @ Colors; Imprimir "Primeiras Entradas de $ MX: N"; para (@colors ) {my @res = $ _-> RGBA (); Imprimir "(", junte (", ", @res ),") n ";}}}}}}} tags (); if (@Tags) {print" tags: n "; para (@Tags) {Imprimir Shift @ $ _,": ", junte-se" ", @ $ _," n ";}} else {imprimir" nenhuma tags no imagen ";} Requisitos: · Requisitos de Perl: · Perl.

Imager :: ImageTypes. Software Relacionado