/* color index to BGR integer composite color */
color2colorref(color)
{
        local r, g, b, colorref;

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

        colorref = rgb2colorref(r, g, b);

        return(colorref);
}