[Image-Magick] Farbtiefe (gelöst) (Fragen zu Perl-Modulen)

[thread]18061[/thread]

[Image-Magick] Farbtiefe [gelöst]

Tags: perl5 Image::Magick Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+3 replies
Kean

2013-01-16 16:42
User since
2004-08-18
463 Artikel
BenutzerIn
Ich habe ein Programm in welchem ich ein Image-Magick Objekt erstelle:
Code: (dl )

1 2 3

my $image = Image::Magick->new(depth=>32); $image->Set(size=>'1014x636'); $image->ReadImage('xc:white');
Dann lade ich noch zwei weitere Grafiken aus einer Datenbank:
Code: (dl )

1 2 3 4 5 6 7

my $blob = $$ref2{'Bild'}; my $new_image = Image::Magick->new(depth=>32); $new_image->BlobToImage($blob); print $new_image->Get('depth')."\n"; my ($image_width, $image_height) = $new_image->Get('width', 'height'); $new_image->Scale(width=>($image_width*($$ref{'Zoom'}/100)), height=>($image_height*($$ref{'Zoom'}/100))); $image->Composite(image=>$new_image, x=>$$ref{'X'}, y=>$$ref{'Y'}, zoom=>$$ref{'Zoom'}, depth=>32);
Und füge diese mit Composite zusammen.

Dazu kommen noch ein paar Texte:
Code: (dl )

$image->Annotate(%parameter);
Und am Ende speichere ich dieses Image:
Code: (dl )

1 2

print $image->Get('depth')."\n"; $image->Write($tempfolder.'cardout.png', depth=>'32');
Das ganze funktioniert auch. Das Bild ist erstellt und so wie es sein sollte. Bis auf eine Kleinigkeit. Die Bittiefe ist nicht 32 sondern 64.

Und da ich dieses Bild mit dem Modul Win32::Printer ausdrucken möchte, bekomme ich Probleme, da dieses nur Fotos bis Bittiefe 32 annimmt.

Ich gebe vor dem Write noch einmal die Bittiefe aus und diese ist je nach Bild zwischen 8 und 16. Die ausgegebene Datei hat aber wieder 64bit. Woran könnte das liegen und hat vielleicht jemand eine Idee wie ich die Bittiefe reduzieren kann?

modedit Editiert von GwenDragon: unnötige Tabs aus Code
Last edited: 2013-01-16 16:58:35 +0100 (CET)
- +2 replies
- GwenDragon
  
  2013-01-16 17:48
  User since
  2005-01-17
  14532 Artikel
  Admin1
  Du musst wohl vor der Ausgabe beim PNG den Alphakanal entfernen.
  
  Code (perl): (dl )
  
  $image->Set(alpha=>'Off');
  
  oder du gibst bei der Ausgabe die Bittiefe an:
  
  Code (perl): (dl )
  
  $image->Write("png24:".$tempfolder.'cardout.png')
  
  http://www.imagemagick.org/Usage/formats/#png_form...
  Last edited: 2013-01-16 17:56:36 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - Kean
    
    2013-01-17 09:35
    
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Die zweite Variante hat funktioniert :-)
    Vielen Dank!

View all threads created 2013-01-16 16:42.