File Coverage

blib/lib/RGB2HSI.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	17	18	94.4
condition	9	9	100.0
subroutine	5	5	100.0
pod	0	2	0.0
total	72	75	96.0

package RGB2HSI;
use strict;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(rgb2hsi);

our $VERSION = 0.012;

sub rgb2hsi {
    my ($R, $G, $B) = @_;
    my ($H, $S, $I) = (0,0,0);

    my $min = 1e-6;

    $I = (my $i = $R+$G+$B) / 3.0;

    # gray colors
    if ($R == $G && $G == $B){
        $S = 0;
        $H = 0;
    }else{
        my ($r,$g,$b) = (($R/$i), ($G/$i), ($B/$i));

        $H = &rgb_hue($R,$G,$B);

        if ($r <= $g && $r <= $b){
            $S = 1- 3 * $r
        }elsif ($g <= $r && $g <= $b){
            $S = 1- 3 * $g
        }else{
            $S = 1- 3 * $b;
        }
    }
    return ($H, $S, $I);
}

sub rgb_hue
{
    my ($r, $g, $b)= @_;
    my ($h, $s);

    my $min= &_min($r, $g, $b);
    my $max= &_max($r, $g, $b);

    my $delta = $max - $min;

    return 0 if ( $delta == 0 );

    if( $r == $max )
    {
        $h = ( $g - $b ) / $delta;
    }
    elsif ( $g == $max )
    {
        $h = 2 + ( $b - $r ) / $delta;
    }
    else # if $b == $max
    {
        $h = 4 + ( $r - $g ) / $delta;
    }

    $h *= 60;
    if( $h < 0 ) { $h += 360; }
    return $h;
}

sub _min { my $min = shift(@_); foreach my $v (@_) { if ($v <= $min) { $min = $v; } }; return $min; }
sub _max { my $max = shift(@_); foreach my $v (@_) { if ($v >= $max) { $max = $v; } }; return $max; }


1;

__END__