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/single-pixels.pl (1129B)

#!/usr/bin/perl
#
# Methods for to Get and Set single pixels in images using PerlMagick
#
use strict;
use Image::Magick;

# read image
my $im=Image::Magick->new();
$im->Read('logo:');

# ---

# Get/Set a single pixel as a string
my $skin=$im->Get('pixel[400,200]');
print "Get('pixel[x,y]') = ", $skin, "\n";

$im->Set('pixel[1,1]'=>'0,0,0,0');
$im->Set('pixel[2,1]'=>$skin);
$im->Set('pixel[3,1]'=>'green');
$im->Set('pixel[4,1]'=>'rgb(255,0,255)');

# ---

# More direct single pixel access
my @pixel = $im->GetPixel( x=>400, y=>200 );
print "GetPixel() = ", "@pixel", "\n";

# modify the pixel values (as normalized floats)
$pixel[0] = $pixel[0]/2;      # darken red value
$pixel[1] = 0.0;              # junk green value
$pixel[2] = 0.0;              # junk blue value

# write pixel to destination
# (quantization and clipping happens here)
$im->SetPixel(x=>5,y=>1,color=>\@pixel);

# ---

# crop, scale, display the changed pixels
$im->Crop(geometry=>'7x3+0+0');
$im->Set(page=>'0x0+0+0');
$im->Scale('1000%');

# Output the changed pixels
$im->Write('single-pixels.pam');
$im->Write(magick=>'SHOW',title=>"Single Pixel");

#!/usr/bin/perl # # Methods for to Get and Set single pixels in images using PerlMagick # use strict; use Image::Magick; # read image my $im=Image::Magick->new(); $im->Read('logo:'); # --- # Get/Set a single pixel as a string my $skin=$im->Get('pixel[400,200]'); print "Get('pixel[x,y]') = ", $skin, "\n"; $im->Set('pixel[1,1]'=>'0,0,0,0'); $im->Set('pixel[2,1]'=>$skin); $im->Set('pixel[3,1]'=>'green'); $im->Set('pixel[4,1]'=>'rgb(255,0,255)'); # --- # More direct single pixel access my @pixel = $im->GetPixel( x=>400, y=>200 ); print "GetPixel() = ", "@pixel", "\n"; # modify the pixel values (as normalized floats) $pixel[0] = $pixel[0]/2; # darken red value $pixel[1] = 0.0; # junk green value $pixel[2] = 0.0; # junk blue value # write pixel to destination # (quantization and clipping happens here) $im->SetPixel(x=>5,y=>1,color=>\@pixel); # --- # crop, scale, display the changed pixels $im->Crop(geometry=>'7x3+0+0'); $im->Set(page=>'0x0+0+0'); $im->Scale('1000%'); # Output the changed pixels $im->Write('single-pixels.pam'); $im->Write(magick=>'SHOW',title=>"Single Pixel");