Gecko [ www.finalhopeacademy.com ]

Name	Size	Permission
Makefile	360 B	-rw-r--r--
README	124 B	-rw-r--r--
Turtle.pm	868 B	-rw-r--r--
annotate.pl	1.41 KB	-rw-r--r--
annotate_words.pl	1.96 KB	-rw-r--r--
button.pl	397 B	-rw-r--r--
compose-specials.pl	5.38 KB	-rw-r--r--
composite.pl	1.55 KB	-rw-r--r--
demo.pl	11.86 KB	-rw-r--r--
dst.png	437 B	-rw-r--r--
lsys.pl	2.34 KB	-rw-r--r--
model.gif	22.88 KB	-rw-r--r--
piddle.pl	1.9 KB	-rw-r--r--
pink-flower.gif	544 B	-rw-r--r--
pixel-fx.pl	1.56 KB	-rw-r--r--
red-flower.gif	694 B	-rw-r--r--
settings.pl	782 B	-rw-r--r--
shadow-text.pl	521 B	-rw-r--r--
shapes.pl	1.21 KB	-rw-r--r--
single-pixels.pl	1.16 KB	-rw-r--r--
smile.gif	1.32 KB	-rw-r--r--
src.png	400 B	-rw-r--r--
steganography.pl	682 B	-rw-r--r--
tile.gif	1.53 KB	-rw-r--r--
tree.pl	829 B	-rw-r--r--
yellow-flower.gif	565 B	-rw-r--r--

Code Editor : pixel-fx.pl

#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell
#
# Example of modifying all the pixels in an image (like -fx).
#
# Currently this is slow as each pixel is being lokedup one pixel at a time.
# The better technique of extracting and modifing 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 posible 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('win:');
$dest->Write('pixel-fx.gif');

${this.title}

Code Editor : pixel-fx.pl