Skip to content
Browse files

Corrected the center of the gaussian function for the 'coloriness' fu…

…nction

git-svn-id: svn://localhost:81/cpan/perl5-imager-skindetector@122 d5a6ac26-b448-f74c-955c-92d14582c9b2
  • Loading branch information...
1 parent 9feb55c commit 5f35821822ce31e8abc6d1c5b19bb8218038d996 @cosimo committed Oct 14, 2008
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/Imager/SkinDetector.pm
View
2 lib/Imager/SkinDetector.pm
@@ -37,7 +37,7 @@ sub contains_nudity {
my $coloriness = $img->has_different_colors() || 0.0001;
# Apply gaussian function to $coloriness
- $coloriness = exp(-(($coloriness - 3)**2 / 30));
+ $coloriness = exp(-(($coloriness - 0.2)**2 / 20));
my $nudity_factor = $skinniness * $coloriness;

0 comments on commit 5f35821

Please sign in to comment.
Something went wrong with that request. Please try again.