/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 *   Mupen64plus - glide64/wrapper/combiner.cpp                            *
 *   Mupen64Plus homepage: http://code.google.com/p/mupen64plus/           *
 *   Copyright (C) 2005-2006 Hacktarux                                     *
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 *   This program is distributed in the hope that it will be useful,       *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   GNU General Public License for more details.                          *
 *                                                                         *
 *   You should have received a copy of the GNU General Public License     *
 *   along with this program; if not, write to the                         *
 *   Free Software Foundation, Inc.,                                       *
 *   51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.          *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */


#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <string.h>

#define GL_GLEXT_PROTOTYPES
#include <SDL_opengl.h>

#include "glide.h"
#include "main.h"

static int fct[4], source0[4], operand0[4], source1[4], operand1[4], source2[4], operand2[4];
static int fcta[4],sourcea0[4],operanda0[4],sourcea1[4],operanda1[4],sourcea2[4],operanda2[4];
static int alpha_ref, alpha_func;

float texture_env_color[4];
float ccolor0[4];
float ccolor1[4];
static float chroma_color[4];
int fog_enabled;
static int chroma_enabled;
static int chroma_other_color;
static int chroma_other_alpha;
static int dither_enabled;
int blackandwhite0;
int blackandwhite1;

int need_lambda[2];
float lambda_color[2][4];

// shaders variables
int need_to_compile;

static GLhandleARB fragment_shader_object;
static GLhandleARB fragment_depth_shader_object;
//static GLhandleARB fragment_bw_shader_object;
static GLhandleARB vertex_shader_object;
static GLhandleARB program_object_default;
static GLhandleARB program_object_depth;
//static GLhandleARB program_object_bw;
static GLhandleARB program_object;
static int constant_color_location;
static int ccolor0_location;
static int ccolor1_location;
static int first_color = 1;
static int first_alpha = 1;
static int first_texture0 = 1;
static int first_texture1 = 1;
static int tex0_combiner_ext = 0;
static int tex1_combiner_ext = 0;
static int c_combiner_ext = 0;
static int a_combiner_ext = 0;

static const char* fragment_shader_header =
"uniform sampler2D texture0;       \n"
"uniform sampler2D texture1;       \n"
"uniform sampler2D ditherTex;      \n"
"uniform vec4 constant_color;      \n"
"uniform vec4 ccolor0;             \n"
"uniform vec4 ccolor1;             \n"
"uniform vec4 chroma_color;        \n"
"uniform float lambda;             \n"
"varying vec4 fogValue;            \n"
"                                  \n"
"void test_chroma(vec4 ctexture1); \n"
"                                  \n"
"                                  \n"
"void main()                       \n"
"{                                 \n"
;

// normal version compliant with glsl specs
/*static const char* fragment_shader_dither =
"  if(texture2D(ditherTex, vec2(mod(gl_FragCoord.x,32)/32, \n"
"                               mod(gl_FragCoord.y,32)/32)).a > 0.5) discard; \n"
;*/

// version without mod function (not supported by ATI drivers)
/*static const char* fragment_shader_dither =
"  if(texture2D(ditherTex, vec2((gl_FragCoord.x-32.0*floor(gl_FragCoord.x/32.0))/32.0, \n"
"                               (gl_FragCoord.y-32.0*floor(gl_FragCoord.y/32.0))/32.0)).a > 0.5) discard; \n"
;*/

// using gl_FragCoord is terribly slow on ATI and varying variables don't work for some unknown
// reason, so we use the unused components of the texture2 coordinates
static const char* fragment_shader_dither =
"  float dithx = (gl_TexCoord[2].b + 1.0)*0.5*1000.0; \n"
"  float dithy = (gl_TexCoord[2].a + 1.0)*0.5*1000.0; \n"
"  if(texture2D(ditherTex, vec2((dithx-32.0*floor(dithx/32.0))/32.0, \n"
"                               (dithy-32.0*floor(dithy/32.0))/32.0)).a > 0.5) discard; \n"
;

static const char* fragment_shader_default =
"  gl_FragColor = texture2D(texture0, vec2(gl_TexCoord[0])); \n"
;

/*
static const char* fragment_shader_depth =
  //"  gl_FragDepth = dot(texture2D(texture0, vec2(gl_TexCoord[0])), vec4(0.3, 0.3, 0.3, 0)); \n"
  "  gl_FragDepth = dot(texture2D(texture0, vec2(gl_TexCoord[0])), vec4(32*64*32/65536.0, 64*32/65536.0, 32/65536.0, 0))*0.5 + 0.5; \n"
  //"  gl_FragDepth = (float(texture2D(texture0, vec2(gl_TexCoord[0]))[0])*31*64*32/65536.0 + float(texture2D(texture0, vec2(gl_TexCoord[0]))[1])*63*32/65536.0 + float(texture2D(texture0, vec2(gl_TexCoord[0]))[2])*31/65536.0)*0.5 + 0.5; \n"
  //"  gl_FragDepth = texture2D(texture0, vec2(gl_TexCoord[0]))[0]*0.5+0.5; \n"
;

static const char* fragment_shader_bw =
"  vec4 readtex0 = texture2D(texture0, vec2(gl_TexCoord[0])); \n"
// "  gl_FragColor = vec4(0.5,1,0,0.5);     \n"
// "  gl_FragColor.a = 0.5;     \n"
"  gl_FragColor = vec4(vec3(readtex0.b),                      \n"
"                 readtex0.r + readtex0.g * 8.0 / 256.0);     \n"
;
*/

static const char* fragment_shader_readtex0color =
"  vec4 readtex0 = texture2D(texture0, vec2(gl_TexCoord[0])); \n"
;

static const char* fragment_shader_readtex0bw =
"  vec4 readtex0 = texture2D(texture0, vec2(gl_TexCoord[0])); \n"
"  readtex0 = vec4(vec3(readtex0.b),                          \n"
"                  readtex0.r + readtex0.g * 8.0 / 256.0);    \n"
// "  vec4 readtex0 = texture2D(texture0, vec2(gl_TexCoord[0])); \n"
// "  readtex0 = vec4(vec3(readtex0.b),                          \n"
// "                  readtex0.r);    \n"
;
static const char* fragment_shader_readtex0bw_2 =
// "  float I = dot(texture2D(texture0, vec2(gl_TexCoord[0])), vec4(31*64*32, 63*32, 31, 0)) / 256.0; \n"
// "  float A = (I - floor(I))*256/255.0;                        \n"
// "  vec4 readtex0 = vec4(vec3(A),                        \n"
// "                  I/255.0);                                        \n"
"  vec4 readtex0 = vec4(dot(texture2D(texture0, vec2(gl_TexCoord[0])), vec4(1.0/3, 1.0/3, 1.0/3, 0)));                        \n"
// "  vec4 readtex0 = texture2D(texture0, vec2(gl_TexCoord[0])); \n"
// "  readtex0 = vec4(vec3(readtex0.b),                          \n"
// "                  readtex0.r + readtex0.g * 8.0 / 256.0);    \n"
// "  readtex0 = vec4(vec3(readtex0.r / 3.0 + readtex0.g / 3.0 + \n"
// "                  readtex0.b / 3.0), readtex0.a);            \n"
;

static const char* fragment_shader_readtex1color =
"  vec4 readtex1 = texture2D(texture1, vec2(gl_TexCoord[1])); \n"
;

static const char* fragment_shader_readtex1bw =
"  vec4 readtex1 = texture2D(texture1, vec2(gl_TexCoord[1])); \n"
"  readtex1 = vec4(vec3(readtex1.b),                          \n"
"                  readtex1.r + readtex1.g * 8.0 / 256.0);    \n"
// "  vec4 readtex1 = texture2D(texture1, vec2(gl_TexCoord[1])); \n"
// "  readtex1 = vec4(vec3(readtex1.b),                          \n"
// "                  readtex1.r);    \n"
;
static const char* fragment_shader_readtex1bw_2 =
// "  float I = dot(texture2D(texture1, vec2(gl_TexCoord[1])), vec4(31*64*32, 63*32, 31, 0)) / 256.0; \n"
// "  float A = (I - floor(I))*256/255.0;                        \n"
// "  vec4 readtex1 = vec4(vec3(A),                        \n"
// "                  I/255.0);                                        \n"
"  vec4 readtex1 = vec4(dot(texture2D(texture1, vec2(gl_TexCoord[1])), vec4(1.0/3, 1.0/3, 1.0/3, 0)));                        \n"
// "  vec4 readtex1 = texture2D(texture1, vec2(gl_TexCoord[1])); \n"
// "  readtex1 = vec4(vec3(readtex1.b),                          \n"
// "                  readtex1.r + readtex1.g * 8.0 / 256.0);    \n"
// "  readtex1 = vec4(vec3(readtex1.r / 3.0 + readtex1.g / 3.0 + \n"
// "                  readtex1.b / 3.0), readtex1.a);            \n"
;

static const char* fragment_shader_fog =
"  float fog;                                                                         \n"
"  fog = gl_TexCoord[0].b;                                                            \n"
"  gl_FragColor = vec4(mix(gl_Fog.color.rgb, gl_FragColor.rgb, fog), gl_FragColor.a); \n"
;

/*static const char* fragment_shader_fog =
"  float fog;                                                                           \n"
"  fog = (gl_Fog.end - gl_FogFragCoord) * gl_Fog.scale;                                 \n"
"  fog = clamp(fog, 0.0, 1.0);                                                          \n"
"  gl_FragColor = vec4(mix(vec3(gl_Fog.color), gl_FragColor.rgb, fog), gl_FragColor.a); \n"
;*/

/*static const char* fragment_shader_fog =
"  float fog;                                                                           \n"
"  fog = (far - gl_FogFragCoord) / (far - near);                                        \n"
"  fog = clamp(fog, 0.0, 1.0);                                                          \n"
"  gl_FragColor = vec4(mix(vec3(gl_Fog.color), gl_FragColor.rgb*256.0, fog), gl_FragColor.a); \n"
;*/

/*static const char* fragment_shader_fog =
"  gl_FragColor = vec4(mix(vec3(gl_Fog.color), gl_FragColor.rgb, fogValue), gl_FragColor.a); \n"
;*/

static const char* fragment_shader_end =
"}                               \n"
;

static const char* vertex_shader =
"varying vec4 fogValue;                                         \n"
"                                                               \n"
"void main()                                                    \n"
"{                                                              \n"
"  gl_Position = ftransform();                                  \n"
"  gl_FrontColor = gl_Color;                                    \n"
"  gl_TexCoord[0] = gl_MultiTexCoord0;                          \n"
"  gl_TexCoord[1] = gl_MultiTexCoord1;                          \n"
"  float f = (gl_Fog.end - gl_SecondaryColor.r) * gl_Fog.scale; \n" // fog value passed through secondary color (workaround ATI bug)
"  f = clamp(f, 0.0, 1.0);                                      \n"
"  gl_TexCoord[0].b = f;                                        \n" // various data passed through
"  gl_TexCoord[2].b = gl_Vertex.x;                              \n" // texture coordinates
"  gl_TexCoord[2].a = gl_Vertex.y;                              \n" // again it is the only way
"}                                                              \n" // i've found to get it working fast with ATI drivers
;

static char fragment_shader_color_combiner[1024];
static char fragment_shader_alpha_combiner[1024];
static char fragment_shader_texture1[1024];
static char fragment_shader_texture0[1024];
static char fragment_shader_chroma[1024];
static char shader_log[2048];

void updateCombiner(int i)
{
    glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_COMBINE_ARB);
    glTexEnvi(GL_TEXTURE_ENV, GL_COMBINE_RGB_ARB, fct[i]);
    glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE0_RGB_ARB, source0[i]);
    glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND0_RGB_ARB, operand0[i]);
    glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE1_RGB_ARB, source1[i]);
    glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND1_RGB_ARB, operand1[i]);
    glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE2_RGB_ARB, source2[i]);
    glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND2_RGB_ARB, operand2[i]);
}

void updateCombinera(int i)
{
    glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_COMBINE_ARB);
    glTexEnvi(GL_TEXTURE_ENV, GL_COMBINE_ALPHA_ARB, fcta[i]);
    glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE0_ALPHA_ARB, sourcea0[i]);
    glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND0_ALPHA_ARB, operanda0[i]);
    glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE1_ALPHA_ARB, sourcea1[i]);
    glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND1_ALPHA_ARB, operanda1[i]);
    glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE2_ALPHA_ARB, sourcea2[i]);
    glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND2_ALPHA_ARB, operanda2[i]);
}

void init_combiner()
{
    int texture[4] = {0, 0, 0, 0};

    glActiveTextureARB(GL_TEXTURE0_ARB);
    glEnable(GL_TEXTURE_2D);

    // creating a fake texture
    glBindTexture(GL_TEXTURE_2D, default_texture);
    glTexImage2D(GL_TEXTURE_2D, 0, 3, 2, 2, 0, GL_RGBA, GL_UNSIGNED_BYTE, texture);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);

    glActiveTextureARB(GL_TEXTURE1_ARB);
    glBindTexture(GL_TEXTURE_2D, default_texture);
    glEnable(GL_TEXTURE_2D);

    if(!glsl_support)
    {
        if (nbTextureUnits > 2)
        {
            glActiveTextureARB(GL_TEXTURE2_ARB);
            glBindTexture(GL_TEXTURE_2D, default_texture);
            glEnable(GL_TEXTURE_2D);
        }
        if (nbTextureUnits > 3)
        {
            glActiveTextureARB(GL_TEXTURE3_ARB);
            glBindTexture(GL_TEXTURE_2D, default_texture);
            glEnable(GL_TEXTURE_2D);
        }
        alpha_ref = 0;
        need_lambda[0] = need_lambda[1] = 0;
    }
    else
    {
        int texture0_location;
        int texture1_location;
        char *fragment_shader;
        GLint log_length;

        /*glActiveTextureARB(GL_TEXTURE2_ARB);
        glBindTexture(GL_TEXTURE_2D, default_texture);
        glEnable(GL_TEXTURE_2D);
        glActiveTextureARB(GL_TEXTURE0_ARB);*/

    // depth shader
        fragment_depth_shader_object = glCreateShaderObjectARB(GL_FRAGMENT_SHADER_ARB);

    char s[128];
    // ZIGGY convert a 565 texture into depth component
    sprintf(s, "gl_FragDepth = dot(texture2D(texture0, vec2(gl_TexCoord[0])), vec4(31*64*32, 63*32, 31, 0))*%g + %g; \n", zscale/2/65535.0, 1-zscale/2);
    //sprintf(s, "gl_FragDepth = texture2D(texture0, vec2(gl_TexCoord[0]))[0]*%g + %g; \n", zscale/2, 1-zscale/2);
        fragment_shader = (char*)malloc(strlen(fragment_shader_header)+
                                 strlen(s)+
                                 strlen(fragment_shader_end)+1);
        strcpy(fragment_shader, fragment_shader_header);
        strcat(fragment_shader, s);
        strcat(fragment_shader, fragment_shader_end);
        glShaderSourceARB(fragment_depth_shader_object, 1, (const GLcharARB**)&fragment_shader, NULL);
        free(fragment_shader);

        glCompileShaderARB(fragment_depth_shader_object);


    // bw shader
//      fragment_bw_shader_object = glCreateShaderObjectARB(GL_FRAGMENT_SHADER_ARB);

//      fragment_shader = (char*)malloc(strlen(fragment_shader_header)+
//                               strlen(fragment_shader_bw)+
//                               strlen(fragment_shader_end)+1);
//      strcpy(fragment_shader, fragment_shader_header);
//      strcat(fragment_shader, fragment_shader_bw);
//      strcat(fragment_shader, fragment_shader_end);
//      glShaderSourceARB(fragment_bw_shader_object, 1, (const GLcharARB**)&fragment_shader, NULL);
//      free(fragment_shader);

//      glCompileShaderARB(fragment_bw_shader_object);


    // default shader
        fragment_shader_object = glCreateShaderObjectARB(GL_FRAGMENT_SHADER_ARB);

        fragment_shader = (char*)malloc(strlen(fragment_shader_header)+
                                 strlen(fragment_shader_default)+
                                 strlen(fragment_shader_end)+1);
        strcpy(fragment_shader, fragment_shader_header);
        strcat(fragment_shader, fragment_shader_default);
        strcat(fragment_shader, fragment_shader_end);
        glShaderSourceARB(fragment_shader_object, 1, (const GLcharARB**)&fragment_shader, NULL);
        free(fragment_shader);

        glCompileShaderARB(fragment_shader_object);


    
        vertex_shader_object = glCreateShaderObjectARB(GL_VERTEX_SHADER_ARB);
        glShaderSourceARB(vertex_shader_object, 1, &vertex_shader, NULL);
        glCompileShaderARB(vertex_shader_object);

    // depth program
        program_object = glCreateProgramObjectARB();
        program_object_depth = program_object;
        glAttachObjectARB(program_object, fragment_depth_shader_object);
        glAttachObjectARB(program_object, vertex_shader_object);
        glLinkProgramARB(program_object);
        glUseProgramObjectARB(program_object);

        glGetObjectParameterivARB(program_object, GL_OBJECT_LINK_STATUS_ARB , &log_length);
        if(!log_length)
        {
            glGetInfoLogARB(fragment_shader_object, 2048, &log_length, shader_log);
            if(log_length) display_warning(shader_log);
            glGetInfoLogARB(vertex_shader_object, 2048, &log_length, shader_log);
            if(log_length) display_warning(shader_log);
            glGetInfoLogARB(program_object, 2048, &log_length, shader_log);
            if(log_length) display_warning(shader_log);
        }

        texture0_location = glGetUniformLocationARB(program_object, "texture0");
        texture1_location = glGetUniformLocationARB(program_object, "texture1");
        glUniform1iARB(texture0_location, 0);
        glUniform1iARB(texture1_location, 1);

    
    // bw program
//      program_object = glCreateProgramObjectARB();
//      program_object_bw = program_object;
//      glAttachObjectARB(program_object, fragment_bw_shader_object);
//      glAttachObjectARB(program_object, vertex_shader_object);
//      glLinkProgramARB(program_object);
//      glUseProgramObjectARB(program_object);

//      glGetObjectParameterivARB(program_object, GL_OBJECT_LINK_STATUS_ARB , &log_length);
//      if(!log_length)
//      {
//          glGetInfoLogARB(fragment_shader_object, 2048, &log_length, shader_log);
//          if(log_length) display_warning(shader_log);
//          glGetInfoLogARB(vertex_shader_object, 2048, &log_length, shader_log);
//          if(log_length) display_warning(shader_log);
//          glGetInfoLogARB(program_object, 2048, &log_length, shader_log);
//          if(log_length) display_warning(shader_log);
//      }

//      texture0_location = glGetUniformLocationARB(program_object, "texture0");
//      texture1_location = glGetUniformLocationARB(program_object, "texture1");
//      glUniform1iARB(texture0_location, 0);
//      glUniform1iARB(texture1_location, 1);

    
    // default program
        program_object = glCreateProgramObjectARB();
        program_object_default = program_object;
        glAttachObjectARB(program_object, fragment_shader_object);
        glAttachObjectARB(program_object, vertex_shader_object);
        glLinkProgramARB(program_object);
        glUseProgramObjectARB(program_object);

        glGetObjectParameterivARB(program_object, GL_OBJECT_LINK_STATUS_ARB , &log_length);
        if(!log_length)
        {
            glGetInfoLogARB(fragment_shader_object, 2048, &log_length, shader_log);
            if(log_length) display_warning(shader_log);
            glGetInfoLogARB(vertex_shader_object, 2048, &log_length, shader_log);
            if(log_length) display_warning(shader_log);
            glGetInfoLogARB(program_object, 2048, &log_length, shader_log);
            if(log_length) display_warning(shader_log);
        }

        texture0_location = glGetUniformLocationARB(program_object, "texture0");
        texture1_location = glGetUniformLocationARB(program_object, "texture1");
        glUniform1iARB(texture0_location, 0);
        glUniform1iARB(texture1_location, 1);

        strcpy(fragment_shader_color_combiner, "");
        strcpy(fragment_shader_alpha_combiner, "");
        strcpy(fragment_shader_texture1, "vec4 ctexture1 = texture2D(texture0, vec2(gl_TexCoord[0])); \n");
        strcpy(fragment_shader_texture0, "");

        first_color = 1;
        first_alpha = 1;
        first_texture0 = 1;
        first_texture1 = 1;
        need_to_compile = 0;
    }
    fog_enabled = 0;
    chroma_enabled = 0;
    dither_enabled = 0;
    blackandwhite0 = 0;
    blackandwhite1 = 0;
}

void compile_chroma_shader()
{
    strcpy(fragment_shader_chroma, "\nvoid test_chroma(vec4 ctexture1)\n{\n");

    switch(chroma_other_alpha)
    {
    case GR_COMBINE_OTHER_ITERATED:
        strcat(fragment_shader_chroma, "float alpha = gl_Color.a; \n");
        break;
    case GR_COMBINE_OTHER_TEXTURE:
        strcat(fragment_shader_chroma, "float alpha = ctexture1.a; \n");
        break;
    case GR_COMBINE_OTHER_CONSTANT:
        strcat(fragment_shader_chroma, "float alpha = constant_color.a; \n");
        break;
    default:
        display_warning("unknown compile_choma_shader_alpha : %x", chroma_other_alpha);
    }

    switch(chroma_other_color)
    {
    case GR_COMBINE_OTHER_ITERATED:
        strcat(fragment_shader_chroma, "vec4 color = vec4(vec3(gl_Color),alpha); \n");
        break;
    case GR_COMBINE_OTHER_TEXTURE:
        strcat(fragment_shader_chroma, "vec4 color = vec4(vec3(ctexture1),alpha); \n");
        break;
    case GR_COMBINE_OTHER_CONSTANT:
        strcat(fragment_shader_chroma, "vec4 color = vec4(vec3(constant_color),alpha); \n");
        break;
    default:
        display_warning("unknown compile_choma_shader_alpha : %x", chroma_other_color);
    }

    strcat(fragment_shader_chroma, "if (color.rgb == chroma_color.rgb) discard; \n");
    strcat(fragment_shader_chroma, "}");
}

typedef struct _shader_program_key
{
    int color_combiner;
    int alpha_combiner;
    int texture0_combiner;
    int texture1_combiner;
    int texture0_combinera;
    int texture1_combinera;
    int fog_enabled;
    int chroma_enabled;
    int dither_enabled;
    int blackandwhite0;
    int blackandwhite1;
    GLhandleARB fragment_shader_object;
    GLhandleARB program_object;
} shader_program_key;

static shader_program_key* shader_programs = NULL;
static int number_of_programs = 0;
static int color_combiner_key;
static int alpha_combiner_key;
static int texture0_combiner_key;
static int texture1_combiner_key;
static int texture0_combinera_key;
static int texture1_combinera_key;

void compile_shader()
{
    int texture0_location;
    int texture1_location;
    int ditherTex_location;
    char *fragment_shader;
    int i;
    int chroma_color_location;
    GLint log_length;

    need_to_compile = 0;

    for(i=0; i<number_of_programs; i++)
    {
        if(shader_programs[i].color_combiner == color_combiner_key &&
           shader_programs[i].alpha_combiner == alpha_combiner_key &&
           shader_programs[i].texture0_combiner == texture0_combiner_key &&
           shader_programs[i].texture1_combiner == texture1_combiner_key &&
           shader_programs[i].texture0_combinera == texture0_combinera_key &&
           shader_programs[i].texture1_combinera == texture1_combinera_key &&
           shader_programs[i].fog_enabled == fog_enabled &&
           shader_programs[i].chroma_enabled == chroma_enabled &&
           shader_programs[i].dither_enabled == dither_enabled &&
           shader_programs[i].blackandwhite0 == blackandwhite0 &&
           shader_programs[i].blackandwhite1 == blackandwhite1)
        {
            program_object = shader_programs[i].program_object;
            glUseProgramObjectARB(program_object);

            texture0_location = glGetUniformLocationARB(program_object, "texture0");
            texture1_location = glGetUniformLocationARB(program_object, "texture1");
            glUniform1iARB(texture0_location, 0);
            glUniform1iARB(texture1_location, 1);

            constant_color_location = glGetUniformLocationARB(program_object, "constant_color");
            glUniform4fARB(constant_color_location, texture_env_color[0], texture_env_color[1], 
                                                    texture_env_color[2], texture_env_color[3]);

            ccolor0_location = glGetUniformLocationARB(program_object, "ccolor0");
            glUniform4fARB(ccolor0_location, ccolor0[0], ccolor0[1], ccolor0[2], ccolor0[3]);

            ccolor1_location = glGetUniformLocationARB(program_object, "ccolor1");
            glUniform4fARB(ccolor1_location, ccolor1[0], ccolor1[1], ccolor1[2], ccolor1[3]);

            chroma_color_location = glGetUniformLocationARB(program_object, "chroma_color");
            glUniform4fARB(chroma_color_location, chroma_color[0], chroma_color[1],
                                                  chroma_color[2], chroma_color[3]);

            if(dither_enabled)
            {
                ditherTex_location = glGetUniformLocationARB(program_object, "ditherTex");
                glUniform1iARB(ditherTex_location, 2);
            }

            set_lambda();
            return;
        }
    }

    if(shader_programs != NULL)
        shader_programs = (shader_program_key*)realloc(shader_programs, (number_of_programs+1)*sizeof(shader_program_key));
    else
        shader_programs = (shader_program_key*)malloc(sizeof(shader_program_key));
  //printf("number of shaders %d\n", number_of_programs);

    shader_programs[number_of_programs].color_combiner = color_combiner_key;
    shader_programs[number_of_programs].alpha_combiner = alpha_combiner_key;
    shader_programs[number_of_programs].texture0_combiner = texture0_combiner_key;
    shader_programs[number_of_programs].texture1_combiner = texture1_combiner_key;
    shader_programs[number_of_programs].texture0_combinera = texture0_combinera_key;
    shader_programs[number_of_programs].texture1_combinera = texture1_combinera_key;
    shader_programs[number_of_programs].fog_enabled = fog_enabled;
    shader_programs[number_of_programs].chroma_enabled = chroma_enabled;
    shader_programs[number_of_programs].dither_enabled = dither_enabled;
    shader_programs[number_of_programs].blackandwhite0 = blackandwhite0;
    shader_programs[number_of_programs].blackandwhite1 = blackandwhite1;

    if(chroma_enabled)
    {
        strcat(fragment_shader_texture1, "test_chroma(ctexture1); \n");
        compile_chroma_shader();
    }

    fragment_shader = (char*)malloc(4096);
         
//  fragment_shader = (char*)malloc(strlen(fragment_shader_header)+
//                                   strlen(fragment_shader_readtex0bw)+
//                                   strlen(fragment_shader_readtex1bw)+
//                                   strlen(fragment_shader_readtex0bw_2)+
//                                   strlen(fragment_shader_readtex1bw_2)+
//                                   strlen(fragment_shader_texture0)+
//                                   strlen(fragment_shader_texture1)+
//                                   strlen(fragment_shader_color_combiner)+
//                                   strlen(fragment_shader_alpha_combiner)+
//                                   strlen(fragment_shader_fog)+
//                                   strlen(fragment_shader_end)+
//                                   strlen(fragment_shader_chroma)+
//                                   strlen(fragment_shader_dither)+1);

    strcpy(fragment_shader, fragment_shader_header);
    if(dither_enabled) strcat(fragment_shader, fragment_shader_dither);
  switch (blackandwhite0) {
    case 1: strcat(fragment_shader, fragment_shader_readtex0bw); break;
    case 2: strcat(fragment_shader, fragment_shader_readtex0bw_2); break;
    default: strcat(fragment_shader, fragment_shader_readtex0color);
  }
  switch (blackandwhite1) {
    case 1: strcat(fragment_shader, fragment_shader_readtex1bw); break;
    case 2: strcat(fragment_shader, fragment_shader_readtex1bw_2); break;
    default: strcat(fragment_shader, fragment_shader_readtex1color);
  }
//  if(blackandwhite0) strcat(fragment_shader, fragment_shader_readtex0bw);
//  else strcat(fragment_shader, fragment_shader_readtex0color);
//  if(blackandwhite1) strcat(fragment_shader, fragment_shader_readtex1bw);
//  else strcat(fragment_shader, fragment_shader_readtex1color);
    strcat(fragment_shader, fragment_shader_texture0);
    strcat(fragment_shader, fragment_shader_texture1);
    strcat(fragment_shader, fragment_shader_color_combiner);
    strcat(fragment_shader, fragment_shader_alpha_combiner);
    if(fog_enabled) strcat(fragment_shader, fragment_shader_fog);
    strcat(fragment_shader, fragment_shader_end);
    if(chroma_enabled) strcat(fragment_shader, fragment_shader_chroma);

    shader_programs[number_of_programs].fragment_shader_object = glCreateShaderObjectARB(GL_FRAGMENT_SHADER_ARB);
    glShaderSourceARB(shader_programs[number_of_programs].fragment_shader_object, 1, (const GLcharARB**)&fragment_shader, NULL);
    free(fragment_shader);

    glCompileShaderARB(shader_programs[number_of_programs].fragment_shader_object);

    // vertex shader compilation (workaround ATI bug)
    /*vertex_shader_object = glCreateShaderObjectARB(GL_VERTEX_SHADER_ARB);
    glShaderSourceARB(vertex_shader_object, 1, &vertex_shader, NULL);
    glCompileShaderARB(vertex_shader_object);*/

    program_object = glCreateProgramObjectARB();
    shader_programs[number_of_programs].program_object = program_object;
    glAttachObjectARB(program_object, shader_programs[number_of_programs].fragment_shader_object);
    glAttachObjectARB(program_object, vertex_shader_object);
    glLinkProgramARB(program_object);
    glUseProgramObjectARB(program_object);

    glGetObjectParameterivARB(program_object, GL_OBJECT_LINK_STATUS_ARB , &log_length);
    if(!log_length)
    {
        glGetInfoLogARB(shader_programs[number_of_programs].fragment_shader_object, 
            2048, &log_length, shader_log);
        if(log_length) display_warning(shader_log);
        glGetInfoLogARB(vertex_shader_object, 2048, &log_length, shader_log);
        if(log_length) display_warning(shader_log);
        glGetInfoLogARB(program_object, 
            2048, &log_length, shader_log);
        if(log_length) display_warning(shader_log);
    }

    texture0_location = glGetUniformLocationARB(program_object, "texture0");
    texture1_location = glGetUniformLocationARB(program_object, "texture1");
    glUniform1iARB(texture0_location, 0);
    glUniform1iARB(texture1_location, 1);

    constant_color_location = glGetUniformLocationARB(program_object, "constant_color");
    glUniform4fARB(constant_color_location, texture_env_color[0], texture_env_color[1], 
                                            texture_env_color[2], texture_env_color[3]);

    ccolor0_location = glGetUniformLocationARB(program_object, "ccolor0");
    glUniform4fARB(ccolor0_location, ccolor0[0], ccolor0[1], ccolor0[2], ccolor0[3]);

    ccolor1_location = glGetUniformLocationARB(program_object, "ccolor1");
    glUniform4fARB(ccolor1_location, ccolor1[0], ccolor1[1], ccolor1[2], ccolor1[3]);

    chroma_color_location = glGetUniformLocationARB(program_object, "chroma_color");
    glUniform4fARB(chroma_color_location, chroma_color[0], chroma_color[1],
                  chroma_color[2], chroma_color[3]);

    if(dither_enabled)
    {
        ditherTex_location = glGetUniformLocationARB(program_object, "ditherTex");
        glUniform1iARB(ditherTex_location, 2);
    }

    set_lambda();
    number_of_programs++;
}

void free_combiners()
{
    if(glsl_support)
    {
        //int i;

        
        //glUseProgramObjectARB(0);
        
        /*glDeleteObjectARB(program_object_default);
        glDeleteObjectARB(fragment_shader_object);

        for(i=0; i<number_of_programs; i++)
        {
            glDeleteObjectARB(shader_programs[i].program_object);
            glDeleteObjectARB(shader_programs[i].fragment_shader_object);
        }*/
        free(shader_programs);
        shader_programs = NULL;
        number_of_programs = 0;
    }
}

void set_copy_shader()
{
  if(!glsl_support)
  {
    glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_COMBINE_ARB);
    glTexEnvi(GL_TEXTURE_ENV, GL_COMBINE_RGB_ARB, GL_REPLACE);
    glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE0_RGB_ARB, GL_TEXTURE);
    glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND0_RGB_ARB, GL_SRC_COLOR);
    glTexEnvi(GL_TEXTURE_ENV, GL_COMBINE_ALPHA_ARB, GL_REPLACE);
    glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE0_ALPHA_ARB, GL_TEXTURE);
    glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND0_ALPHA_ARB, GL_SRC_ALPHA);
  }
  else
  {
    int texture0_location;
    
    glUseProgramObjectARB(program_object_default);
    texture0_location = glGetUniformLocationARB(program_object, "texture0");
    glUniform1iARB(texture0_location, 0);

//     glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_COMBINE_ARB);
//     glTexEnvi(GL_TEXTURE_ENV, GL_COMBINE_RGB_ARB, GL_REPLACE);
//     glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE0_RGB_ARB, GL_TEXTURE);
//     glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND0_RGB_ARB, GL_SRC_COLOR);
//     glTexEnvi(GL_TEXTURE_ENV, GL_COMBINE_ALPHA_ARB, GL_REPLACE);
//     glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE0_ALPHA_ARB, GL_TEXTURE);
//     glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND0_ALPHA_ARB, GL_SRC_ALPHA);
//     glUseProgramObjectARB(0);
  }
}

void set_depth_shader()
{
    int texture0_location;

    glUseProgramObjectARB(program_object_depth);
    texture0_location = glGetUniformLocationARB(program_object, "texture0");
    glUniform1iARB(texture0_location, 0);
}

// void set_bw_shader()
// {
//  int texture0_location;

//  glUseProgramObjectARB(program_object_bw);
//  texture0_location = glGetUniformLocationARB(program_object, "texture0");
//  glUniform1iARB(texture0_location, 0);
// }

void set_lambda()
{
    int lambda_location = glGetUniformLocationARB(program_object, "lambda");
    glUniform1fARB(lambda_location, lambda);
}

FX_ENTRY void FX_CALL 
grConstantColorValue( GrColor_t value )
{
    LOG("grConstantColorValue(%d)\r\n", value);
    switch(lfb_color_fmt)
    {
    case GR_COLORFORMAT_ARGB:
        texture_env_color[3] = ((value >> 24) & 0xFF) / 255.0f;
        texture_env_color[0] = ((value >> 16) & 0xFF) / 255.0f;
        texture_env_color[1] = ((value >>  8) & 0xFF) / 255.0f;
        texture_env_color[2] = (value & 0xFF) / 255.0f;
        break;
    case GR_COLORFORMAT_RGBA:
        texture_env_color[0] = ((value >> 24) & 0xFF) / 255.0f;
        texture_env_color[1] = ((value >> 16) & 0xFF) / 255.0f;
        texture_env_color[2] = ((value >>  8) & 0xFF) / 255.0f;
        texture_env_color[3] = (value & 0xFF) / 255.0f;
        break;
    default:
        display_warning("grConstantColorValue: unknown color format : %x", lfb_color_fmt);
    }

    if(!glsl_support)
    {
        if (!need_lambda[0])
        {
            glActiveTextureARB(GL_TEXTURE0_ARB);
            glTexEnvfv(GL_TEXTURE_ENV, GL_TEXTURE_ENV_COLOR, texture_env_color);
        }
        if (!need_lambda[1])
        {
            glActiveTextureARB(GL_TEXTURE1_ARB);
            glTexEnvfv(GL_TEXTURE_ENV, GL_TEXTURE_ENV_COLOR, texture_env_color);
        }
        if (nbTextureUnits > 2)
        {
            glActiveTextureARB(GL_TEXTURE2_ARB);
            glTexEnvfv(GL_TEXTURE_ENV, GL_TEXTURE_ENV_COLOR, texture_env_color);
        }
        if (nbTextureUnits > 3)
        {
            glActiveTextureARB(GL_TEXTURE3_ARB);
            glTexEnvfv(GL_TEXTURE_ENV, GL_TEXTURE_ENV_COLOR, texture_env_color);
        }
    }
    else
    {
        constant_color_location = glGetUniformLocationARB(program_object, "constant_color");
        glUniform4fARB(constant_color_location, texture_env_color[0], texture_env_color[1], 
                                                texture_env_color[2], texture_env_color[3]);
    }
}

int setOtherColorSource(int other)
{
    switch(other)
    {
    case GR_COMBINE_OTHER_ITERATED:
        return GL_PRIMARY_COLOR_ARB;
        break;
    case GR_COMBINE_OTHER_TEXTURE:
        return GL_PREVIOUS_ARB;
        break;
    case GR_COMBINE_OTHER_CONSTANT:
        return GL_CONSTANT_ARB;
        break;
    default:
        display_warning("unknwown other color source : %x", other);
    }
    return 0;
}

int setLocalColorSource(int local)
{
    switch(local)
    {
    case GR_COMBINE_LOCAL_ITERATED:
        return GL_PRIMARY_COLOR_ARB;
        break;
    case GR_COMBINE_LOCAL_CONSTANT:
        return GL_CONSTANT_ARB;
        break;
    default:
        display_warning("unknwown local color source : %x", local);
    }
    return 0;
}

void writeGLSLColorOther(int other)
{
    switch(other)
    {
    case GR_COMBINE_OTHER_ITERATED:
        strcat(fragment_shader_color_combiner, "vec4 color_other = gl_Color; \n");
        break;
    case GR_COMBINE_OTHER_TEXTURE:
        strcat(fragment_shader_color_combiner, "vec4 color_other = ctexture1; \n");
        break;
    case GR_COMBINE_OTHER_CONSTANT:
        strcat(fragment_shader_color_combiner, "vec4 color_other = constant_color; \n");
        break;
    default:
        display_warning("unknown writeGLSLColorOther : %x", other);
    }
}

void writeGLSLColorLocal(int local)
{
    switch(local)
    {
    case GR_COMBINE_LOCAL_ITERATED:
        strcat(fragment_shader_color_combiner, "vec4 color_local = gl_Color; \n");
        break;
    case GR_COMBINE_LOCAL_CONSTANT:
        strcat(fragment_shader_color_combiner, "vec4 color_local = constant_color; \n");
        break;
    default:
        display_warning("unknown writeGLSLColorLocal : %x", local);
    }
}

void writeGLSLColorFactor(int factor, int local, int need_local, int other, int need_other)
{
    switch(factor)
    {
    case GR_COMBINE_FACTOR_ZERO:
        strcat(fragment_shader_color_combiner, "vec4 color_factor = vec4(0.0); \n");
        break;
    case GR_COMBINE_FACTOR_LOCAL:
        if(need_local) writeGLSLColorLocal(local);
        strcat(fragment_shader_color_combiner, "vec4 color_factor = color_local; \n");
        break;
    case GR_COMBINE_FACTOR_OTHER_ALPHA:
        if(need_other) writeGLSLColorOther(other);
        strcat(fragment_shader_color_combiner, "vec4 color_factor = vec4(color_other.a); \n");
        break;
    case GR_COMBINE_FACTOR_LOCAL_ALPHA:
        if(need_local) writeGLSLColorLocal(local);
        strcat(fragment_shader_color_combiner, "vec4 color_factor = vec4(color_local.a); \n");
        break;
    case GR_COMBINE_FACTOR_TEXTURE_ALPHA:
        strcat(fragment_shader_color_combiner, "vec4 color_factor = vec4(ctexture1.a); \n");
        break;
    case GR_COMBINE_FACTOR_TEXTURE_RGB:
        strcat(fragment_shader_color_combiner, "vec4 color_factor = ctexture1; \n");
        break;
    case GR_COMBINE_FACTOR_ONE:
        strcat(fragment_shader_color_combiner, "vec4 color_factor = vec4(1.0); \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL:
        if(need_local) writeGLSLColorLocal(local);
        strcat(fragment_shader_color_combiner, "vec4 color_factor = vec4(1.0) - color_local; \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_OTHER_ALPHA:
        if(need_other) writeGLSLColorOther(other);
        strcat(fragment_shader_color_combiner, "vec4 color_factor = vec4(1.0) - vec4(color_other.a); \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL_ALPHA:
        if(need_local) writeGLSLColorLocal(local);
        strcat(fragment_shader_color_combiner, "vec4 color_factor = vec4(1.0) - vec4(color_local.a); \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_TEXTURE_ALPHA:
        strcat(fragment_shader_color_combiner, "vec4 color_factor = vec4(1.0) - vec4(ctexture1.a); \n");
        break;
    default:
        display_warning("unknown writeGLSLColorFactor : %x", factor);
    }
}

FX_ENTRY void FX_CALL 
grColorCombine(
               GrCombineFunction_t function, GrCombineFactor_t factor,
               GrCombineLocal_t local, GrCombineOther_t other,
               FxBool invert )
{
    LOG("grColorCombine(%d,%d,%d,%d,%d)\r\n", function, factor, local, other, invert);
    if(glsl_support)
    {
        static int last_function = 0;
        static int last_factor = 0;
        static int last_local = 0;
        static int last_other = 0;

        if(last_function == function && last_factor == factor &&
           last_local == local && last_other == other && first_color == 0 && !c_combiner_ext) return;
        first_color = 0;
        c_combiner_ext = 0;

        last_function = function;
        last_factor = factor;
        last_local = local;
        last_other = other;

        if (invert) display_warning("grColorCombine : inverted result");

        color_combiner_key = function | (factor << 4) | (local << 8) | (other << 10);
        chroma_other_color = other;

        strcpy(fragment_shader_color_combiner, "");
        switch(function)
        {
        case GR_COMBINE_FUNCTION_ZERO:
            strcat(fragment_shader_color_combiner, "gl_FragColor = vec4(0.0); \n");
            break;
        case GR_COMBINE_FUNCTION_LOCAL:
            writeGLSLColorLocal(local);
            strcat(fragment_shader_color_combiner, "gl_FragColor = color_local; \n");
            break;
        case GR_COMBINE_FUNCTION_LOCAL_ALPHA:
            writeGLSLColorLocal(local);
            strcat(fragment_shader_color_combiner, "gl_FragColor = vec4(color_local.a); \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER:
            writeGLSLColorOther(other);
            writeGLSLColorFactor(factor,local,1,other,0);
            strcat(fragment_shader_color_combiner, "gl_FragColor = color_factor * color_other; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL:
            writeGLSLColorLocal(local);
            writeGLSLColorOther(other);
            writeGLSLColorFactor(factor,local,0,other,0);
            strcat(fragment_shader_color_combiner, "gl_FragColor = color_factor * color_other + color_local; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL_ALPHA:
            writeGLSLColorLocal(local);
            writeGLSLColorOther(other);
            writeGLSLColorFactor(factor,local,0,other,0);
            strcat(fragment_shader_color_combiner, "gl_FragColor = color_factor * color_other + vec4(color_local.a); \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL:
            writeGLSLColorLocal(local);
            writeGLSLColorOther(other);
            writeGLSLColorFactor(factor,local,0,other,0);
            strcat(fragment_shader_color_combiner, "gl_FragColor = color_factor * (color_other - color_local); \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL:
            writeGLSLColorLocal(local);
            writeGLSLColorOther(other);
            writeGLSLColorFactor(factor,local,0,other,0);
            strcat(fragment_shader_color_combiner, "gl_FragColor = color_factor * (color_other - color_local) + color_local; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL_ALPHA:
            writeGLSLColorLocal(local);
            writeGLSLColorOther(other);
            writeGLSLColorFactor(factor,local,0,other,0);
            strcat(fragment_shader_color_combiner, "gl_FragColor = color_factor * (color_other - color_local) + vec4(color_local.a); \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL:
            writeGLSLColorLocal(local);
            writeGLSLColorFactor(factor,local,0,other,1);
            strcat(fragment_shader_color_combiner, "gl_FragColor = color_factor * (-color_local) + color_local; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL_ALPHA:
            writeGLSLColorLocal(local);
            writeGLSLColorFactor(factor,local,0,other,1);
            strcat(fragment_shader_color_combiner, "gl_FragColor = color_factor * (-color_local) + vec4(color_local.a); \n");
            break;
        default:
            strcpy(fragment_shader_color_combiner, fragment_shader_default);
            display_warning("grColorCombine : unknown function : %x", function);
        }
        //compile_shader();
        need_to_compile = 1;
    }
    else
    {
        int num_tex;
        if (invert) display_warning("grColorCombine : inverted result");
        if (nbTextureUnits > 2)
        {
            glActiveTextureARB(GL_TEXTURE2_ARB);
            num_tex = 2;
        }
        else 
        {
            glActiveTextureARB(GL_TEXTURE1_ARB);
            num_tex = 1;
        }
    
        fct[num_tex+1] = GL_REPLACE;
        source0[num_tex+1] = GL_PREVIOUS_ARB;
        operand0[num_tex+1] = GL_SRC_COLOR;
        
        switch(function)
        {
        case GR_COMBINE_FUNCTION_LOCAL:
            fct[num_tex] = GL_REPLACE;
            source0[num_tex] = setLocalColorSource(local);
            operand0[num_tex] = GL_SRC_COLOR;
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER:
            switch(factor)
            {
            case GR_COMBINE_FACTOR_LOCAL:
                fct[num_tex] = GL_MODULATE;
                source0[num_tex] = setLocalColorSource(local);
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = setOtherColorSource(other);
                operand1[num_tex] = GL_SRC_COLOR;
                break;
            case GR_COMBINE_FACTOR_ONE:
                fct[num_tex] = GL_REPLACE;
                source0[num_tex] = setOtherColorSource(other);
                operand0[num_tex] = GL_SRC_COLOR;
                break;
            case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL:
                fct[num_tex] = GL_MODULATE;
                source0[num_tex] = setLocalColorSource(local);
                operand0[num_tex] = GL_ONE_MINUS_SRC_COLOR;
                source1[num_tex] = setOtherColorSource(other);
                operand1[num_tex] = GL_SRC_COLOR;
                break;
            case GR_COMBINE_FACTOR_OTHER_ALPHA:
                fct[num_tex] = GL_MODULATE;
                source0[num_tex] = setOtherColorSource(other);
                operand0[num_tex] = GL_SRC_ALPHA;
                source1[num_tex] = setOtherColorSource(other);
                operand1[num_tex] = GL_SRC_COLOR;
                break;
            case GR_COMBINE_FACTOR_TEXTURE_RGB:
                fct[num_tex] = GL_MODULATE;
                source0[num_tex] = GL_PREVIOUS_ARB;
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = setOtherColorSource(other);
                operand1[num_tex] = GL_SRC_COLOR;
                break;
            default:
                display_warning("grColorCombine(GR_COMBINE_FUNCTION_SCALE_OTHER) : unknown factor : %x", factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL:
            switch(factor)
            {
            case GR_COMBINE_FACTOR_TEXTURE_RGB:
                fct[num_tex] = GL_MODULATE;
                source0[num_tex] = GL_PREVIOUS_ARB;
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = setOtherColorSource(other);
                operand1[num_tex] = GL_SRC_COLOR;
                fct[num_tex+1] = GL_ADD;
                source0[num_tex+1] = GL_PREVIOUS_ARB;
                operand0[num_tex+1] = GL_SRC_COLOR;
                source1[num_tex+1] = setLocalColorSource(local);
                operand1[num_tex+1] = GL_SRC_COLOR;
                if (source1[num_tex+1] == GL_PREVIOUS_ARB) source1[num_tex+1] = GL_TEXTURE0_ARB;
                break;
            case GR_COMBINE_FACTOR_ONE:
                fct[num_tex] = GL_ADD;
                source0[num_tex] = setOtherColorSource(other);
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = setLocalColorSource(local);
                operand1[num_tex] = GL_SRC_COLOR;
                break;
            case GR_COMBINE_FACTOR_LOCAL:
                fct[num_tex] = GL_MODULATE;
                source0[num_tex] = setLocalColorSource(local);
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = setOtherColorSource(other);
                operand1[num_tex] = GL_SRC_COLOR;
                fct[num_tex+1] = GL_ADD;
                source0[num_tex+1] = GL_PREVIOUS_ARB;
                operand0[num_tex+1] = GL_SRC_COLOR;
                source1[num_tex+1] = setLocalColorSource(local);
                operand1[num_tex+1] = GL_SRC_COLOR;
                if (source1[num_tex+1] == GL_PREVIOUS_ARB) source1[num_tex+1] = GL_TEXTURE0_ARB;
                break;
            case GR_COMBINE_FACTOR_LOCAL_ALPHA:
                fct[num_tex] = GL_MODULATE;
                source0[num_tex] = setLocalColorSource(local);
                operand0[num_tex] = GL_SRC_ALPHA;
                source1[num_tex] = setOtherColorSource(other);
                operand1[num_tex] = GL_SRC_COLOR;
                fct[num_tex+1] = GL_ADD;
                source0[num_tex+1] = GL_PREVIOUS_ARB;
                operand0[num_tex+1] = GL_SRC_COLOR;
                source1[num_tex+1] = setLocalColorSource(local);
                operand1[num_tex+1] = GL_SRC_COLOR;
                if (source1[num_tex+1] == GL_PREVIOUS_ARB) source1[num_tex+1] = GL_TEXTURE0_ARB;
                break;
            case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL:
                fct[num_tex] = GL_MODULATE;
                source0[num_tex] = setLocalColorSource(local);
                operand0[num_tex] = GL_ONE_MINUS_SRC_COLOR;
                source1[num_tex] = setOtherColorSource(other);
                operand1[num_tex] = GL_SRC_COLOR;
                fct[num_tex+1] = GL_ADD;
                source0[num_tex+1] = GL_PREVIOUS_ARB;
                operand0[num_tex+1] = GL_SRC_COLOR;
                source1[num_tex+1] = setLocalColorSource(local);
                operand1[num_tex+1] = GL_SRC_COLOR;
                if (source1[num_tex+1] == GL_PREVIOUS_ARB) source1[num_tex+1] = GL_TEXTURE0_ARB;
                break;
            case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL_ALPHA:
                fct[num_tex] = GL_MODULATE;
                source0[num_tex] = setLocalColorSource(local);
                operand0[num_tex] = GL_ONE_MINUS_SRC_ALPHA;
                source1[num_tex] = setOtherColorSource(other);
                operand1[num_tex] = GL_SRC_COLOR;
                fct[num_tex+1] = GL_ADD;
                source0[num_tex+1] = GL_PREVIOUS_ARB;
                operand0[num_tex+1] = GL_SRC_COLOR;
                source1[num_tex+1] = setLocalColorSource(local);
                operand1[num_tex+1] = GL_SRC_COLOR;
                if (source1[num_tex+1] == GL_PREVIOUS_ARB) source1[num_tex+1] = GL_TEXTURE0_ARB;
                break;
            default:
                display_warning("grColorCombine(GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL) : unknown factor : %x", factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL:
            switch(factor)
            {
            case GR_COMBINE_FACTOR_TEXTURE_RGB:
                // this combiner mode isn't implemented correctly and doesn't work on a TNT
                fct[num_tex] = GL_SUBTRACT_ARB;
                source0[num_tex] = setOtherColorSource(other);
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = setLocalColorSource(local);
                operand1[num_tex] = GL_SRC_COLOR;
                fct[num_tex+1] = GL_MODULATE;
                source0[num_tex+1] = GL_TEXTURE0_ARB;
                operand0[num_tex+1] = GL_SRC_COLOR;
                source1[num_tex+1] = GL_PREVIOUS_ARB;
                operand1[num_tex+1] = GL_SRC_COLOR;
                break;
            case GR_COMBINE_FACTOR_ONE:
                // doesn't work on TNT
                fct[num_tex] = GL_SUBTRACT_ARB;
                source0[num_tex] = setOtherColorSource(other);
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = setLocalColorSource(local);
                operand1[num_tex] = GL_SRC_COLOR;
                break;
            default:
                display_warning("grColorCombine(GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL) : unknown factor : %x", factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL:
            switch(factor)
            {
            case GR_COMBINE_FACTOR_OTHER_ALPHA:
                fct[num_tex] = GL_INTERPOLATE_ARB;
                source0[num_tex] = setOtherColorSource(other);
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = setLocalColorSource(local);
                operand1[num_tex] = GL_SRC_COLOR;
                source2[num_tex] = setOtherColorSource(other);
                operand2[num_tex] = GL_SRC_ALPHA;
                break;
            case GR_COMBINE_FACTOR_LOCAL_ALPHA:
                fct[num_tex] = GL_INTERPOLATE_ARB;
                source0[num_tex] = setOtherColorSource(other);
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = setLocalColorSource(local);
                operand1[num_tex] = GL_SRC_COLOR;
                source2[num_tex] = setLocalColorSource(local);
                operand2[num_tex] = GL_SRC_ALPHA;
                break;
            case GR_COMBINE_FACTOR_TEXTURE_ALPHA:
                fct[num_tex] = GL_INTERPOLATE_ARB;
                source0[num_tex] = setOtherColorSource(other);
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = setLocalColorSource(local);
                operand1[num_tex] = GL_SRC_COLOR;
                source2[num_tex] = GL_PREVIOUS_ARB;
                operand2[num_tex] = GL_SRC_ALPHA;
                break;
            case GR_COMBINE_FACTOR_TEXTURE_RGB:
                fct[num_tex] = GL_INTERPOLATE_ARB;
                source0[num_tex] = setOtherColorSource(other);
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = setLocalColorSource(local);
                operand1[num_tex] = GL_SRC_COLOR;
                source2[num_tex] = GL_PREVIOUS_ARB;
                operand2[num_tex] = GL_SRC_COLOR;
                break;
            default:
                display_warning("grColorCombine(GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL) : unknown factor : %x", factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL:
            switch(factor)
            {
            case GR_COMBINE_FACTOR_TEXTURE_RGB:
                fct[num_tex] = GL_MODULATE;
                source0[num_tex] = GL_PREVIOUS_ARB;
                operand0[num_tex] = GL_ONE_MINUS_SRC_COLOR;
                source1[num_tex] = setLocalColorSource(local);
                operand1[num_tex] = GL_SRC_COLOR;
                break;
            default:
                display_warning("grColorCombine(GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL) : unknown factor : %x", factor);
            }
            break;
        default:
            display_warning("grColorCombine : unknown function : %x", function);
        }
        updateCombiner(num_tex);
        if (nbTextureUnits > 3)
        {
            glActiveTextureARB(GL_TEXTURE3_ARB);
            updateCombiner(num_tex+1);
        }
    }
}

int setOtherAlphaSource(int other)
{
    switch(other)
    {
    case GR_COMBINE_OTHER_ITERATED:
        return GL_PRIMARY_COLOR_ARB;
        break;
    case GR_COMBINE_OTHER_TEXTURE:
        return GL_PREVIOUS_ARB;
        break;
    case GR_COMBINE_OTHER_CONSTANT:
        return GL_CONSTANT_ARB;
        break;
    default:
        display_warning("unknwown other alpha source : %x", other);
    }
    return 0;
}

int setLocalAlphaSource(int local)
{
    switch(local)
    {
    case GR_COMBINE_LOCAL_ITERATED:
        return GL_PRIMARY_COLOR_ARB;
        break;
    case GR_COMBINE_LOCAL_CONSTANT:
        return GL_CONSTANT_ARB;
        break;
    default:
        display_warning("unknwown local alpha source : %x", local);
    }
    return 0;
}

void writeGLSLAlphaOther(int other)
{
    switch(other)
    {
    case GR_COMBINE_OTHER_ITERATED:
        strcat(fragment_shader_alpha_combiner, "float alpha_other = gl_Color.a; \n");
        break;
    case GR_COMBINE_OTHER_TEXTURE:
        strcat(fragment_shader_alpha_combiner, "float alpha_other = ctexture1.a; \n");
        break;
    case GR_COMBINE_OTHER_CONSTANT:
        strcat(fragment_shader_alpha_combiner, "float alpha_other = constant_color.a; \n");
        break;
    default:
        display_warning("unknown writeGLSLAlphaOther : %x", other);
    }
}

void writeGLSLAlphaLocal(int local)
{
    switch(local)
    {
    case GR_COMBINE_LOCAL_ITERATED:
        strcat(fragment_shader_alpha_combiner, "float alpha_local = gl_Color.a; \n");
        break;
    case GR_COMBINE_LOCAL_CONSTANT:
        strcat(fragment_shader_alpha_combiner, "float alpha_local = constant_color.a; \n");
        break;
    default:
        display_warning("unknown writeGLSLAlphaLocal : %x", local);
    }
}

void writeGLSLAlphaFactor(int factor, int local, int need_local, int other, int need_other)
{
    switch(factor)
    {
    case GR_COMBINE_FACTOR_ZERO:
        strcat(fragment_shader_alpha_combiner, "float alpha_factor = 0.0; \n");
        break;
    case GR_COMBINE_FACTOR_LOCAL:
        if(need_local) writeGLSLAlphaLocal(local);
        strcat(fragment_shader_alpha_combiner, "float alpha_factor = alpha_local; \n");
        break;
    case GR_COMBINE_FACTOR_OTHER_ALPHA:
        if(need_other) writeGLSLAlphaOther(other);
        strcat(fragment_shader_alpha_combiner, "float alpha_factor = alpha_other; \n");
        break;
    case GR_COMBINE_FACTOR_LOCAL_ALPHA:
        if(need_local) writeGLSLAlphaLocal(local);
        strcat(fragment_shader_alpha_combiner, "float alpha_factor = alpha_local; \n");
        break;
    case GR_COMBINE_FACTOR_TEXTURE_ALPHA:
        strcat(fragment_shader_alpha_combiner, "float alpha_factor = ctexture1.a; \n");
        break;
    case GR_COMBINE_FACTOR_ONE:
        strcat(fragment_shader_alpha_combiner, "float alpha_factor = 1.0; \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL:
        if(need_local) writeGLSLAlphaLocal(local);
        strcat(fragment_shader_alpha_combiner, "float alpha_factor = 1.0 - alpha_local; \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_OTHER_ALPHA:
        if(need_other) writeGLSLAlphaOther(other);
        strcat(fragment_shader_alpha_combiner, "float alpha_factor = 1.0 - alpha_other; \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL_ALPHA:
        if(need_local) writeGLSLAlphaLocal(local);
        strcat(fragment_shader_alpha_combiner, "float alpha_factor = 1.0 - alpha_local; \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_TEXTURE_ALPHA:
        strcat(fragment_shader_alpha_combiner, "float alpha_factor = 1.0 - ctexture1.a; \n");
        break;
    default:
        display_warning("unknown writeGLSLAlphaFactor : %x", factor);
    }
}

FX_ENTRY void FX_CALL
grAlphaCombine(
               GrCombineFunction_t function, GrCombineFactor_t factor,
               GrCombineLocal_t local, GrCombineOther_t other,
               FxBool invert
               )
{
    LOG("grAlphaCombine(%d,%d,%d,%d,%d)\r\n", function, factor, local, other, invert);
    if(glsl_support)
    {
        static int last_function = 0;
        static int last_factor = 0;
        static int last_local = 0;
        static int last_other = 0;

        if(last_function == function && last_factor == factor &&
           last_local == local && last_other == other && first_alpha == 0 && !a_combiner_ext) return;
        first_alpha = 0;
        a_combiner_ext = 0;

        last_function = function;
        last_factor = factor;
        last_local = local;
        last_other = other;

        if (invert) display_warning("grAlphaCombine : inverted result");

        alpha_combiner_key = function | (factor << 4) | (local << 8) | (other << 10);
        chroma_other_alpha = other;

        strcpy(fragment_shader_alpha_combiner, "");

        switch(function)
        {
        case GR_COMBINE_FUNCTION_ZERO:
            strcat(fragment_shader_alpha_combiner, "gl_FragColor.a = 0.0; \n");
            break;
        case GR_COMBINE_FUNCTION_LOCAL:
            writeGLSLAlphaLocal(local);
            strcat(fragment_shader_alpha_combiner, "gl_FragColor.a = alpha_local; \n");
            break;
        case GR_COMBINE_FUNCTION_LOCAL_ALPHA:
            writeGLSLAlphaLocal(local);
            strcat(fragment_shader_alpha_combiner, "gl_FragColor.a = alpha_local; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER:
            writeGLSLAlphaOther(other);
            writeGLSLAlphaFactor(factor,local,1,other,0);
            strcat(fragment_shader_alpha_combiner, "gl_FragColor.a = alpha_factor * alpha_other; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL:
            writeGLSLAlphaLocal(local);
            writeGLSLAlphaOther(other);
            writeGLSLAlphaFactor(factor,local,0,other,0);
            strcat(fragment_shader_alpha_combiner, "gl_FragColor.a = alpha_factor * alpha_other + alpha_local; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL_ALPHA:
            writeGLSLAlphaLocal(local);
            writeGLSLAlphaOther(other);
            writeGLSLAlphaFactor(factor,local,0,other,0);
            strcat(fragment_shader_alpha_combiner, "gl_FragColor.a = alpha_factor * alpha_other + alpha_local; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL:
            writeGLSLAlphaLocal(local);
            writeGLSLAlphaOther(other);
            writeGLSLAlphaFactor(factor,local,0,other,0);
            strcat(fragment_shader_alpha_combiner, "gl_FragColor.a = alpha_factor * (alpha_other - alpha_local); \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL:
            writeGLSLAlphaLocal(local);
            writeGLSLAlphaOther(other);
            writeGLSLAlphaFactor(factor,local,0,other,0);
            strcat(fragment_shader_alpha_combiner, "gl_FragColor.a = alpha_factor * (alpha_other - alpha_local) + alpha_local; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL_ALPHA:
            writeGLSLAlphaLocal(local);
            writeGLSLAlphaOther(other);
            writeGLSLAlphaFactor(factor,local,0,other,0);
            strcat(fragment_shader_alpha_combiner, "gl_FragColor.a = alpha_factor * (alpha_other - alpha_local) + alpha_local; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL:
            writeGLSLAlphaLocal(local);
            writeGLSLAlphaFactor(factor,local,0,other,1);
            strcat(fragment_shader_alpha_combiner, "gl_FragColor.a = alpha_factor * (-alpha_local) + alpha_local; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL_ALPHA:
            writeGLSLAlphaLocal(local);
            writeGLSLAlphaFactor(factor,local,0,other,1);
            strcat(fragment_shader_alpha_combiner, "gl_FragColor.a = alpha_factor * (-alpha_local) + alpha_local; \n");
            break;
        default:
            display_warning("grAlphaCombine : unknown function : %x", function);
        }

        //compile_shader();
        need_to_compile = 1;
    }
    else
    {
        int num_tex;
        if (invert) display_warning("grAlphaCombine : inverted result");
        if (nbTextureUnits > 2)
        {
            glActiveTextureARB(GL_TEXTURE2_ARB);
            num_tex = 2;
        }
        else 
        {
            glActiveTextureARB(GL_TEXTURE1_ARB);
            num_tex = 1;
        }

        fcta[num_tex+1] = GL_REPLACE;
        sourcea0[num_tex+1] = GL_PREVIOUS_ARB;
        operanda0[num_tex+1] = GL_SRC_ALPHA;

        switch(function)
        {
        case GR_COMBINE_FUNCTION_LOCAL:
            fcta[num_tex] = GL_REPLACE;
            sourcea0[num_tex] = setLocalAlphaSource(local);
            operanda0[num_tex] = GL_SRC_ALPHA;
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER:
            switch (factor)
            {
            case GR_COMBINE_FACTOR_ONE:
                fcta[num_tex] = GL_REPLACE;
                sourcea0[num_tex] = setOtherAlphaSource(other);
                operanda0[num_tex] = GL_SRC_ALPHA;
                break;
            case GR_COMBINE_FACTOR_LOCAL:
                fcta[num_tex] = GL_MODULATE;
                sourcea0[num_tex] = setLocalAlphaSource(local);
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = setOtherAlphaSource(other);
                operanda1[num_tex] = GL_SRC_ALPHA;
                break;
            case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL:
                fcta[num_tex] = GL_MODULATE;
                sourcea0[num_tex] = setLocalAlphaSource(local);
                operanda0[num_tex] = GL_ONE_MINUS_SRC_ALPHA;
                sourcea1[num_tex] = setOtherAlphaSource(other);
                operanda1[num_tex] = GL_SRC_ALPHA;
                break;
            case GR_COMBINE_FACTOR_TEXTURE_ALPHA:
                fcta[num_tex] = GL_MODULATE;
                sourcea0[num_tex] = GL_PREVIOUS_ARB;
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = setOtherAlphaSource(other);
                operanda1[num_tex] = GL_SRC_ALPHA;
                break;
            case GR_COMBINE_FACTOR_ONE_MINUS_TEXTURE_ALPHA:
                fcta[num_tex] = GL_MODULATE;
                sourcea0[num_tex] = GL_PREVIOUS_ARB;
                operanda0[num_tex] = GL_ONE_MINUS_SRC_ALPHA;
                sourcea1[num_tex] = setOtherAlphaSource(other);
                operanda1[num_tex] = GL_SRC_ALPHA;
                break;
            default:
                display_warning("grAlphaCombine(GR_COMBINE_FUNCTION_SCALE_OTHER) : unknown factor : %x", factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL:
            switch(factor)
            {
            case GR_COMBINE_FACTOR_TEXTURE_ALPHA:
                fcta[num_tex] = GL_MODULATE;
                sourcea0[num_tex] = setOtherAlphaSource(other);
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = GL_PREVIOUS_ARB;
                operanda0[num_tex] = GL_SRC_ALPHA;
                fcta[num_tex+1] = GL_ADD;
                sourcea0[num_tex+1] = GL_PREVIOUS_ARB;
                operanda0[num_tex+1] = GL_SRC_ALPHA;
                sourcea1[num_tex+1] = setLocalAlphaSource(local);
                operanda1[num_tex+1] = GL_SRC_ALPHA;
                if (sourcea1[num_tex+1] == GL_PREVIOUS_ARB) sourcea1[num_tex+1] = GL_TEXTURE0_ARB;
                break;
            case GR_COMBINE_FACTOR_ONE_MINUS_TEXTURE_ALPHA:
                fcta[num_tex] = GL_MODULATE;
                sourcea0[num_tex] = setOtherAlphaSource(other);
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = GL_PREVIOUS_ARB;
                operanda0[num_tex] = GL_ONE_MINUS_SRC_ALPHA;
                fcta[num_tex+1] = GL_ADD;
                sourcea0[num_tex+1] = GL_PREVIOUS_ARB;
                operanda0[num_tex+1] = GL_SRC_ALPHA;
                sourcea1[num_tex+1] = setLocalAlphaSource(local);
                operanda1[num_tex+1] = GL_SRC_ALPHA;
                if (sourcea1[num_tex+1] == GL_PREVIOUS_ARB) sourcea1[num_tex+1] = GL_TEXTURE0_ARB;
                break;
            case GR_COMBINE_FACTOR_LOCAL:
                fcta[num_tex] = GL_MODULATE;
                sourcea0[num_tex] = setOtherAlphaSource(other);
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = setLocalAlphaSource(local);
                operanda0[num_tex] = GL_SRC_ALPHA;
                fcta[num_tex+1] = GL_ADD;
                sourcea0[num_tex+1] = GL_PREVIOUS_ARB;
                operanda0[num_tex+1] = GL_SRC_ALPHA;
                sourcea1[num_tex+1] = setLocalAlphaSource(local);
                operanda1[num_tex+1] = GL_SRC_ALPHA;
                if (sourcea1[num_tex+1] == GL_PREVIOUS_ARB) sourcea1[num_tex+1] = GL_TEXTURE0_ARB;
                break;
            case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL_ALPHA:
                fcta[num_tex] = GL_MODULATE;
                sourcea0[num_tex] = setOtherAlphaSource(other);
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = setLocalAlphaSource(local);
                operanda0[num_tex] = GL_ONE_MINUS_SRC_ALPHA;
                fcta[num_tex+1] = GL_ADD;
                sourcea0[num_tex+1] = GL_PREVIOUS_ARB;
                operanda0[num_tex+1] = GL_SRC_ALPHA;
                sourcea1[num_tex+1] = setLocalAlphaSource(local);
                operanda1[num_tex+1] = GL_SRC_ALPHA;
                if (sourcea1[num_tex+1] == GL_PREVIOUS_ARB) sourcea1[num_tex+1] = GL_TEXTURE0_ARB;
                break;
            case GR_COMBINE_FACTOR_ONE:
                fcta[num_tex] = GL_ADD;
                sourcea0[num_tex] = setOtherAlphaSource(other);
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = setLocalAlphaSource(local);
                operanda1[num_tex] = GL_SRC_ALPHA;
                break;
            default:
                display_warning("grAlphaCombine(GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL) : unknown factor : %x", factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL:
            switch(factor)
            {
            case GR_COMBINE_FACTOR_TEXTURE_ALPHA:
                // this combiner mode isn't implemented correctly and doesn't work on a TNT
                fcta[num_tex] = GL_SUBTRACT_ARB;
                sourcea0[num_tex] = setOtherAlphaSource(other);
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = setLocalAlphaSource(local);
                operanda1[num_tex] = GL_SRC_ALPHA;
                fcta[num_tex+1] = GL_MODULATE;
                sourcea0[num_tex+1] = GL_TEXTURE0_ARB;
                operanda0[num_tex+1] = GL_SRC_ALPHA;
                sourcea1[num_tex+1] = GL_PREVIOUS_ARB;
                operanda1[num_tex+1] = GL_SRC_ALPHA;
                break;
            case GR_COMBINE_FACTOR_LOCAL:
                fcta[num_tex] = GL_SUBTRACT_ARB;
                sourcea0[num_tex] = setOtherAlphaSource(other);
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = setLocalAlphaSource(local);
                operanda1[num_tex] = GL_SRC_ALPHA;
                fcta[num_tex+1] = GL_MODULATE;
                sourcea0[num_tex+1] = setLocalAlphaSource(local);
                operanda0[num_tex+1] = GL_SRC_ALPHA;
                sourcea1[num_tex+1] = GL_PREVIOUS_ARB;
                operanda1[num_tex+1] = GL_SRC_ALPHA;
                break;
            case GR_COMBINE_FACTOR_ONE:
                // doesn't work on a TNT
                fcta[num_tex] = GL_SUBTRACT_ARB;
                sourcea0[num_tex] = setOtherAlphaSource(other);
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = setLocalAlphaSource(local);
                operanda1[num_tex] = GL_SRC_ALPHA;
                break;
            default:
                display_warning("grAlphaCombine(GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL) : unknown factor : %x", factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL:
            switch(factor)
            {
            case GR_COMBINE_FACTOR_TEXTURE_ALPHA:
                fcta[num_tex] = GL_INTERPOLATE_ARB;
                sourcea0[num_tex] = setOtherAlphaSource(other);
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = setLocalAlphaSource(local);
                operanda1[num_tex] = GL_SRC_ALPHA;
                sourcea2[num_tex] = GL_PREVIOUS_ARB;
                operanda2[num_tex] = GL_SRC_ALPHA;
                break;
            default:
                display_warning("grAlphaCombine(GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL) : unknown factor : %x", factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL:
            switch(factor)
            {
            case GR_COMBINE_FACTOR_TEXTURE_ALPHA:
                fcta[num_tex] = GL_MODULATE;
                sourcea0[num_tex] = GL_PREVIOUS_ARB;
                operanda0[num_tex] = GL_ONE_MINUS_SRC_ALPHA;
                sourcea1[num_tex] = setLocalAlphaSource(local);
                operanda1[num_tex] = GL_SRC_ALPHA;
                break;
            default:
                display_warning("grAlphaCombine(GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL) : unknown factor : %x", factor);
            }
            break;
        default:
            display_warning("grAlphaCombine : unknown function : %x", function);
        }
        updateCombinera(num_tex);
        if (nbTextureUnits > 3)
        {
            glActiveTextureARB(GL_TEXTURE3_ARB);
            updateCombinera(num_tex+1);
        }
    }
}

void writeGLSLTextureColorFactor(int num_tex, int factor)
{
    switch(factor)
    {
    case GR_COMBINE_FACTOR_ZERO:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 texture0_color_factor = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 texture1_color_factor = vec4(0.0); \n");
        break;
    case GR_COMBINE_FACTOR_LOCAL:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 texture0_color_factor = readtex0; \n");
        else
            strcat(fragment_shader_texture1, "vec4 texture1_color_factor = readtex1; \n");
        break;
    case GR_COMBINE_FACTOR_OTHER_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 texture0_color_factor = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 texture1_color_factor = vec4(ctexture0.a); \n");
        break;
    case GR_COMBINE_FACTOR_LOCAL_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 texture0_color_factor = vec4(readtex0.a); \n");
        else
            strcat(fragment_shader_texture1, "vec4 texture1_color_factor = vec4(readtex1.a); \n");
        break;
    case GR_COMBINE_FACTOR_DETAIL_FACTOR:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 texture0_color_factor = vec4(lambda); \n");
        else
            strcat(fragment_shader_texture1, "vec4 texture1_color_factor = vec4(lambda); \n");
        break;
    case GR_COMBINE_FACTOR_ONE:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 texture0_color_factor = vec4(1.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 texture1_color_factor = vec4(1.0); \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 texture0_color_factor = vec4(1.0) - readtex0; \n");
        else
            strcat(fragment_shader_texture1, "vec4 texture1_color_factor = vec4(1.0) - readtex1; \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_OTHER_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 texture0_color_factor = vec4(1.0) - vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 texture1_color_factor = vec4(1.0) - vec4(ctexture0.a); \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 texture0_color_factor = vec4(1.0) - vec4(readtex0.a); \n");
        else
            strcat(fragment_shader_texture1, "vec4 texture1_color_factor = vec4(1.0) - vec4(readtex1.a); \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_DETAIL_FACTOR:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 texture0_color_factor = vec4(1.0) - vec4(lambda); \n");
        else
            strcat(fragment_shader_texture1, "vec4 texture1_color_factor = vec4(1.0) - vec4(lambda); \n");
        break;
    default:
        display_warning("unknown writeGLSLTextureColorFactor : %x", factor);
    }
}

void writeGLSLTextureAlphaFactor(int num_tex, int factor)
{
    switch(factor)
    {
    case GR_COMBINE_FACTOR_ZERO:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "float texture0_alpha_factor = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "float texture1_alpha_factor = 0.0; \n");
        break;
    case GR_COMBINE_FACTOR_LOCAL:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "float texture0_alpha_factor = readtex0.a; \n");
        else
            strcat(fragment_shader_texture1, "float texture1_alpha_factor = readtex1.a; \n");
        break;
    case GR_COMBINE_FACTOR_OTHER_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "float texture0_alpha_factor = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "float texture1_alpha_factor = ctexture0.a; \n");
        break;
    case GR_COMBINE_FACTOR_LOCAL_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "float texture0_alpha_factor = readtex0.a; \n");
        else
            strcat(fragment_shader_texture1, "float texture1_alpha_factor = readtex1.a; \n");
        break;
    case GR_COMBINE_FACTOR_DETAIL_FACTOR:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "float texture0_alpha_factor = lambda; \n");
        else
            strcat(fragment_shader_texture1, "float texture1_alpha_factor = lambda; \n");
        break;
    case GR_COMBINE_FACTOR_ONE:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "float texture0_alpha_factor = 1.0; \n");
        else
            strcat(fragment_shader_texture1, "float texture1_alpha_factor = 1.0; \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "float texture0_alpha_factor = 1.0 - readtex0.a; \n");
        else
            strcat(fragment_shader_texture1, "float texture1_alpha_factor = 1.0 - readtex1.a; \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_OTHER_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "float texture0_alpha_factor = 1.0 - 0.0; \n");
        else
            strcat(fragment_shader_texture1, "float texture1_alpha_factor = 1.0 - ctexture0.a; \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "float texture0_alpha_factor = 1.0 - readtex0.a; \n");
        else
            strcat(fragment_shader_texture1, "float texture1_alpha_factor = 1.0 - readtex1.a; \n");
        break;
    case GR_COMBINE_FACTOR_ONE_MINUS_DETAIL_FACTOR:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "float texture0_alpha_factor = 1.0 - lambda; \n");
        else
            strcat(fragment_shader_texture1, "float texture1_alpha_factor = 1.0 - lambda; \n");
        break;
    default:
        display_warning("unknown writeGLSLTextureAlphaFactor : %x", factor);
    }
}

FX_ENTRY void FX_CALL 
grTexCombine(
             GrChipID_t tmu,
             GrCombineFunction_t rgb_function,
             GrCombineFactor_t rgb_factor, 
             GrCombineFunction_t alpha_function,
             GrCombineFactor_t alpha_factor,
             FxBool rgb_invert,
             FxBool alpha_invert
             )
{
    LOG("grTexCombine(%d,%d,%d,%d,%d,%d,%d)\r\n", tmu, rgb_function, rgb_factor, alpha_function, alpha_factor, rgb_invert, alpha_invert);
    if(glsl_support)
    {
        int num_tex;

        if (tmu == GR_TMU0) num_tex = 1;
        else num_tex = 0;

        if(num_tex == 0)
        {
            static int last_function = 0;
            static int last_factor = 0;
            static int last_afunction = 0;
            static int last_afactor = 0;
            static int last_rgb_invert = 0;

            if(last_function == rgb_function && last_factor == rgb_factor &&
               last_afunction == alpha_function && last_afactor == alpha_factor &&
               last_rgb_invert == rgb_invert && first_texture0 == 0 && !tex0_combiner_ext) return;
            first_texture0 = 0;
            tex0_combiner_ext = 0;

            last_function = rgb_function;
            last_factor = rgb_factor;
            last_afunction = alpha_function;
            last_afactor = alpha_factor;
            last_rgb_invert= rgb_invert;
            texture0_combiner_key = rgb_function | (rgb_factor << 4) | 
                                    (alpha_function << 8) | (alpha_factor << 12) | 
                                    (rgb_invert << 16);
            texture0_combinera_key = 0;
            strcpy(fragment_shader_texture0, "");
        }
        else
        {
            static int last_function = 0;
            static int last_factor = 0;
            static int last_afunction = 0;
            static int last_afactor = 0;
            static int last_rgb_invert = 0;

            if(last_function == rgb_function && last_factor == rgb_factor &&
               last_afunction == alpha_function && last_afactor == alpha_factor &&
               last_rgb_invert == rgb_invert && first_texture1 == 0 && !tex1_combiner_ext) return;
            first_texture1 = 0;
            tex1_combiner_ext = 0;

            last_function = rgb_function;
            last_factor = rgb_factor;
            last_afunction = alpha_function;
            last_afactor = alpha_factor;
            last_rgb_invert = rgb_invert;

            texture1_combiner_key = rgb_function | (rgb_factor << 4) | 
                                    (alpha_function << 8) | (alpha_factor << 12) |
                                    (rgb_invert << 16);
            texture1_combinera_key = 0;
            strcpy(fragment_shader_texture1, "");
        }

        switch(rgb_function)
        {
        case GR_COMBINE_FUNCTION_ZERO:
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "vec4 ctexture0 = vec4(0.0); \n");
            else
                strcat(fragment_shader_texture1, "vec4 ctexture1 = vec4(0.0); \n");
            break;
        case GR_COMBINE_FUNCTION_LOCAL:
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "vec4 ctexture0 = readtex0; \n");
            else
                strcat(fragment_shader_texture1, "vec4 ctexture1 = readtex1; \n");
            break;
        case GR_COMBINE_FUNCTION_LOCAL_ALPHA:
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "vec4 ctexture0 = vec4(readtex0.a); \n");
            else
                strcat(fragment_shader_texture1, "vec4 ctexture1 = vec4(readtex1.a); \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER:
            writeGLSLTextureColorFactor(num_tex, rgb_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "vec4 ctexture0 = texture0_color_factor * vec4(0.0); \n");
            else
                strcat(fragment_shader_texture1, "vec4 ctexture1 = texture1_color_factor * ctexture0; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL:
            writeGLSLTextureColorFactor(num_tex, rgb_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "vec4 ctexture0 = texture0_color_factor * vec4(0.0) + readtex0; \n");
            else
                strcat(fragment_shader_texture1, "vec4 ctexture1 = texture1_color_factor * ctexture0 + readtex1; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL_ALPHA:
            writeGLSLTextureColorFactor(num_tex, rgb_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "vec4 ctexture0 = texture0_color_factor * vec4(0.0) + vec4(readtex0.a); \n");
            else
                strcat(fragment_shader_texture1, "vec4 ctexture1 = texture1_color_factor * ctexture0 + vec4(readtex1.a); \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL:
            writeGLSLTextureColorFactor(num_tex, rgb_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "vec4 ctexture0 = texture0_color_factor * (vec4(0.0) - readtex0); \n");
            else
                strcat(fragment_shader_texture1, "vec4 ctexture1 = texture1_color_factor * (ctexture0 - readtex1); \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL:
            writeGLSLTextureColorFactor(num_tex, rgb_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "vec4 ctexture0 = texture0_color_factor * (vec4(0.0) - readtex0) + readtex0; \n");
            else
                strcat(fragment_shader_texture1, "vec4 ctexture1 = texture1_color_factor * (ctexture0 - readtex1) + readtex1; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL_ALPHA:
            writeGLSLTextureColorFactor(num_tex, rgb_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "vec4 ctexture0 = texture0_color_factor * (vec4(0.0) - readtex0) + vec4(readtex0.a); \n");
            else
                strcat(fragment_shader_texture1, "vec4 ctexture1 = texture1_color_factor * (ctexture0 - readtex1) + vec4(readtex1.a); \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL:
            writeGLSLTextureColorFactor(num_tex, rgb_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "vec4 ctexture0 = texture0_color_factor * (-readtex0) + readtex0; \n");
            else
                strcat(fragment_shader_texture1, "vec4 ctexture1 = texture1_color_factor * (-readtex1) + readtex1; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL_ALPHA:
            writeGLSLTextureColorFactor(num_tex, rgb_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "vec4 ctexture0 = texture0_color_factor * (-readtex0) + vec4(readtex0.a); \n");
            else
                strcat(fragment_shader_texture1, "vec4 ctexture1 = texture1_color_factor * (-readtex1) + vec4(readtex1.a); \n");
            break;
        default:
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "vec4 ctexture0 = readtex0; \n");
            else
                strcat(fragment_shader_texture1, "vec4 ctexture1 = readtex1; \n");
            display_warning("grTextCombine : unknown rgb function : %x", rgb_function);
        }

        if (rgb_invert)
        {
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0 = vec4(1.0) - ctexture0; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1 = vec4(1.0) - ctexture1; \n");
        }

        switch(alpha_function)
        {
        case GR_COMBINE_FACTOR_ZERO:
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = 0.0; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = 0.0; \n");
            break;
        case GR_COMBINE_FUNCTION_LOCAL:
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = readtex0.a; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = readtex1.a; \n");
            break;
        case GR_COMBINE_FUNCTION_LOCAL_ALPHA:
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = readtex0.a; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = readtex1.a; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER:
            writeGLSLTextureAlphaFactor(num_tex, alpha_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = texture0_alpha_factor * 0.0; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = texture1_alpha_factor * ctexture0.a; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL:
            writeGLSLTextureAlphaFactor(num_tex, alpha_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = texture0_alpha_factor * 0.0 + readtex0.a; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = texture1_alpha_factor * ctexture0.a + readtex1.a; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL_ALPHA:
            writeGLSLTextureAlphaFactor(num_tex, alpha_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = texture0_alpha_factor * 0.0 + readtex0.a; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = texture1_alpha_factor * ctexture0.a + readtex1.a; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL:
            writeGLSLTextureAlphaFactor(num_tex, alpha_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = texture0_alpha_factor * (0.0 - readtex0.a); \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = texture1_alpha_factor * (ctexture0.a - readtex1.a); \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL:
            writeGLSLTextureAlphaFactor(num_tex, alpha_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = texture0_alpha_factor * (0.0 - readtex0.a) + readtex0.a; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = texture1_alpha_factor * (ctexture0.a - readtex1.a) + readtex1.a; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL_ALPHA:
            writeGLSLTextureAlphaFactor(num_tex, alpha_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = texture0_alpha_factor * (0.0 - readtex0.a) + readtex0.a; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = texture1_alpha_factor * (ctexture0.a - readtex1.a) + readtex1.a; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL:
            writeGLSLTextureAlphaFactor(num_tex, alpha_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = texture0_alpha_factor * (-readtex0.a) + readtex0.a; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = texture1_alpha_factor * (-readtex1.a) + readtex1.a; \n");
            break;
        case GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL_ALPHA:
            writeGLSLTextureAlphaFactor(num_tex, alpha_factor);
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = texture0_alpha_factor * (-readtex0.a) + readtex0.a; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = texture1_alpha_factor * (-readtex1.a) + readtex1.a; \n");
            break;
        default:
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = readtex0.a; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = ctexture0.a; \n");
            display_warning("grTextCombine : unknown alpha function : %x", alpha_function);
        }

        if (alpha_invert)
        {
            if(num_tex == 0)
                strcat(fragment_shader_texture0, "ctexture0.a = 1.0 - ctexture0.a; \n");
            else
                strcat(fragment_shader_texture1, "ctexture1.a = 1.0 - ctexture1.a; \n");
        }

        //compile_shader();
        need_to_compile = 1;
    }
    else
    {
        int num_tex;
        int will_need_lambda = 0;
        //if (rgb_invert) display_warning("grTexCombine : inverted rgb result");
        if (alpha_invert) display_warning("grTexCombine : inverted alpha result");

        if (tmu == GR_TMU1 && nbTextureUnits <= 2) return;
        if (tmu == GR_TMU0)
        {
            if (nbTextureUnits <= 2)
            {
                glActiveTextureARB(GL_TEXTURE0_ARB);
                num_tex = 0;
            }
            else
            {
                glActiveTextureARB(GL_TEXTURE1_ARB);
                num_tex = 1;
            }
        }
        else
        {
            glActiveTextureARB(GL_TEXTURE0_ARB);
            num_tex = 0;
        }

        switch(rgb_function)
        {
        case GR_COMBINE_FUNCTION_ZERO:
            fct[num_tex] = GL_REPLACE;
            source0[num_tex] = GL_PRIMARY_COLOR_ARB;
            operand0[num_tex] = GL_SRC_COLOR;
            break;
        case GR_COMBINE_FUNCTION_LOCAL:
            fct[num_tex] = GL_REPLACE;
            source0[num_tex] = GL_TEXTURE;
            operand0[num_tex] = GL_SRC_COLOR;
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER:
            switch(rgb_factor)
            {
            case GR_COMBINE_FACTOR_LOCAL:
                fct[num_tex] = GL_MODULATE;
                source0[num_tex] = GL_PREVIOUS_ARB;
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = GL_TEXTURE;
                operand1[num_tex] = GL_SRC_COLOR;
                break;
            case GR_COMBINE_FACTOR_LOCAL_ALPHA:
                fct[num_tex] = GL_MODULATE;
                source0[num_tex] = GL_PREVIOUS_ARB;
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = GL_TEXTURE;
                operand1[num_tex] = GL_SRC_ALPHA;
                break;
            case GR_COMBINE_FACTOR_ONE:
                fct[num_tex] = GL_REPLACE;
                source0[num_tex] = GL_PREVIOUS_ARB;
                operand0[num_tex] = GL_SRC_COLOR;
                break;
            default:
                display_warning("grTextCombine(GR_COMBINE_FUNCTION_SCALE_OTHER) : unknown rgb factor : %x", rgb_factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL:
            switch(rgb_factor)
            {
            case GR_COMBINE_FACTOR_ONE:
                fct[num_tex] = GL_ADD;
                source0[num_tex] = GL_PREVIOUS_ARB;
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = GL_TEXTURE;
                operand1[num_tex] = GL_SRC_COLOR;
                break;
            case GR_COMBINE_FACTOR_OTHER_ALPHA:
                if (num_tex==1)
                {
                    fct[num_tex-1] = GL_MODULATE;
                    source0[num_tex-1] = GL_TEXTURE;
                    operand0[num_tex-1] = GL_SRC_COLOR;
                    source1[num_tex-1] = GL_TEXTURE;
                    operand1[num_tex-1] = GL_SRC_ALPHA;
                    fct[num_tex] = GL_ADD;
                    source0[num_tex] = GL_PREVIOUS_ARB;
                    operand0[num_tex] = GL_SRC_COLOR;
                    source1[num_tex] = GL_TEXTURE;
                    operand1[num_tex] = GL_SRC_COLOR;
                }
                break;
            case GR_COMBINE_FACTOR_DETAIL_FACTOR:
                if (num_tex==1)
                {
                    fct[num_tex-1] = GL_MODULATE;
                    source0[num_tex-1] = GL_TEXTURE;
                    operand0[num_tex-1] = GL_SRC_COLOR;
                    source1[num_tex-1] = GL_CONSTANT_ARB;
                    operand1[num_tex-1] = GL_SRC_ALPHA;
                    fct[num_tex] = GL_ADD;
                    source0[num_tex] = GL_PREVIOUS_ARB;
                    operand0[num_tex] = GL_SRC_COLOR;
                    source1[num_tex] = GL_TEXTURE;
                    operand1[num_tex] = GL_SRC_COLOR;
                    will_need_lambda = 1;
                }
                break;
            default:
                display_warning("grTextCombine(GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL) : unknown rgb factor : %x", rgb_factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL:
            switch(rgb_factor)
            {
            case GR_COMBINE_FACTOR_DETAIL_FACTOR:
                fct[num_tex] = GL_INTERPOLATE_ARB;
                source0[num_tex] = GL_PREVIOUS_ARB;
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = GL_TEXTURE;
                operand1[num_tex] = GL_SRC_COLOR;
                source2[num_tex] = GL_CONSTANT_ARB;
                operand2[num_tex] = GL_SRC_ALPHA;
                will_need_lambda = 1;
                break;
            case GR_COMBINE_FACTOR_ONE_MINUS_LOCAL:
                fct[num_tex] = GL_INTERPOLATE_ARB;
                source0[num_tex] = GL_PREVIOUS_ARB;
                operand0[num_tex] = GL_SRC_COLOR;
                source1[num_tex] = GL_TEXTURE;
                operand1[num_tex] = GL_SRC_COLOR;
                source2[num_tex] = GL_TEXTURE;
                operand2[num_tex] = GL_ONE_MINUS_SRC_COLOR;
                break;
            default:
                display_warning("grTextCombine(GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL) : unknown rgb factor : %x", rgb_factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL:
            switch(rgb_factor)
            {
            case GR_COMBINE_FACTOR_LOCAL:
                // this combiner mode isn't implemented correctly and doesn't work on a TNT
                if (num_tex==1)
                {
                    fct[num_tex-1] = GL_SUBTRACT_ARB;
                    source0[num_tex-1] = GL_TEXTURE0_ARB;
                    operand0[num_tex-1] = GL_SRC_COLOR;
                    source1[num_tex-1] = GL_TEXTURE1_ARB;
                    operand1[num_tex-1] = GL_SRC_COLOR;
                    fct[num_tex] = GL_MODULATE;
                    source0[num_tex] = GL_PREVIOUS_ARB;
                    operand0[num_tex] = GL_SRC_COLOR;
                    source1[num_tex] = GL_TEXTURE;
                    operand1[num_tex] = GL_SRC_COLOR;
                }
                break;
            default:
                display_warning("grTextCombine(GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL) : unknown rgb factor : %x", rgb_factor);
            }
        default:
            display_warning("grTextCombine : unknown rgb function : %x", rgb_function);
        }

        switch(alpha_function)
        {
        case GR_COMBINE_FUNCTION_ZERO:
            fcta[num_tex] = GL_REPLACE;
            sourcea0[num_tex] = GL_PRIMARY_COLOR_ARB;
            operanda0[num_tex] = GL_SRC_ALPHA;
            break;
        case GR_COMBINE_FUNCTION_LOCAL:
            fcta[num_tex] = GL_REPLACE;
            sourcea0[num_tex] = GL_TEXTURE;
            operanda0[num_tex] = GL_SRC_ALPHA;
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER:
            switch(alpha_factor)
            {
            case GR_COMBINE_FACTOR_LOCAL:
                fcta[num_tex] = GL_MODULATE;
                sourcea0[num_tex] = GL_TEXTURE;
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = GL_PREVIOUS_ARB;
                operanda1[num_tex] = GL_SRC_ALPHA;
                break;
            case GR_COMBINE_FACTOR_ONE:
                fcta[num_tex] = GL_REPLACE;
                sourcea0[num_tex] = GL_PREVIOUS_ARB;
                operanda0[num_tex] = GL_SRC_ALPHA;
                break;
            default:
                display_warning("grTextCombine(GR_COMBINE_FUNCTION_SCALE_OTHER) : unknown alpha factor : %x", alpha_factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL:
            switch(alpha_factor)
            {
            case GR_COMBINE_FACTOR_ONE:
                fcta[num_tex] = GL_ADD;
                sourcea0[num_tex] = GL_PREVIOUS_ARB;
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = GL_TEXTURE;
                operanda1[num_tex] = GL_SRC_ALPHA;
                break;
            case GR_COMBINE_FACTOR_DETAIL_FACTOR:
                if (num_tex==1)
                {
                    fct[num_tex-1] = GL_MODULATE;
                    source0[num_tex-1] = GL_TEXTURE;
                    operand0[num_tex-1] = GL_SRC_ALPHA;
                    source1[num_tex-1] = GL_CONSTANT_ARB;
                    operand1[num_tex-1] = GL_SRC_ALPHA;
                    fct[num_tex] = GL_ADD;
                    source0[num_tex] = GL_PREVIOUS_ARB;
                    operand0[num_tex] = GL_SRC_ALPHA;
                    source1[num_tex] = GL_TEXTURE;
                    operand1[num_tex] = GL_SRC_ALPHA;
                    will_need_lambda = 1;
                }
                break;
            default:
                display_warning("grTextCombine(GR_COMBINE_FUNCTION_SCALE_OTHER_ADD_LOCAL) : unknown alpha factor : %x", alpha_factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL:
            switch(alpha_factor)
            {
            case GR_COMBINE_FACTOR_DETAIL_FACTOR:
                fcta[num_tex] = GL_INTERPOLATE_ARB;
                sourcea0[num_tex] = GL_PREVIOUS_ARB;
                operanda0[num_tex] = GL_SRC_ALPHA;
                sourcea1[num_tex] = GL_TEXTURE;
                operanda1[num_tex] = GL_SRC_ALPHA;
                sourcea2[num_tex] = GL_CONSTANT_ARB;
                operanda2[num_tex] = GL_SRC_ALPHA;
                will_need_lambda = 1;
                break;
            default:
                display_warning("grTextCombine(GR_COMBINE_FUNCTION_SCALE_OTHER_MINUS_LOCAL_ADD_LOCAL) : unknown alpha factor : %x", alpha_factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL:
            switch(alpha_factor)
            {
            case GR_COMBINE_FACTOR_DETAIL_FACTOR:
                fcta[num_tex] = GL_MODULATE;
                sourcea0[num_tex] = GL_CONSTANT_ARB;
                operanda0[num_tex] = GL_ONE_MINUS_SRC_ALPHA;
                sourcea1[num_tex] = GL_TEXTURE;
                operanda1[num_tex] = GL_SRC_ALPHA;
                will_need_lambda = 1;
                break;
            default:
                display_warning("grTextCombine(GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL) : unknown alpha factor : %x", alpha_factor);
            }
            break;
        case GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL_ALPHA:
            switch(alpha_factor)
            {
            case GR_COMBINE_FACTOR_OTHER_ALPHA:
                fcta[num_tex] = GL_MODULATE;
                sourcea0[num_tex] = GL_PREVIOUS_ARB;
                operanda0[num_tex] = GL_ONE_MINUS_SRC_ALPHA;
                sourcea1[num_tex] = GL_TEXTURE;
                operanda1[num_tex] = GL_SRC_ALPHA;
                break;
            default:
                display_warning("grTextCombine(GR_COMBINE_FUNCTION_SCALE_MINUS_LOCAL_ADD_LOCAL_ALPHA) : unknown alpha factor : %x", alpha_factor);
            }
            break;
        default:
            display_warning("grTextCombine : unknown alpha function : %x", alpha_function);
        }

        if (will_need_lambda != need_lambda[num_tex])
        {
            need_lambda[num_tex] = will_need_lambda;
            if (need_lambda[num_tex])
            {
                int i;
                for (i=0; i<3; i++) lambda_color[num_tex][i] = texture_env_color[i];
                lambda_color[num_tex][3] = lambda;
                glTexEnvfv(GL_TEXTURE_ENV, GL_TEXTURE_ENV_COLOR, lambda_color[num_tex]);
            }
            else
                glTexEnvfv(GL_TEXTURE_ENV, GL_TEXTURE_ENV_COLOR, texture_env_color);
        }
        updateCombiner(num_tex);
        updateCombinera(num_tex);
    }
}

FX_ENTRY void FX_CALL
grAlphaBlendFunction(
                     GrAlphaBlendFnc_t rgb_sf,   GrAlphaBlendFnc_t rgb_df,
                     GrAlphaBlendFnc_t alpha_sf, GrAlphaBlendFnc_t alpha_df
                     )
{
    int sfactorRGB = 0, dfactorRGB = 0, sfactorAlpha = 0, dfactorAlpha = 0;
    LOG("grAlphaBlendFunction(%d,%d,%d,%d)\r\n", rgb_sf, rgb_df, alpha_sf, alpha_df);

    switch(rgb_sf)
    {
    case GR_BLEND_ZERO:
        sfactorRGB = GL_ZERO;
        break;
    case GR_BLEND_SRC_ALPHA:
        sfactorRGB = GL_SRC_ALPHA;
        break;
    case GR_BLEND_ONE:
        sfactorRGB = GL_ONE;
        break;
    case GR_BLEND_ONE_MINUS_SRC_ALPHA:
        sfactorRGB = GL_ONE_MINUS_SRC_ALPHA;
        break;
    default:
        display_warning("grAlphaBlendFunction : rgb_sf = %x", rgb_sf);
    }

    switch(rgb_df)
    {
    case GR_BLEND_ZERO:
        dfactorRGB = GL_ZERO;
        break;
    case GR_BLEND_SRC_ALPHA:
        dfactorRGB = GL_SRC_ALPHA;
        break;
    case GR_BLEND_ONE:
        dfactorRGB = GL_ONE;
        break;
    case GR_BLEND_ONE_MINUS_SRC_ALPHA:
        dfactorRGB = GL_ONE_MINUS_SRC_ALPHA;
        break;
    default:
        display_warning("grAlphaBlendFunction : rgb_df = %x", rgb_df);
    }

    switch(alpha_sf)
    {
    case GR_BLEND_ZERO:
        sfactorAlpha = GL_ZERO;
        break;
    case GR_BLEND_ONE:
        sfactorAlpha = GL_ONE;
        break;
    default:
        display_warning("grAlphaBlendFunction : alpha_sf = %x", alpha_sf);
    }

    switch(alpha_df)
    {
    case GR_BLEND_ZERO:
        dfactorAlpha = GL_ZERO;
        break;
    case GR_BLEND_ONE:
        dfactorAlpha = GL_ONE;
        break;
    default:
        display_warning("grAlphaBlendFunction : alpha_df = %x", alpha_df);
    }
    glEnable(GL_BLEND);
    if (blend_func_separate_support)
        glBlendFuncSeparateEXT(sfactorRGB, dfactorRGB, sfactorAlpha, dfactorAlpha);
    else
        glBlendFunc(sfactorRGB, dfactorRGB);
}

FX_ENTRY void FX_CALL
grAlphaTestReferenceValue( GrAlpha_t value )
{
    LOG("grAlphaTestReferenceValue(%d)\r\n", value);
    alpha_ref = value;
    grAlphaTestFunction(alpha_func);
}

FX_ENTRY void FX_CALL
grAlphaTestFunction( GrCmpFnc_t function )
{
    LOG("grAlphaTestFunction(%d)\r\n", function);
    alpha_func = function;
    switch(function)
    {
    case GR_CMP_GREATER:
        glAlphaFunc(GL_GREATER, alpha_ref/255.0f);
        break;
    case GR_CMP_GEQUAL:
        glAlphaFunc(GL_GEQUAL, alpha_ref/255.0f);
        break;
    case GR_CMP_ALWAYS:
        glAlphaFunc(GL_ALWAYS, alpha_ref/255.0f);
        glDisable(GL_ALPHA_TEST);
        return;
        break;
    default:
        display_warning("grAlphaTestFunction : unknown function : %x", function);
    }
    glEnable(GL_ALPHA_TEST);
}

// fog

FX_ENTRY void FX_CALL 
grFogMode( GrFogMode_t mode )
{
    LOG("grFogMode(%d)\r\n", mode);
    switch(mode)
    {
    case GR_FOG_DISABLE:
        glDisable(GL_FOG);
        fog_enabled = 0;
        break;
    case GR_FOG_WITH_TABLE_ON_Q:
        glEnable(GL_FOG);
        glFogi(GL_FOG_COORDINATE_SOURCE_EXT, GL_FOG_COORDINATE_EXT);
        fog_enabled = 1;
        break;
    case GR_FOG_WITH_TABLE_ON_FOGCOORD_EXT:
        glEnable(GL_FOG);
        glFogi(GL_FOG_COORDINATE_SOURCE_EXT, GL_FOG_COORDINATE_EXT);
        fog_enabled = 2;
        break;
    default:
        display_warning("grFogMode : unknown mode : %x", mode);
    }
    if(glsl_support) need_to_compile = 1;
}

FX_ENTRY float FX_CALL
guFogTableIndexToW( int i )
{
    LOG("guFogTableIndexToW(%d)\r\n", i);
    return (float)(pow(2.0, 3.0+(double)(i>>2)) / (8-(i&3)));
}

FX_ENTRY void FX_CALL
guFogGenerateLinear(GrFog_t *fogtable,
                    float nearZ, float farZ )
{
    LOG("guFogGenerateLinear(%f,%f)\r\n", nearZ, farZ);
    if(!glsl_support)
    {
        glFogi(GL_FOG_MODE, GL_LINEAR);
        glFogi(GL_FOG_COORDINATE_SOURCE_EXT, GL_FOG_COORDINATE_EXT);
        glFogf(GL_FOG_START, nearZ /*/ 256.0f*/);
        glFogf(GL_FOG_END, farZ /*/ 256.0f*/);
    }
    else
    {
        /*int near_location;
        int far_location;

        nearF = nearZ / 256.0f;
        farF = farF / 256.0f;

        near_location = glGetUniformLocationARB(program_object, "near");
        glUniform1fARB(near_location, nearF);

        far_location = glGetUniformLocationARB(program_object, "far");
        glUniform1fARB(far_location, farF);*/

        glFogi(GL_FOG_MODE, GL_LINEAR);
        glFogi(GL_FOG_COORDINATE_SOURCE_EXT, GL_FOG_COORDINATE_EXT);
        glFogf(GL_FOG_START, nearZ / 255.0f);
        glFogf(GL_FOG_END, farZ / 255.0f);
    }
}

FX_ENTRY void FX_CALL 
grFogTable( const GrFog_t ft[] )
{
    LOG("grFogTable()\r\n");
}

FX_ENTRY void FX_CALL 
grFogColorValue( GrColor_t fogcolor )
{
    float color[4];
    LOG("grFogColorValue(%x)\r\n", fogcolor);

    switch(lfb_color_fmt)
    {
    case GR_COLORFORMAT_ARGB:
        color[3] = ((fogcolor >> 24) & 0xFF) / 255.0f;
        color[0] = ((fogcolor >> 16) & 0xFF) / 255.0f;
        color[1] = ((fogcolor >>  8) & 0xFF) / 255.0f;
        color[2] = (fogcolor & 0xFF) / 255.0f;
        break;
    case GR_COLORFORMAT_RGBA:
        color[0] = ((fogcolor >> 24) & 0xFF) / 255.0f;
        color[1] = ((fogcolor >> 16) & 0xFF) / 255.0f;
        color[2] = ((fogcolor >>  8) & 0xFF) / 255.0f;
        color[3] = (fogcolor & 0xFF) / 255.0f;
        break;
    default:
        display_warning("grFogColorValue: unknown color format : %x", lfb_color_fmt);
    }

    glFogfv(GL_FOG_COLOR, color); 
}

// chroma

FX_ENTRY void FX_CALL 
grChromakeyMode( GrChromakeyMode_t mode )
{
    LOG("grChromakeyMode(%d)\r\n", mode);
    switch(mode)
    {
    case GR_CHROMAKEY_DISABLE:
        chroma_enabled = 0;
        break;
    case GR_CHROMAKEY_ENABLE:
        if(!glsl_support) display_warning("grChromakeyMode : unknown mode : %x", mode);
        else chroma_enabled = 1;
        break;
    default:
        display_warning("grChromakeyMode : unknown mode : %x", mode);
    }
    if(glsl_support) need_to_compile = 1;
}

FX_ENTRY void FX_CALL 
grChromakeyValue( GrColor_t value )
{
    LOG("grChromakeyValue(%x)\r\n", value);
    if(!glsl_support)
        display_warning("grChromakeyValue");
    else
    {
        int chroma_color_location;

        switch(lfb_color_fmt)
        {
        case GR_COLORFORMAT_ARGB:
            chroma_color[3] = 1.0;//((value >> 24) & 0xFF) / 255.0f;
            chroma_color[0] = ((value >> 16) & 0xFF) / 255.0f;
            chroma_color[1] = ((value >>  8) & 0xFF) / 255.0f;
            chroma_color[2] = (value & 0xFF) / 255.0f;
            break;
        case GR_COLORFORMAT_RGBA:
            chroma_color[0] = ((value >> 24) & 0xFF) / 255.0f;
            chroma_color[1] = ((value >> 16) & 0xFF) / 255.0f;
            chroma_color[2] = ((value >>  8) & 0xFF) / 255.0f;
            chroma_color[3] = 1.0;//(value & 0xFF) / 255.0f;
            break;
        default:
            display_warning("grChromakeyValue: unknown color format : %x", lfb_color_fmt);
        }

        
        chroma_color_location = glGetUniformLocationARB(program_object, "chroma_color");
        glUniform4fARB(chroma_color_location, chroma_color[0], chroma_color[1],
                                              chroma_color[2], chroma_color[3]);
    }
}

static void setPattern()
{
    int i;
    GLubyte stip[32*4];
    for(i=0; i<32; i++)
    {
        unsigned int val = (rand() << 17) | ((rand() & 1) << 16) | (rand() << 1) | (rand() & 1);
        stip[i*4+0] = (val >> 24) & 0xFF;
        stip[i*4+1] = (val >> 16) & 0xFF;
        stip[i*4+2] = (val >> 8) & 0xFF;
        stip[i*4+3] = val & 0xFF;
    }
    if(!glsl_support) glPolygonStipple(stip);
    else
    {
        GLubyte texture[32*32*4];
        for(i=0; i<32; i++)
        {
            int j;
            for(j=0; j<4; j++)
            {
                texture[(i*32+j*8+0)*4+3] = ((stip[i*4+j] >> 7) & 1) ? 255 : 0;
                texture[(i*32+j*8+1)*4+3] = ((stip[i*4+j] >> 6) & 1) ? 255 : 0;
                texture[(i*32+j*8+2)*4+3] = ((stip[i*4+j] >> 5) & 1) ? 255 : 0;
                texture[(i*32+j*8+3)*4+3] = ((stip[i*4+j] >> 4) & 1) ? 255 : 0;
                texture[(i*32+j*8+4)*4+3] = ((stip[i*4+j] >> 3) & 1) ? 255 : 0;
                texture[(i*32+j*8+5)*4+3] = ((stip[i*4+j] >> 2) & 1) ? 255 : 0;
                texture[(i*32+j*8+6)*4+3] = ((stip[i*4+j] >> 1) & 1) ? 255 : 0;
                texture[(i*32+j*8+7)*4+3] = ((stip[i*4+j] >> 0) & 1) ? 255 : 0;
            }
        }
        glActiveTextureARB(GL_TEXTURE2_ARB);
        glEnable(GL_TEXTURE_2D);
        glBindTexture(GL_TEXTURE_2D, 33*1024*1024);
        glTexImage2D(GL_TEXTURE_2D, 0, 4, 32, 32, 0, GL_RGBA, GL_UNSIGNED_BYTE, texture);
        glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
        glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
        glDisable(GL_TEXTURE_2D);
    }
}

FX_ENTRY void FX_CALL
grStipplePattern(
            GrStipplePattern_t stipple)
{
    LOG("grStipplePattern(%x)\r\n", stipple);
    srand(stipple);
    setPattern();
}

int getDisableDitheredAlpha();

FX_ENTRY void FX_CALL
grStippleMode( GrStippleMode_t mode )
{
    LOG("grStippleMode(%d)\r\n", mode);
    if(getDisableDitheredAlpha()) return;
    switch(mode)
    {
    case GR_STIPPLE_DISABLE:
        if(!glsl_support) glDisable(GL_POLYGON_STIPPLE);
        else
        {
            dither_enabled = 0;
            glActiveTextureARB(GL_TEXTURE2_ARB);
            glDisable(GL_TEXTURE_2D);
        }
        break;
    case GR_STIPPLE_PATTERN:
        setPattern();
        if(!glsl_support) glEnable(GL_POLYGON_STIPPLE);
        else
        {
            dither_enabled = 1;
            glActiveTextureARB(GL_TEXTURE2_ARB);
            glEnable(GL_TEXTURE_2D);
        }
        break;
    case GR_STIPPLE_ROTATE:
        setPattern();
        if(!glsl_support) glEnable(GL_POLYGON_STIPPLE);
        else
        {
            dither_enabled = 1;
            glActiveTextureARB(GL_TEXTURE2_ARB);
            glEnable(GL_TEXTURE_2D);
        }
        break;
    default:
        display_warning("grStippleMode:%x", mode);
    }
    if(glsl_support) need_to_compile = 1;
}

FX_ENTRY void FX_CALL 
grColorCombineExt(GrCCUColor_t a, GrCombineMode_t a_mode,
                  GrCCUColor_t b, GrCombineMode_t b_mode,
                  GrCCUColor_t c, FxBool c_invert,
                  GrCCUColor_t d, FxBool d_invert,
                  FxU32 shift, FxBool invert)
{
    LOG("grColorCombineExt(%d, %d, %d, %d, %d, %d, %d, %d, %d, %d)\r\n", a, a_mode, b, b_mode, c, c_invert, d, d_invert, shift, invert);
    if (invert) display_warning("grColorCombineExt : inverted result");
    if (shift) display_warning("grColorCombineExt : shift = %d", shift);

    color_combiner_key = 0x80000000 | (a & 0x1F) | ((a_mode & 3) << 5) | 
                            ((b & 0x1F) << 7) | ((b_mode & 3) << 12) |
                            ((c & 0x1F) << 14) | ((c_invert & 1) << 19) |
                            ((d & 0x1F) << 20) | ((d_invert & 1) << 25);
    c_combiner_ext = 1;
    strcpy(fragment_shader_color_combiner, "");

    switch(a)
    {
    case GR_CMBX_ZERO:
        strcat(fragment_shader_color_combiner, "vec4 cs_a = vec4(0.0); \n");
        break;
    case GR_CMBX_TEXTURE_ALPHA:
        strcat(fragment_shader_color_combiner, "vec4 cs_a = vec4(ctexture1.a); \n");
        break;
    case GR_CMBX_CONSTANT_ALPHA:
        strcat(fragment_shader_color_combiner, "vec4 cs_a = vec4(constant_color.a); \n");
        break;
    case GR_CMBX_CONSTANT_COLOR:
        strcat(fragment_shader_color_combiner, "vec4 cs_a = constant_color; \n");
        break;
    case GR_CMBX_ITALPHA:
        strcat(fragment_shader_color_combiner, "vec4 cs_a = vec4(gl_Color.a); \n");
        break;
    case GR_CMBX_ITRGB:
        strcat(fragment_shader_color_combiner, "vec4 cs_a = gl_Color; \n");
        break;
    case GR_CMBX_TEXTURE_RGB:
        strcat(fragment_shader_color_combiner, "vec4 cs_a = ctexture1; \n");
        break;
    default:
        display_warning("grColorCombineExt : a = %x", a);
        strcat(fragment_shader_color_combiner, "vec4 cs_a = vec4(0.0); \n");
    }

    switch(a_mode)
    {
    case GR_FUNC_MODE_ZERO:
        strcat(fragment_shader_color_combiner, "vec4 c_a = vec4(0.0); \n");
        break;
    case GR_FUNC_MODE_X:
        strcat(fragment_shader_color_combiner, "vec4 c_a = cs_a; \n");
        break;
    case GR_FUNC_MODE_ONE_MINUS_X:
        strcat(fragment_shader_color_combiner, "vec4 c_a = vec4(1.0) - cs_a; \n");
        break;
    case GR_FUNC_MODE_NEGATIVE_X:
        strcat(fragment_shader_color_combiner, "vec4 c_a = -cs_a; \n");
        break;
    default:
        display_warning("grColorCombineExt : a_mode = %x", a_mode);
        strcat(fragment_shader_color_combiner, "vec4 c_a = vec4(0.0); \n");
    }

    switch(b)
    {
    case GR_CMBX_ZERO:
        strcat(fragment_shader_color_combiner, "vec4 cs_b = vec4(0.0); \n");
        break;
    case GR_CMBX_TEXTURE_ALPHA:
        strcat(fragment_shader_color_combiner, "vec4 cs_b = vec4(ctexture1.a); \n");
        break;
    case GR_CMBX_CONSTANT_ALPHA:
        strcat(fragment_shader_color_combiner, "vec4 cs_b = vec4(constant_color.a); \n");
        break;
    case GR_CMBX_CONSTANT_COLOR:
        strcat(fragment_shader_color_combiner, "vec4 cs_b = constant_color; \n");
        break;
    case GR_CMBX_ITALPHA:
        strcat(fragment_shader_color_combiner, "vec4 cs_b = vec4(gl_Color.a); \n");
        break;
    case GR_CMBX_ITRGB:
        strcat(fragment_shader_color_combiner, "vec4 cs_b = gl_Color; \n");
        break;
    case GR_CMBX_TEXTURE_RGB:
        strcat(fragment_shader_color_combiner, "vec4 cs_b = ctexture1; \n");
        break;
    default:
        display_warning("grColorCombineExt : b = %x", b);
        strcat(fragment_shader_color_combiner, "vec4 cs_b = vec4(0.0); \n");
    }

    switch(b_mode)
    {
    case GR_FUNC_MODE_ZERO:
        strcat(fragment_shader_color_combiner, "vec4 c_b = vec4(0.0); \n");
        break;
    case GR_FUNC_MODE_X:
        strcat(fragment_shader_color_combiner, "vec4 c_b = cs_b; \n");
        break;
    case GR_FUNC_MODE_ONE_MINUS_X:
        strcat(fragment_shader_color_combiner, "vec4 c_b = vec4(1.0) - cs_b; \n");
        break;
    case GR_FUNC_MODE_NEGATIVE_X:
        strcat(fragment_shader_color_combiner, "vec4 c_b = -cs_b; \n");
        break;
    default:
        display_warning("grColorCombineExt : b_mode = %x", b_mode);
        strcat(fragment_shader_color_combiner, "vec4 c_b = vec4(0.0); \n");
    }

    switch(c)
    {
    case GR_CMBX_ZERO:
        strcat(fragment_shader_color_combiner, "vec4 c_c = vec4(0.0); \n");
        break;
    case GR_CMBX_TEXTURE_ALPHA:
        strcat(fragment_shader_color_combiner, "vec4 c_c = vec4(ctexture1.a); \n");
        break;
    case GR_CMBX_ALOCAL:
        strcat(fragment_shader_color_combiner, "vec4 c_c = vec4(c_b.a); \n");
        break;
    case GR_CMBX_AOTHER:
        strcat(fragment_shader_color_combiner, "vec4 c_c = vec4(c_a.a); \n");
        break;
    case GR_CMBX_B:
        strcat(fragment_shader_color_combiner, "vec4 c_c = cs_b; \n");
        break;
    case GR_CMBX_CONSTANT_ALPHA:
        strcat(fragment_shader_color_combiner, "vec4 c_c = vec4(constant_color.a); \n");
        break;
    case GR_CMBX_CONSTANT_COLOR:
        strcat(fragment_shader_color_combiner, "vec4 c_c = constant_color; \n");
        break;
    case GR_CMBX_ITALPHA:
        strcat(fragment_shader_color_combiner, "vec4 c_c = vec4(gl_Color.a); \n");
        break;
    case GR_CMBX_ITRGB:
        strcat(fragment_shader_color_combiner, "vec4 c_c = gl_Color; \n");
        break;
    case GR_CMBX_TEXTURE_RGB:
        strcat(fragment_shader_color_combiner, "vec4 c_c = ctexture1; \n");
        break;
    default:
        display_warning("grColorCombineExt : c = %x", c);
        strcat(fragment_shader_color_combiner, "vec4 c_c = vec4(0.0); \n");
    }

    if(c_invert)
        strcat(fragment_shader_color_combiner, "c_c = vec4(1.0) - c_c; \n");

    switch(d)
    {
    case GR_CMBX_ZERO:
        strcat(fragment_shader_color_combiner, "vec4 c_d = vec4(0.0); \n");
        break;
    case GR_CMBX_ALOCAL:
        strcat(fragment_shader_color_combiner, "vec4 c_d = vec4(c_b.a); \n");
        break;
    case GR_CMBX_B:
        strcat(fragment_shader_color_combiner, "vec4 c_d = cs_b; \n");
        break;
    case GR_CMBX_TEXTURE_RGB:
        strcat(fragment_shader_color_combiner, "vec4 c_d = ctexture1; \n");
        break;
    case GR_CMBX_ITRGB:
        strcat(fragment_shader_color_combiner, "vec4 c_d = gl_Color; \n");
        break;
    default:
        display_warning("grColorCombineExt : d = %x", d);
        strcat(fragment_shader_color_combiner, "vec4 c_d = vec4(0.0); \n");
    }

    if(d_invert)
        strcat(fragment_shader_color_combiner, "c_d = vec4(1.0) - c_d; \n");

    strcat(fragment_shader_color_combiner, "gl_FragColor = (c_a + c_b) * c_c + c_d; \n");
    
    need_to_compile = 1;
}

FX_ENTRY void FX_CALL
grAlphaCombineExt(GrACUColor_t a, GrCombineMode_t a_mode,
                  GrACUColor_t b, GrCombineMode_t b_mode,
                  GrACUColor_t c, FxBool c_invert,
                  GrACUColor_t d, FxBool d_invert,
                  FxU32 shift, FxBool invert)
{
    LOG("grAlphaCombineExt(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)\r\n", a, a_mode, b, b_mode, c, c_invert, d, d_invert, shift, invert);
    if (invert) display_warning("grAlphaCombineExt : inverted result");
    if (shift) display_warning("grAlphaCombineExt : shift = %d", shift);

    alpha_combiner_key = 0x80000000 | (a & 0x1F) | ((a_mode & 3) << 5) | 
                            ((b & 0x1F) << 7) | ((b_mode & 3) << 12) |
                            ((c & 0x1F) << 14) | ((c_invert & 1) << 19) |
                            ((d & 0x1F) << 20) | ((d_invert & 1) << 25);
    a_combiner_ext = 1;
    strcpy(fragment_shader_alpha_combiner, "");

    switch(a)
    {
    case GR_CMBX_ZERO:
        strcat(fragment_shader_alpha_combiner, "float as_a = 0.0; \n");
        break;
    case GR_CMBX_TEXTURE_ALPHA:
        strcat(fragment_shader_alpha_combiner, "float as_a = ctexture1.a; \n");
        break;
    case GR_CMBX_CONSTANT_ALPHA:
        strcat(fragment_shader_alpha_combiner, "float as_a = constant_color.a; \n");
        break;
    case GR_CMBX_ITALPHA:
        strcat(fragment_shader_alpha_combiner, "float as_a = gl_Color.a; \n");
        break;
    default:
        display_warning("grAlphaCombineExt : a = %x", a);
        strcat(fragment_shader_alpha_combiner, "float as_a = 0.0; \n");
    }

    switch(a_mode)
    {
    case GR_FUNC_MODE_ZERO:
        strcat(fragment_shader_alpha_combiner, "float a_a = 0.0; \n");
        break;
    case GR_FUNC_MODE_X:
        strcat(fragment_shader_alpha_combiner, "float a_a = as_a; \n");
        break;
    case GR_FUNC_MODE_ONE_MINUS_X:
        strcat(fragment_shader_alpha_combiner, "float a_a = 1.0 - as_a; \n");
        break;
    case GR_FUNC_MODE_NEGATIVE_X:
        strcat(fragment_shader_alpha_combiner, "float a_a = -as_a; \n");
        break;
    default:
        display_warning("grAlphaCombineExt : a_mode = %x", a_mode);
        strcat(fragment_shader_alpha_combiner, "float a_a = 0.0; \n");
    }

    switch(b)
    {
    case GR_CMBX_ZERO:
        strcat(fragment_shader_alpha_combiner, "float as_b = 0.0; \n");
        break;
    case GR_CMBX_TEXTURE_ALPHA:
        strcat(fragment_shader_alpha_combiner, "float as_b = ctexture1.a; \n");
        break;
    case GR_CMBX_CONSTANT_ALPHA:
        strcat(fragment_shader_alpha_combiner, "float as_b = constant_color.a; \n");
        break;
    case GR_CMBX_ITALPHA:
        strcat(fragment_shader_alpha_combiner, "float as_b = gl_Color.a; \n");
        break;
    default:
        display_warning("grAlphaCombineExt : b = %x", b);
        strcat(fragment_shader_alpha_combiner, "float as_b = 0.0; \n");
    }

    switch(b_mode)
    {
    case GR_FUNC_MODE_ZERO:
        strcat(fragment_shader_alpha_combiner, "float a_b = 0.0; \n");
        break;
    case GR_FUNC_MODE_X:
        strcat(fragment_shader_alpha_combiner, "float a_b = as_b; \n");
        break;
    case GR_FUNC_MODE_ONE_MINUS_X:
        strcat(fragment_shader_alpha_combiner, "float a_b = 1.0 - as_b; \n");
        break;
    case GR_FUNC_MODE_NEGATIVE_X:
        strcat(fragment_shader_alpha_combiner, "float a_b = -as_b; \n");
        break;
    default:
        display_warning("grAlphaCombineExt : b_mode = %x", b_mode);
        strcat(fragment_shader_alpha_combiner, "float a_b = 0.0; \n");
    }

    switch(c)
    {
    case GR_CMBX_ZERO:
        strcat(fragment_shader_alpha_combiner, "float a_c = 0.0; \n");
        break;
    case GR_CMBX_TEXTURE_ALPHA:
        strcat(fragment_shader_alpha_combiner, "float a_c = ctexture1.a; \n");
        break;
    case GR_CMBX_ALOCAL:
        strcat(fragment_shader_alpha_combiner, "float a_c = as_b; \n");
        break;
    case GR_CMBX_AOTHER:
        strcat(fragment_shader_alpha_combiner, "float a_c = as_a; \n");
        break;
    case GR_CMBX_B:
        strcat(fragment_shader_alpha_combiner, "float a_c = as_b; \n");
        break;
    case GR_CMBX_CONSTANT_ALPHA:
        strcat(fragment_shader_alpha_combiner, "float a_c = constant_color.a; \n");
        break;
    case GR_CMBX_ITALPHA:
        strcat(fragment_shader_alpha_combiner, "float a_c = gl_Color.a; \n");
        break;
    default:
        display_warning("grAlphaCombineExt : c = %x", c);
        strcat(fragment_shader_alpha_combiner, "float a_c = 0.0; \n");
    }

    if(c_invert)
        strcat(fragment_shader_alpha_combiner, "a_c = 1.0 - a_c; \n");

    switch(d)
    {
    case GR_CMBX_ZERO:
        strcat(fragment_shader_alpha_combiner, "float a_d = 0.0; \n");
        break;
    case GR_CMBX_TEXTURE_ALPHA:
        strcat(fragment_shader_alpha_combiner, "float a_d = ctexture1.a; \n");
        break;
    case GR_CMBX_ALOCAL:
        strcat(fragment_shader_alpha_combiner, "float a_d = as_b; \n");
        break;
    case GR_CMBX_B:
        strcat(fragment_shader_alpha_combiner, "float a_d = as_b; \n");
        break;
    default:
        display_warning("grAlphaCombineExt : d = %x", d);
        strcat(fragment_shader_alpha_combiner, "float a_d = 0.0; \n");
    }

    if(d_invert)
        strcat(fragment_shader_alpha_combiner, "a_d = 1.0 - a_d; \n");

    strcat(fragment_shader_alpha_combiner, "gl_FragColor.a = (a_a + a_b) * a_c + a_d; \n");
    
    need_to_compile = 1;
}

FX_ENTRY void FX_CALL 
grTexColorCombineExt(GrChipID_t       tmu,
                     GrTCCUColor_t a, GrCombineMode_t a_mode,
                     GrTCCUColor_t b, GrCombineMode_t b_mode,
                     GrTCCUColor_t c, FxBool c_invert,
                     GrTCCUColor_t d, FxBool d_invert,
                     FxU32 shift, FxBool invert)
{
    int num_tex;
    LOG("grTexColorCombineExt(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)\r\n", tmu, a, a_mode, b, b_mode, c, c_invert, d, d_invert, shift, invert);

    if (invert) display_warning("grTexColorCombineExt : inverted result");
    if (shift) display_warning("grTexColorCombineExt : shift = %d", shift);

    if (tmu == GR_TMU0) num_tex = 1;
    else num_tex = 0;

    if(num_tex == 0)
    {
        texture0_combiner_key = 0x80000000 | (a & 0x1F) | ((a_mode & 3) << 5) | 
                                ((b & 0x1F) << 7) | ((b_mode & 3) << 12) |
                                ((c & 0x1F) << 14) | ((c_invert & 1) << 19) |
                                ((d & 0x1F) << 20) | ((d_invert & 1) << 25);
        tex0_combiner_ext = 1;
        strcpy(fragment_shader_texture0, "");
    }
    else
    {
        texture1_combiner_key = 0x80000000 | (a & 0x1F) | ((a_mode & 3) << 5) | 
                                ((b & 0x1F) << 7) | ((b_mode & 3) << 12) |
                                ((c & 0x1F) << 14) | ((c_invert & 1) << 19) |
                                ((d & 0x1F) << 20) | ((d_invert & 1) << 25);
        tex1_combiner_ext = 1;
        strcpy(fragment_shader_texture1, "");
    }

    switch(a)
    {
    case GR_CMBX_ZERO:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_a = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_a = vec4(0.0); \n");
        break;
    case GR_CMBX_ITALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_a = vec4(gl_Color.a); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_a = vec4(gl_Color.a); \n");
        break;
    case GR_CMBX_ITRGB:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_a = gl_Color; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_a = gl_Color; \n");
        break;
    case GR_CMBX_LOCAL_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_a = vec4(readtex0.a); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_a = vec4(readtex1.a); \n");
        break;
    case GR_CMBX_LOCAL_TEXTURE_RGB:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_a = readtex0; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_a = readtex1; \n");
        break;
    case GR_CMBX_OTHER_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_a = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_a = vec4(ctexture0.a); \n");
        break;
    case GR_CMBX_OTHER_TEXTURE_RGB:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_a = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_a = ctexture0; \n");
        break;
    case GR_CMBX_TMU_CCOLOR:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_a = ccolor0; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_a = ccolor1; \n");
        break;
    case GR_CMBX_TMU_CALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_a = vec4(ccolor0.a); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_a = vec4(ccolor1.a); \n");
        break;
    default:
        display_warning("grTexColorCombineExt : a = %x", a);
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_a = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_a = vec4(0.0); \n");
    }

    switch(a_mode)
    {
    case GR_FUNC_MODE_ZERO:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_a = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_a = vec4(0.0); \n");
        break;
    case GR_FUNC_MODE_X:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_a = ctex0s_a; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_a = ctex1s_a; \n");
        break;
    case GR_FUNC_MODE_ONE_MINUS_X:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_a = vec4(1.0) - ctex0s_a; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_a = vec4(1.0) - ctex1s_a; \n");
        break;
    case GR_FUNC_MODE_NEGATIVE_X:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_a = -ctex0s_a; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_a = -ctex1s_a; \n");
        break;
    default:
        display_warning("grTexColorCombineExt : a_mode = %x", a_mode);
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_a = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_a = vec4(0.0); \n");
    }

    switch(b)
    {
    case GR_CMBX_ZERO:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_b = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_b = vec4(0.0); \n");
        break;
    case GR_CMBX_ITALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_b = vec4(gl_Color.a); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_b = vec4(gl_Color.a); \n");
        break;
    case GR_CMBX_ITRGB:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_b = gl_Color; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_b = gl_Color; \n");
        break;
    case GR_CMBX_LOCAL_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_b = vec4(readtex0.a); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_b = vec4(readtex1.a); \n");
        break;
    case GR_CMBX_LOCAL_TEXTURE_RGB:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_b = readtex0; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_b = readtex1; \n");
        break;
    case GR_CMBX_OTHER_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_b = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_b = vec4(ctexture0.a); \n");
        break;
    case GR_CMBX_OTHER_TEXTURE_RGB:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_b = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_b = ctexture0; \n");
        break;
    case GR_CMBX_TMU_CALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_b = vec4(ccolor0.a); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_b = vec4(ccolor1.a); \n");
        break;
    case GR_CMBX_TMU_CCOLOR:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_b = ccolor0; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_b = ccolor1; \n");
        break;
    default:
        display_warning("grTexColorCombineExt : b = %x", b);
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0s_b = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1s_b = vec4(0.0); \n");
    }

    switch(b_mode)
    {
    case GR_FUNC_MODE_ZERO:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_b = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_b = vec4(0.0); \n");
        break;
    case GR_FUNC_MODE_X:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_b = ctex0s_b; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_b = ctex1s_b; \n");
        break;
    case GR_FUNC_MODE_ONE_MINUS_X:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_b = vec4(1.0) - ctex0s_b; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_b = vec4(1.0) - ctex1s_b; \n");
        break;
    case GR_FUNC_MODE_NEGATIVE_X:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_b = -ctex0s_b; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_b = -ctex1s_b; \n");
        break;
    default:
        display_warning("grTexColorCombineExt : b_mode = %x", b_mode);
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_b = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_b = vec4(0.0); \n");
    }

    switch(c)
    {
    case GR_CMBX_ZERO:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_c = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_c = vec4(0.0); \n");
        break;
    case GR_CMBX_B:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_c = ctex0s_b; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_c = ctex1s_b; \n");
        break;
    case GR_CMBX_DETAIL_FACTOR:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_c = vec4(lambda); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_c = vec4(lambda); \n");
        break;
    case GR_CMBX_ITRGB:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_c = gl_Color; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_c = gl_Color; \n");
        break;
    case GR_CMBX_ITALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_c = vec4(gl_Color.a); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_c = vec4(gl_Color.a); \n");
        break;
    case GR_CMBX_LOCAL_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_c = vec4(readtex0.a); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_c = vec4(readtex1.a); \n");
        break;
    case GR_CMBX_LOCAL_TEXTURE_RGB:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_c = readtex0; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_c = readtex1; \n");
        break;
    case GR_CMBX_OTHER_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_c = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_c = vec4(ctexture0.a); \n");
        break;
    case GR_CMBX_OTHER_TEXTURE_RGB:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_c = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_c = ctexture0; \n");
        break;
    case GR_CMBX_TMU_CALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_c = vec4(ccolor0.a); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_c = vec4(ccolor1.a); \n");
        break;
    case GR_CMBX_TMU_CCOLOR:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_c = ccolor0; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_c = ccolor1; \n");
        break;
    default:
        display_warning("grTexColorCombineExt : c = %x", c);
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_c = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_c = vec4(0.0); \n");
    }

    if(c_invert)
    {
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_c = vec4(1.0) - ctex0_c; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_c = vec4(1.0) - ctex1_c; \n");
    }

    switch(d)
    {
    case GR_CMBX_ZERO:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_d = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_d = vec4(0.0); \n");
        break;
    case GR_CMBX_B:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_d = ctex0s_b; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_d = ctex1s_b; \n");
        break;
    case GR_CMBX_ITRGB:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_d = gl_Color; \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_d = gl_Color; \n");
        break;
    case GR_CMBX_LOCAL_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_d = vec4(readtex0.a); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_d = vec4(readtex1.a); \n");
        break;
    default:
        display_warning("grTexColorCombineExt : d = %x", d);
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "vec4 ctex0_d = vec4(0.0); \n");
        else
            strcat(fragment_shader_texture1, "vec4 ctex1_d = vec4(0.0); \n");
    }

    if(d_invert)
    {
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_d = vec4(1.0) - ctex0_d; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_d = vec4(1.0) - ctex1_d; \n");
    }

    if(num_tex == 0)
        strcat(fragment_shader_texture0, "vec4 ctexture0 = (ctex0_a + ctex0_b) * ctex0_c + ctex0_d; \n");
    else
        strcat(fragment_shader_texture1, "vec4 ctexture1 = (ctex1_a + ctex1_b) * ctex1_c + ctex1_d; \n");
    need_to_compile = 1;
}

FX_ENTRY void FX_CALL 
grTexAlphaCombineExt(GrChipID_t       tmu,
                     GrTACUColor_t a, GrCombineMode_t a_mode,
                     GrTACUColor_t b, GrCombineMode_t b_mode,
                     GrTACUColor_t c, FxBool c_invert,
                     GrTACUColor_t d, FxBool d_invert,
                     FxU32 shift, FxBool invert)
{
    int num_tex;
    LOG("grTexAlphaCombineExt(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)\r\n", tmu, a, a_mode, b, b_mode, c, c_invert, d, d_invert, shift, invert);

    if (invert) display_warning("grTexAlphaCombineExt : inverted result");
    if (shift) display_warning("grTexAlphaCombineExt : shift = %d", shift);

    if (tmu == GR_TMU0) num_tex = 1;
    else num_tex = 0;

    if(num_tex == 0)
    {
        texture0_combinera_key = 0x80000000 | (a & 0x1F) | ((a_mode & 3) << 5) | 
                                ((b & 0x1F) << 7) | ((b_mode & 3) << 12) |
                                ((c & 0x1F) << 14) | ((c_invert & 1) << 19) |
                                ((d & 0x1F) << 20) | ((d_invert & 1) << 25);
    }
    else
    {
        texture1_combinera_key = 0x80000000 | (a & 0x1F) | ((a_mode & 3) << 5) | 
                                ((b & 0x1F) << 7) | ((b_mode & 3) << 12) |
                                ((c & 0x1F) << 14) | ((c_invert & 1) << 19) |
                                ((d & 0x1F) << 20) | ((d_invert & 1) << 25);
    }

    switch(a)
    {
    case GR_CMBX_ITALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0s_a.a = gl_Color.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1s_a.a = gl_Color.a; \n");
        break;
    case GR_CMBX_LOCAL_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0s_a.a = readtex0.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1s_a.a = readtex1.a; \n");
        break;
    case GR_CMBX_OTHER_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0s_a.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1s_a.a = ctexture0.a; \n");
        break;
    case GR_CMBX_TMU_CALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0s_a.a = ccolor0.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1s_a.a = ccolor1.a; \n");
        break;
    default:
        display_warning("grTexAlphaCombineExt : a = %x", a);
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0s_a.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1s_a.a = 0.0; \n");
    }

    switch(a_mode)
    {
    case GR_FUNC_MODE_ZERO:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_a.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_a.a = 0.0; \n");
        break;
    case GR_FUNC_MODE_X:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_a.a = ctex0s_a.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_a.a = ctex1s_a.a; \n");
        break;
    case GR_FUNC_MODE_ONE_MINUS_X:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_a.a = 1.0 - ctex0s_a.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_a.a = 1.0 - ctex1s_a.a; \n");
        break;
    case GR_FUNC_MODE_NEGATIVE_X:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_a.a = -ctex0s_a.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_a.a = -ctex1s_a.a; \n");
        break;
    default:
        display_warning("grTexAlphaCombineExt : a_mode = %x", a_mode);
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_a.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_a.a = 0.0; \n");
    }

    switch(b)
    {
    case GR_CMBX_ITALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0s_b.a = gl_Color.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1s_b.a = gl_Color.a; \n");
        break;
    case GR_CMBX_LOCAL_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0s_b.a = readtex0.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1s_b.a = readtex1.a; \n");
        break;
    case GR_CMBX_OTHER_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0s_b.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1s_b.a = ctexture0.a; \n");
        break;
    case GR_CMBX_TMU_CALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0s_b.a = ccolor0.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1s_b.a = ccolor1.a; \n");
        break;
    default:
        display_warning("grTexAlphaCombineExt : b = %x", b);
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0s_b.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1s_b.a = 0.0; \n");
    }

    switch(b_mode)
    {
    case GR_FUNC_MODE_ZERO:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_b.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_b.a = 0.0; \n");
        break;
    case GR_FUNC_MODE_X:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_b.a = ctex0s_b.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_b.a = ctex1s_b.a; \n");
        break;
    case GR_FUNC_MODE_ONE_MINUS_X:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_b.a = 1.0 - ctex0s_b.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_b.a = 1.0 - ctex1s_b.a; \n");
        break;
    case GR_FUNC_MODE_NEGATIVE_X:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_b.a = -ctex0s_b.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_b.a = -ctex1s_b.a; \n");
        break;
    default:
        display_warning("grTexAlphaCombineExt : b_mode = %x", b_mode);
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_b.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_b.a = 0.0; \n");
    }

    switch(c)
    {
    case GR_CMBX_ZERO:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_c.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_c.a = 0.0; \n");
        break;
    case GR_CMBX_B:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_c.a = ctex0s_b.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_c.a = ctex1s_b.a; \n");
        break;
    case GR_CMBX_DETAIL_FACTOR:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_c.a = lambda; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_c.a = lambda; \n");
        break;
    case GR_CMBX_ITALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_c.a = gl_Color.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_c.a = gl_Color.a; \n");
        break;
    case GR_CMBX_LOCAL_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_c.a = readtex0.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_c.a = readtex1.a; \n");
        break;
    case GR_CMBX_OTHER_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_c.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_c.a = ctexture0.a; \n");
        break;
    case GR_CMBX_TMU_CALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_c.a = ccolor0.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_c.a = ccolor1.a; \n");
        break;
    default:
        display_warning("grTexAlphaCombineExt : c = %x", c);
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_c.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_c.a = 0.0; \n");
    }

    if(c_invert)
    {
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_c.a = 1.0 - ctex0_c.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_c.a = 1.0 - ctex1_c.a; \n");
    }

    switch(d)
    {
    case GR_CMBX_ZERO:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_d.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_d.a = 0.0; \n");
        break;
    case GR_CMBX_B:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_d.a = ctex0s_b.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_d.a = ctex1s_b.a; \n");
        break;
    case GR_CMBX_ITALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_d.a = gl_Color.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_d.a = gl_Color.a; \n");
        break;
    case GR_CMBX_ITRGB:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_d.a = gl_Color.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_d.a = gl_Color.a; \n");
        break;
    case GR_CMBX_LOCAL_TEXTURE_ALPHA:
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_d.a = readtex0.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_d.a = readtex1.a; \n");
        break;
    default:
        display_warning("grTexAlphaCombineExt : d = %x", d);
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_d.a = 0.0; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_d.a = 0.0; \n");
    }

    if(d_invert)
    {
        if(num_tex == 0)
            strcat(fragment_shader_texture0, "ctex0_d.a = 1.0 - ctex0_d.a; \n");
        else
            strcat(fragment_shader_texture1, "ctex1_d.a = 1.0 - ctex1_d.a; \n");
    }

    if(num_tex == 0)
        strcat(fragment_shader_texture0, "ctexture0.a = (ctex0_a.a + ctex0_b.a) * ctex0_c.a + ctex0_d.a; \n");
    else
        strcat(fragment_shader_texture1, "ctexture1.a = (ctex1_a.a + ctex1_b.a) * ctex1_c.a + ctex1_d.a; \n");

    need_to_compile = 1;
}

FX_ENTRY void FX_CALL
grConstantColorValueExt(GrChipID_t    tmu,
                        GrColor_t     value)
{
    int num_tex;
    LOG("grConstantColorValueExt(%d,%d)\r\n", tmu, value);

    if (tmu == GR_TMU0) num_tex = 1;
    else num_tex = 0;

    switch(lfb_color_fmt)
    {
    case GR_COLORFORMAT_ARGB:
        if(num_tex == 0)
        {
            ccolor0[3] = ((value >> 24) & 0xFF) / 255.0f;
            ccolor0[0] = ((value >> 16) & 0xFF) / 255.0f;
            ccolor0[1] = ((value >>  8) & 0xFF) / 255.0f;
            ccolor0[2] = (value & 0xFF) / 255.0f;
        }
        else
        {
            ccolor1[3] = ((value >> 24) & 0xFF) / 255.0f;
            ccolor1[0] = ((value >> 16) & 0xFF) / 255.0f;
            ccolor1[1] = ((value >>  8) & 0xFF) / 255.0f;
            ccolor1[2] = (value & 0xFF) / 255.0f;
        }
        break;
    case GR_COLORFORMAT_RGBA:
        if(num_tex == 0)
        {
            ccolor0[0] = ((value >> 24) & 0xFF) / 255.0f;
            ccolor0[1] = ((value >> 16) & 0xFF) / 255.0f;
            ccolor0[2] = ((value >>  8) & 0xFF) / 255.0f;
            ccolor0[3] = (value & 0xFF) / 255.0f;
        }
        else
        {
            ccolor1[0] = ((value >> 24) & 0xFF) / 255.0f;
            ccolor1[1] = ((value >> 16) & 0xFF) / 255.0f;
            ccolor1[2] = ((value >>  8) & 0xFF) / 255.0f;
            ccolor1[3] = (value & 0xFF) / 255.0f;
        }
        break;
    default:
        display_warning("grConstantColorValue: unknown color format : %x", lfb_color_fmt);
    }

    if(num_tex == 0)
    {
        ccolor0_location = glGetUniformLocationARB(program_object, "ccolor0");
        glUniform4fARB(ccolor0_location, ccolor0[0], ccolor0[1], ccolor0[2], ccolor0[3]);
    }
    else
    {
        ccolor1_location = glGetUniformLocationARB(program_object, "ccolor1");
        glUniform4fARB(ccolor1_location, ccolor1[0], ccolor1[1], ccolor1[2], ccolor1[3]);
    }
}

