color_multiply

COPY/// color_multiply(color1,color2)
//
//  Returns the product of the two given colors.
//
//      color1      RGB color, real
//      color2      RGB color, real
//
/// gmlscripts.pro/license
{
    var c1,c2,t;
    c1 = argument0;
    c2 = argument1;
    t = ((c1 & 255) * (c2 & 255)) >> 8;
    c1 = c1 >> 8;
    c2 = c2 >> 8;
    t |= ((c1 & 255) * (c2 & 255)) & 65280;
    c1 = c1 & 65280;
    c2 = c2 >> 8;
    t |= ((c1 * c2) & 16711680);
    return t;
}