display hidden image

ImageMagick · Dec 26, 2023 · 07d2bf2 · 07d2bf2
1 parent 1ad0102
commit 07d2bf2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/PerlMagick/demo/steganography.pl b/PerlMagick/demo/steganography.pl
@@ -15,12 +15,12 @@
 $image->ReadImage('model.gif');
 $image->SteganoImage(image=>$watermark,offset=>91);
 $image->Write('model.pam');
-$image->Write('show:');
+$image->Write(magick=>'SHOW',title=>"Steganography Model");
 #
 # Extract image from image.
 #
 $size="$width" . "x" . "$height" . "+91";
 $stegano=Image::Magick->new(size=>$size);
 $stegano->ReadImage('stegano:model.pam');
 $stegano->Write('stegano.pam');
-$image->Write(magick=>'SHOW',title=>"Steganography Demo");
+$stegano->Write(magick=>'SHOW',title=>"Hidden Image");