Help for this page

Select Code to Download

Select or download this
```
RGB(a,b,c)=a*1+b*256+c*256^2
```

Select or download this

sub RGB {
    my ( $red, $green, $blue ) = @_;
    return $red + ($green<<8) + ($blue<<16);
}