Permalink
Browse files

Starting release (0.01) of Imager-SkinDetector

git-svn-id: svn://localhost:81/cpan/perl5-imager-skindetector@105 d5a6ac26-b448-f74c-955c-92d14582c9b2
  • Loading branch information...
0 parents commit 2956d3031a4c9c9113cfae2dfd313017eab995f1 @cosimo committed Sep 27, 2008
@@ -0,0 +1,10 @@
+blib*
+Makefile
+Makefile.old
+Build
+_build*
+pm_to_blib*
+*.tar.gz
+.lwpcookies
+Imager-SkinDetector-*
+cover_db
@@ -0,0 +1,7 @@
+Revision history for Imager-SkinDetector
+
+0.01 2008-09-26 23:30 CEST
+ First version, released on an unsuspecting world.
+ The algorithm is as stupid as you can get.
+
+
@@ -0,0 +1,11 @@
+Changes
+MANIFEST
+Makefile.PL
+README
+lib/Imager/SkinDetector.pm
+examples/is_skinny.pl
+examples/ferrari.bmp
+examples/ferrari.png
+examples/model.bmp
+examples/model.png
+t/00-load.t
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+ NAME => 'Imager::SkinDetector',
+ AUTHOR => 'Cosimo Streppone <cosimo@cpan.org>',
+ VERSION_FROM => 'lib/Imager/SkinDetector.pm',
+ ABSTRACT_FROM => 'lib/Imager/SkinDetector.pm',
+ PL_FILES => {},
+ PREREQ_PM => {
+ 'Test::More' => 0,
+ 'Imager' => 0, # Check version
+ },
+ dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
+ clean => { FILES => 'Imager-SkinDetector-*' },
+);
55 README
@@ -0,0 +1,55 @@
+Imager-SkinDetector
+
+Have you ever needed to know if an image has some amount of
+skin tone color? Did you find some tool to do it?
+Free software? If so, please tell me which one!
+
+If not, welcome to Imager-SkinDetector. It uses Imager as
+processing engine, so it has a decent speed.
+Don't expect miracles, though.
+
+I'm planning to use this as part of a set of tools
+to automatically classify images as nudity or
+"containing skin". It's only a plan. I might succeed
+one day. Most probably I won't. :-)
+
+Feel free to provide feedback and code.
+
+INSTALLATION
+
+To install this module, run the following commands:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+SUPPORT AND DOCUMENTATION
+
+After installing, you can find documentation for this module with the
+perldoc command.
+
+ perldoc Imager::SkinDetector
+
+You can also look for information at:
+
+ RT, CPAN's request tracker
+ http://rt.cpan.org/NoAuth/Bugs.html?Dist=Imager-SkinDetector
+
+ AnnoCPAN, Annotated CPAN documentation
+ http://annocpan.org/dist/Imager-SkinDetector
+
+ CPAN Ratings
+ http://cpanratings.perl.org/d/Imager-SkinDetector
+
+ Search CPAN
+ http://search.cpan.org/dist/Imager-SkinDetector
+
+
+COPYRIGHT AND LICENCE
+
+Copyright (C) 2008 Cosimo Streppone, <cosimo@cpan.org>
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
@@ -0,0 +1,2 @@
+Random pictures from the $www
+
Binary file not shown.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+#
+# Tries to tell you how much skin color there
+# seems to be in the specified image.
+# Don't expect miracles, though.
+#
+# Usage:
+# perl is_skinny.pl <some_png_picture>
+#
+# Example:
+# perl is_skinny.pl ferrari.png
+#
+# $Id: $
+
+use strict;
+use Imager::SkinDetector;
+
+my $name = $ARGV[0]
+ or die "Usage: $0 <picture_filename>\n";
+
+my $img = Imager::SkinDetector->new(file => $name)
+ or die "Can't load image '$name'.\n";
+
+my $skin = $img->skinniness();
+
+printf "skinniness: %3.2f%%\n", ($skin * 100);
+
Binary file not shown.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Oops, something went wrong.

0 comments on commit 2956d30

Please sign in to comment.