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

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;