/* color index to integer composite color */
color2int(color)
{
        local r, g, b, pal;

        (r, g, b) = color2rgb(color);

        pal = rgb2int(r, g, b);

        return(pal);
}