Image-Magick-Stencilize

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
name:         Image-Magick-Stencilize
version:      1.02
version_from: lib/Image/Magick/Stencilize.pm
installdirs:  site
requires:
    Image::Magick:                 0

distribution_type: module
generated_by: ExtUtils::MakeMaker version 6.30

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
WriteMakefile(
   NAME => 'Image::Magick::Stencilize',
   VERSION_FROM => 'lib/Image/Magick/Stencilize.pm',
   PREREQ_PM => {
      'Image::Magick' => 0,
   },
);

lib/Image/Magick/Stencilize.pm  view on Meta::CPAN

package Image::Magick::Stencilize;
use strict;
use vars qw($VERSION);
$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)/g;

#use Exporter;
#use vars qw(@ISA @EXPORT);
#@ISA = qw/Exporter/;
#@EXPORT = 'Stencilize';
#use Smart::Comments '###';

#Imaeg

#$Image::Magick::

# in the tradition of image magick names:

no strict 'refs';
*Image::Magick::Stencilize = \&Stencilize;

sub Stencilize {
   my $self = shift; # image magick object
   my $threshold = shift;
   $threshold ||= 40;
   my $blur_percentage = shift;
   $blur_percentage||= 4;
   $blur_percentage > 0 and $blur_percentage < 100 or die('blur percentage must be over 0 and under 100');
   
   $blur_percentage = ($blur_percentage / 100 );

lib/Image/Magick/Stencilize.pm  view on Meta::CPAN

1;


__END__

=pod

=head1 NAME

Image::Magick::Stencilize

=head1 SYNOPSIS

   use Image::Magick;
   use Image::Magick::Stencilize;

   my $image = new Image::Magick;
   $image->Read('./image.jpg');
   $image->Stencilize;
   $image->Write('./image_stencilized.jpg');
   
=head1 DESCRIPTION

Adds method to Image::Magick namespace to make an image you can make a silk-screen out of.
Makes the image black and white.
If you do graphic design or like Andy Warhol, this may be for you.

=head1 Stencilize()

optional arguments are threshold (15-75) and blur percentage (0-100)
defaults are thrshold 40 and blur percentage 4

=head1 AUTHOR

t/01_Image_Magick_Stencilize.t  view on Meta::CPAN

use Test::Simple 'no_plan';
use strict;

use lib './lib';
use Image::Magick;
use Image::Magick::Stencilize;



opendir(DIR,'./t');
my @imgs = map { "./t/$_" } grep { !/out/ and /\.jpg$/ } readdir DIR;
closedir DIR;


my $image = new Image::Magick;
# freaking image magick's methods return on error mostly.. messed up
# at a given moment, either you code perl or you code c, you don't do
# both at the same time

for(@imgs){
   _doone($_);
}