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/pixel-fx.pl (1545B)

# read original image
my $orig = Image::Magick->new();
my $w = $orig->Read('rose:');
warn("$w")  if $w;
exit  if $w =~ /^Exception/;

# make a clone of the image (preserve input, modify output)
my $dest = $orig->Clone();

# You could enlarge destination image here if you like.
# And it is possible to modify the existing image directly
# rather than modifying a clone as FX does.

# Iterate over destination image...
my ($width, $height) = $dest->Get('width', 'height');

for( my $j = 0; $j < $height; $j++ ) {
  for( my $i = 0; $i < $width; $i++ ) {

# read original image color
    my @pixel = $orig->GetPixel( x=>$i, y=>$j );

# modify the pixel values (as normalized floats)
    $pixel[0] = $pixel[0]/2;      # darken red

# write pixel to destination
    # (quantization and clipping happens here)
    $dest->SetPixel(x=>$i,y=>$j,color=>\@pixel);
  }
}

# display the result (or you could save it)
$dest->Write('pixel-fx.pam');
$dest->Write(magick=>'SHOW',title=>"Pixel FX");

#!/usr/bin/perl # # Example of modifying all the pixels in an image (like -fx). # # Currently this is slow as each pixel is being looked up one pixel at a time. # The better technique of extracting and modifying a whole row of pixels at # a time has not been figured out, though perl functions have been provided # for this. # # Also access and controls for Area Re-sampling (EWA), beyond single pixel # lookup (interpolated unscaled lookup), is also not available at this time. # # Anthony Thyssen 5 October 2007 # use strict; use Image::Magick; # read original image my $orig = Image::Magick->new(); my $w = $orig->Read('rose:'); warn("$w") if $w; exit if $w =~ /^Exception/; # make a clone of the image (preserve input, modify output) my $dest = $orig->Clone(); # You could enlarge destination image here if you like. # And it is possible to modify the existing image directly # rather than modifying a clone as FX does. # Iterate over destination image... my ($width, $height) = $dest->Get('width', 'height'); for( my $j = 0; $j < $height; $j++ ) { for( my $i = 0; $i < $width; $i++ ) { # read original image color my @pixel = $orig->GetPixel( x=>$i, y=>$j ); # modify the pixel values (as normalized floats) $pixel[0] = $pixel[0]/2; # darken red # write pixel to destination # (quantization and clipping happens here) $dest->SetPixel(x=>$i,y=>$j,color=>\@pixel); } } # display the result (or you could save it) $dest->Write('pixel-fx.pam'); $dest->Write(magick=>'SHOW',title=>"Pixel FX");