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