FM / demo

/usr/share/doc/ImageMagick-perl/demo

Name	Size	Mode	Actions
annotate.pl	1589	0644	edit dl rm
annotate_words.pl	1967	0644	edit dl rm
button.pl	359	0644	edit dl rm
compose-specials.pl	5473	0644	edit dl rm
composite.pl	1525	0644	edit dl rm
demo.pl	12097	0644	edit dl rm
lsys.pl	2336	0644	edit dl rm
Makefile	360	0644	edit dl rm
model.gif	23433	0644	edit dl rm
piddle.pl	1908	0644	edit dl rm
pink-flower.gif	544	0644	edit dl rm
pixel-fx.pl	1545	0644	edit dl rm
README	124	0644	edit dl rm
red-flower.gif	694	0644	edit dl rm
settings.pl	697	0644	edit dl rm
shadow-text.pl	505	0644	edit dl rm
shapes.pl	1240	0644	edit dl rm
single-pixels.pl	1129	0644	edit dl rm
smile.gif	1349	0644	edit dl rm
steganography.pl	664	0644	edit dl rm
tile.gif	1566	0644	edit dl rm
tree.pl	744	0644	edit dl rm
Turtle.pm	868	0644	edit dl rm
yellow-flower.gif	565	0644	edit dl rm

Edit: /usr/share/doc/ImageMagick-perl/demo/steganography.pl (664B)

#!/usr/bin/perl use Image::Magick; # # Hide an image within an image # $watermark=Image::Magick->new; $watermark->ReadImage('smile.gif'); ($width, $height)=$watermark->Get('width','height'); # # Hide image in image. # $image=Image::Magick->new; $image->ReadImage('model.gif'); $image->SteganoImage(image=>$watermark,offset=>91); $image->Write('model.pam'); $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'); $stegano->Write(magick=>'SHOW',title=>"Hidden Image");