static Tcl_ObjCmdProc Gles2_BiCompileShadersCmd;
static Tcl_ObjCmdProc Gles2_BiGetFontInfoCmd;
static Tcl_ObjCmdProc Gles2_BiMakeTextTextureCmd;
static Tcl_ObjCmdProc Gles2_BiPixel2CoordCmd;
static Tcl_ObjCmdProc Gles2_BiColorValue2RGBACmd;
static Tcl_ObjCmdProc Gles2_BiGetElementPositionsCmd;
static Tcl_ObjCmdProc Gles2_BiGetShadowsCmd;
static Tcl_ObjCmdProc Gles2_BiSwapShadersCmd;

/*
 *  Standard list of built-in methods for all objects.
 */
typedef struct BiMethod {
    const char* name;        /* method name */
    const char* usage;       /* string describing usage */

    },
    { "getshadows",
        "",
        "@gles2-builtin-getshadows",
        Gles2_BiGetShadowsCmd,
	0
    },
    { "swapshaders",
        "textureflag",
        "@gles2-builtin-swapshaders",
        Gles2_BiSwapShadersCmd,
	0
    },
};
static int BiMethodListLen = sizeof(BiMethodList)/sizeof(BiMethod);

typedef struct {
    double dark_red;
    double dark_green;
    double dark_blue;

GLuint _colorRenderBuffer;
GLuint framebuffer;
GLuint vertexBuffer;
GLuint indexBuffer;
GLuint _positionSlot;
GLuint _colorSlot;
GLuint _projectionSlot;
GLuint programHandle = -1;
GLuint texName;
GLuint _floorTexture;
GLuint _fishTexture;
GLuint _texCoordSlot;
GLuint _textureUniform;

GLuint vertexShader;
GLuint fragmentShader;
GLuint textureVertexShader;
GLuint textureFragmentShader;

float g_Perspective[16];
float g_Rotate[16];
float g_ModelView[16];
float g_MVP[16];
static Vertex line_vertices[2];
static Vertex triangle_vertices[3];
static TextureVertex texture_triangle_vertices[3];

int compileShaders(int texture_flag)
{
    const char *vertexStr = "/home/arnulf/SOURCES/GLES2/library/SimpleVertex.glsl";
    const char *textureVertexStr = "/home/arnulf/SOURCES/GLES2/library/SimpleTextureVertex.glsl";
    const char *fragmentStr = "/home/arnulf/SOURCES/GLES2/library/SimpleFragment.glsl";
    const char *textureFragmentStr ="/home/arnulf/SOURCES/GLES2/library/SimpleTextureFragment.glsl";





    glGetError();
    if (!texture_flag) {
        if (programHandle != -1) {
            GL_CHECK(glDeleteProgram(programHandle));
	}
        vertexShader = compileShader(GL_VERTEX_SHADER, vertexStr);
        fragmentShader = compileShader(GL_FRAGMENT_SHADER, fragmentStr);
    } else {
        if (programHandle != -1) {
            GL_CHECK(glDeleteProgram(programHandle));
	}
        textureVertexShader = compileShader(GL_VERTEX_SHADER, textureVertexStr);
        textureFragmentShader = compileShader(GL_FRAGMENT_SHADER, textureFragmentStr);
    }

    programHandle = GL_CHECK(glCreateProgram());
    if (!texture_flag) {
        GL_CHECK(glAttachShader(programHandle, vertexShader));

 */
int Gles2_BiGetFontInfoCmd(
    ClientData dummy,        /* not used */
    Tcl_Interp *interp,      /* current interpreter */
    int objc,                /* number of arguments */
    Tcl_Obj *const objv[])   /* argument objects */
{
	Tcl_Obj *listObj;
    int result = TCL_OK;
    int font_size;
    int measure_only;
    Gles2WidgetImage wgt;
    Gles2WidgetImage *wgtPtr;
    RgbaInfo rgba;

fprintf(stderr, "measure_only!%d!\n", measure_only);
    if (Gles2_GetFreeTypeInfo(interp, NULL, Tcl_GetString(objv[2]), font_size,
        &rgba, objv[1], wgtPtr, measure_only) != TCL_OK) {
fprintf(stderr, "Gles2_GetFreeTypeInfo ERROR\n");
        return TCL_ERROR;
    }
fprintf(stderr, "width!%d, height!%d! dataSize!%d!\n", wgtPtr->width, wgtPtr->height, wgtPtr->dataSize);
    listObj = Tcl_NewListObj(0, NULL);
    if (Tcl_ListObjAppendElement(interp, listObj, Tcl_NewIntObj(wgtPtr->width)) != TCL_OK) {
fprintf(stderr, "Gles2_GetFreeTypeInfo could not append width value %d\n", wgtPtr->width);
        return TCL_ERROR;
    }
    if (Tcl_ListObjAppendElement(interp, listObj, Tcl_NewIntObj(wgtPtr->height)) != TCL_OK) {
fprintf(stderr, "Gles2_GetFreeTypeInfo could not append height value %d\n", wgtPtr->height);
        return TCL_ERROR;
    }
    Tcl_SetObjResult(interp, listObj);
    return result;
}

/*
 * ------------------------------------------------------------------------
 *  Gles2_BiMakeTextTextureCmd()
 *

fprintf(stderr, "SHADOWS!%s!\n", Tcl_GetString(obj));
    if (obj == NULL) {
        return TCL_ERROR;
    }
    Tcl_SetObjResult(interp, obj);
    return result;
}

/*
 * ------------------------------------------------------------------------
 *  Gles2_BiSwapShadersCmd()
 *
 *  Invoked to handle the "swapshaders" command
 *  Handles the
 *  following syntax:
 *
 *    swapshaders
 *
 * ------------------------------------------------------------------------
 */
int Gles2_BiSwapShadersCmd(
    ClientData dummy,        /* not used */
    Tcl_Interp *interp,      /* current interpreter */
    int objc,                /* number of arguments */
    Tcl_Obj *const objv[])   /* argument objects */
{
    int result = TCL_OK;

    Gles2ShowArgs(0, "Gles_BiSwapShadersCmd", objc, objv);
    if (objc != 1) {
        Tcl_WrongNumArgs(interp, 1, objv, "");
        return TCL_ERROR;
    }
fprintf(stderr, "swapshaders not yet implemented!!\n");
    return result;
}

        if (CachedFont.fontNamePtr != NULL) {
	    FT_Done_Face(CachedFont.face);
        } else {
	    CachedFont.fontNamePtr = Tcl_NewStringObj("", 0);
	}
        Tcl_SetStringObj(CachedFont.fontNamePtr, fontName, -1);
	CachedFont.fontSize = fontSize;
fontName = "/home/arnulf/SOURCES/GLES2/library/Vera.ttf";
//fontName = "/home/arnulf/SOURCES/TCL/OLD/itcl1/itk/ntk/library/Vera.ttf";
fprintf(stderr, "FONT name!%s!%d!\n", fontName, fontSize);
	result = FT_New_Face(library, fontName, 0, &CachedFont.face);
	if (result == FT_Err_Unknown_File_Format) {
	    Tcl_SetResult(interp, "invalid font file format", TCL_STATIC);
	    return TCL_ERROR;
	}