color.qh

Go to the documentation of this file.

#pragma once

#include "string.qh"

#define colormapPaletteColor(c, isPants) colormapPaletteColor_(c, isPants, time)
ERASEABLE
vector colormapPaletteColor_(int c, bool isPants, float t)
{
    // these colors are defined in gfx/colormap_palette.pl
    // to generate them run: perl gfx/colormap_palette.pl > gfx/colormap_palette.lmp
    // it will save them to gfx/colormap_palette.lmp (in the lmp format)
    // and prints the cases of the following switch so they can be copy-pasted here

    switch (c)
    {
        // generated by gfx/colormap_palette.pl
        case  0: return '1.000000 1.000000 1.000000';
        case  1: return '1.000000 0.333333 0.000000';
        case  2: return '0.000000 1.000000 0.501961';
        case  3: return '0.000000 1.000000 0.000000';
        case  4: return '1.000000 0.000000 0.000000';
        case  5: return '0.000000 0.666667 1.000000';
        case  6: return '0.000000 1.000000 1.000000';
        case  7: return '0.501961 1.000000 0.000000';
        case  8: return '0.501961 0.000000 1.000000';
        case  9: return '1.000000 0.000000 1.000000';
        case 10: return '1.000000 0.000000 0.501961';
        case 11: return '0.000000 0.000000 1.000000';
        case 12: return '1.000000 1.000000 0.000000';
        case 13: return '0.000000 0.333333 1.000000';
        case 14: return '1.000000 0.666667 0.000000';
        case 15:
            if (isPants)
                return '1 0 0' * (0.502 + 0.498 * sin(t / M_E + 0))
                    + '0 1 0' * (0.502 + 0.498 * sin(t / M_E + M_PI * 2 / 3))
                    + '0 0 1' * (0.502 + 0.498 * sin(t / M_E + M_PI * 4 / 3));
            else
                return '1 0 0' * (0.502 + 0.498 * sin(t / M_PI + M_PI * 5 / 3))
                    + '0 1 0' * (0.502 + 0.498 * sin(t / M_PI + M_PI))
                    + '0 0 1' * (0.502 + 0.498 * sin(t / M_PI + M_PI * 1 / 3));
        default: return '0.000 0.000 0.000';
    }
}

ERASEABLE
float rgb_mi_ma_to_hue(vector rgb, float mi, float ma)
{
    if (mi == ma)
    {
        return 0;
    }
    else if (ma == rgb.x)
    {
        if (rgb.y >= rgb.z) return (rgb.y - rgb.z) / (ma - mi);
        else return (rgb.y - rgb.z) / (ma - mi) + 6;
    }
    else if (ma == rgb.y)
    {
        return (rgb.z - rgb.x) / (ma - mi) + 2;
    }
    else  // if(ma == rgb_z)
    {
        return (rgb.x - rgb.y) / (ma - mi) + 4;
    }
}

ERASEABLE
vector hue_mi_ma_to_rgb(float hue, float mi, float ma)
{
    vector rgb;

    hue -= 6 * floor(hue / 6);

    // else if(ma == rgb_x)
    //  hue = 60 * (rgb_y - rgb_z) / (ma - mi);
    if (hue <= 1)
    {
        rgb.x = ma;
        rgb.y = hue * (ma - mi) + mi;
        rgb.z = mi;
    }
    // else if(ma == rgb_y)
    //  hue = 60 * (rgb_z - rgb_x) / (ma - mi) + 120;
    else if (hue <= 2)
    {
        rgb.x = (2 - hue) * (ma - mi) + mi;
        rgb.y = ma;
        rgb.z = mi;
    }
    else if (hue <= 3)
    {
        rgb.x = mi;
        rgb.y = ma;
        rgb.z = (hue - 2) * (ma - mi) + mi;
    }
    // else // if(ma == rgb_z)
    //  hue = 60 * (rgb_x - rgb_y) / (ma - mi) + 240;
    else if (hue <= 4)
    {
        rgb.x = mi;
        rgb.y = (4 - hue) * (ma - mi) + mi;
        rgb.z = ma;
    }
    else if (hue <= 5)
    {
        rgb.x = (hue - 4) * (ma - mi) + mi;
        rgb.y = mi;
        rgb.z = ma;
    }
    // else if(ma == rgb_x)
    //  hue = 60 * (rgb_y - rgb_z) / (ma - mi);
    else  // if(hue <= 6)
    {
        rgb.x = ma;
        rgb.y = mi;
        rgb.z = (6 - hue) * (ma - mi) + mi;
    }

    return rgb;
}

ERASEABLE
vector rgb_to_hsv(vector rgb)
{
    float mi, ma;
    vector hsv;

    mi = min(rgb.x, rgb.y, rgb.z);
    ma = max(rgb.x, rgb.y, rgb.z);

    hsv.x = rgb_mi_ma_to_hue(rgb, mi, ma);
    hsv.z = ma;

    if (ma == 0) hsv.y = 0;
    else hsv.y = 1 - mi / ma;

    return hsv;
}

ERASEABLE
vector hsv_to_rgb(vector hsv)
{
    return hue_mi_ma_to_rgb(hsv.x, hsv.z * (1 - hsv.y), hsv.z);
}

ERASEABLE
vector rgb_to_hsl(vector rgb)
{
    float mi, ma;
    vector hsl;

    mi = min(rgb.x, rgb.y, rgb.z);
    ma = max(rgb.x, rgb.y, rgb.z);

    hsl.x = rgb_mi_ma_to_hue(rgb, mi, ma);

    hsl.z = 0.5 * (mi + ma);
    if (mi == ma) hsl.y = 0;
    else if (hsl.z <= 0.5) hsl.y = (ma - mi) / (2 * hsl.z);
    else  // if(hsl_z > 0.5)
        hsl.y = (ma - mi) / (2 - 2 * hsl.z);

    return hsl;
}

ERASEABLE
vector hsl_to_rgb(vector hsl)
{
    float mi, ma, maminusmi;

    if (hsl.z <= 0.5) maminusmi = hsl.y * 2 * hsl.z;
    else maminusmi = hsl.y * (2 - 2 * hsl.z);

    // hsl_z     = 0.5 * mi + 0.5 * ma
    // maminusmi =     - mi +       ma
    mi = hsl.z - 0.5 * maminusmi;
    ma = hsl.z + 0.5 * maminusmi;

    return hue_mi_ma_to_rgb(hsl.x, mi, ma);
}

ERASEABLE
string rgb_to_hexcolor(vector rgb)
{
    return strcat(
        "^x",
        DEC_TO_HEXDIGIT(floor(rgb.x * 15 + 0.5)),
        DEC_TO_HEXDIGIT(floor(rgb.y * 15 + 0.5)),
        DEC_TO_HEXDIGIT(floor(rgb.z * 15 + 0.5))
                 );
}