Help for this page

Select Code to Download


  1. or download this
    sub rgb2percent
{
...
    }
    return [$mask{r}, $mask{g}, $mask{b}];
}
  2. or download this
    my @colors = map { ($_%256)/255 } $_[0] =~ m/(\d*\.?\d+).*\,[^\d]*(\d*
+\.?\d+).*\,[^\d]*(\d*\.?\d+)/;