Image::Filter::Eraseline - Erase every Nth line from an image.
use Image::Filter; $image = Image::Filter::newFromJpeg("munich.jpg"); $image = $image->filter("eraseline",1,1,250,128,0); #Load Image::Filter::Eraseline #Erase every other line (thickness 1 pixel) vertically, fill with RGB color 250,128,0 $image->Jpeg("test.jpg");
Image::Filter is a perl module that can apply image filters. This module implements a line erasing. It uses the gd lib from Thomas Boutell. This filter handles true color images.
eraseline takes 5 parameters.
Either horizonal (use 0) or vertical (any other integer value). Default is horizontal (0)
Line thickness is the thickness of each rectangle fill.
Red value of color used to fill rectangle (RGB values), ranging 0 to 255. Default is 0.
Green value of color used to fill rectangle (RGB values), ranging 0 to 255. Default is 0.
Blue value of color used to fill rectangle (RGB values), ranging 0 to 255. Default is 0.
Hendrik Van Belleghem, <beatnik + at + quickndirty + dot + org>
Image::Filter is released under the GNU Public License. See COPYING and COPYRIGHT for more information.
Image::Filter is based on the concepts tought to me by my math professor J. Van Hee. This module wouldn't be possible without the work of Thomas Boutell on his gd library. Inspiration, but no code, was taken from Lincoln D. Steins GD implementation of that same gd lib.