Large dos2unix commit...

1 files changed, 1308 insertions, 1308 deletions

diff --git a/src/test.cc b/src/test.cc
index 3219004..410cfb2 100644
--- a/src/test.cc
+++ b/src/test.cc
@@ -1,1308 +1,1308 @@
-#include <sys/types.h>
-#define _USE_MATH_DEFINES
-#include <math.h>
-#include <SDL.h>
-#include <vector>
-//#include <lua.h>
-//#include <lauxlib.h>
-//#include <lualib.h>
-#ifdef HAVE_CONFIG_H
-#include "config.h"
-#else
-#endif
-//#include "gettext.h"
-#include <Exceptions.h>
-#include <generic.h>
-#include <Main.h>
-#include <Input.h>
-#include <Output.h>
-#include <Buffer.h>
-//#include <BLua.h>
-//#include <LuaHandle.h>
-#include "glbase.h"
-#include "texture.h"
-#include "glfont.h"
-#include "glwidgets.h"
-#include "engine.h"
-#include "glsprite.h"
-#include "glshape.h"
-#include "glwidgets.h"
-
-#if 1
-
-#define TRTIME 1500
-#define SPIN .50
-#define TILT .20
-
-#define NBSTARS 300
-#define STARSRATE 300.0
-
-#define SPHERE
-
-int zoom = 1;
-
-#define centerx 320
-#define centery 240
-
-struct tdvect {
-    double x, y, z;
-};
-
-std::vector<tdvect> points;
-std::vector<tdvect> ppoints;
-
-#if 0
-static int myprint(lua_State * L) {
-    const char * t = lua_tostring(L, -1);
-
-    Base::printm(M_INFO, "From LUA: %s\n", t);
-
-    return 0;
-}
-
-static int myluaputstar(lua_State * L) {
-    tdvect t;
-
-    t.x = lua_tonumber(L, -3);
-    t.y = lua_tonumber(L, -2);
-    t.z = lua_tonumber(L, -1);
-
-    points.push_back(t);
-
-    return 0;
-}
-
-int myluaerror(lua_State * L) {
-    int n = lua_gettop(L);
-    int i;
-    String t;
-
-    Base::printm(M_ERROR, "Got an LUA error\n");
-    Base::printm(M_ERROR, "Inspecting LUA stack\n");
-
-    if (n == 0) {
-	Base::printm(M_ERROR, "Stack empty\n");
-	return 0;
-    }
-
-    for (i = 1; i <= n; i++) {
-	switch(lua_type(L, i)) {
-	case LUA_TNONE:
-	    t = "Invalid";
-	    break;
-	case LUA_TNIL:
-	    t = "(Nil)";
-	    break;
-	case LUA_TNUMBER:
-	    t.set("(Number) %f", lua_tonumber(L, i));
-	    break;
-	case LUA_TBOOLEAN:
-	    t.set("(Bool)   %s", lua_toboolean(L, i) ? "true" : "false");
-	    break;
-	case LUA_TSTRING:
-	    t.set("(String) %s", lua_tostring(L, i));
-	    break;
-	case LUA_TTABLE:
-	    t.set("(Table)");
-	    break;
-	case LUA_TFUNCTION:
-	    t = "(Function)";
-	    break;
-	default:
-	    t = "Unknown";
-	}
-
-	Base::printm(M_ERROR, String(i) + ": " + t + "\n");
-    }
-
-    return 0;
-
-    getchar();
-}
-#endif
-
-unsigned int swap32(unsigned int w) {
-    return (w >> 24) | ((w >> 8) & 0x0000ff00) | ((w << 8) & 0x00ff0000) | (w << 24);
-}
-
-unsigned int readB32(FILE * f) {
-    unsigned int r;
-    fread(&r, 1, 4, f);
-    return swap32(r);
-}
-
-unsigned short readB16(FILE * f) {
-    unsigned char t[2];
-    fread(t, 1, 2, f);
-    return t[1] | (t[0] << 8);
-}
-
-float tofloat(unsigned int w) {
-    return *((float *) &w);
-}
-
-char * sread(FILE * f) {
-    char temp[256], * p = temp;
-    
-    do {
-	*p = fgetc(f);
-    } while (*(p++));
-    
-    return strdup(temp);
-}
-
-char * pname[16] = {
-    "Unknown (not a float)",
-    "ScalX",
-    "ScalY",
-    "ScalZ",
-    "Unknown (not a float)",
-    "Unknown (not a float)",
-    "TransX",
-    "TransY",
-    "TransZ",
-    "Unknown",
-    "Unknown",
-    "Unknown",
-    "Unknown",
-    "Unknown",
-    "Unknown",
-    "Unknown"
-};
-
-#define OUTPUT stdout
-
-unsigned short entries;
-struct tdvect * mesh;
-
-int bdlload(char * name) {
-    FILE * bdl;
-    int i, j;
-    char sig[9], sec[5], ** bnames;
-    unsigned int length, fpos, namespos, tpos, npos, r;
-    unsigned short * unks;
-    float f;
-    
-    if (!(bdl = fopen(name, "rb")))
-	exit(-1);
-
-    fread(sig, 1, 8, bdl);
-    sig[8] = 0;
-    
-    if (strcmp(sig, "J3D2bdl4")) {
-	fprintf(OUTPUT, "File not bdl.\n");
-	exit(-1);
-    }
-    
-    fprintf(OUTPUT, "Looking for section JNT1...\n");
-    
-    fseek(bdl, 32, SEEK_SET);
-    
-    do {
-	fread(sec, 1, 4, bdl);
-	sec[4] = 0;
-	length = readB32(bdl);
-	fprintf(OUTPUT, "Found section `%s' @ %08x, size %08x\n", sec, ftell(bdl) - 8, length);
-	fseek(bdl, length - 8, SEEK_CUR);
-    } while (strcmp(sec, "JNT1"));
-    
-    fseek(bdl, -length, SEEK_CUR);
-    fpos = ftell(bdl);
-    
-    fprintf(OUTPUT, "Found it at 0x%08x\n", fpos);
-    
-    fseek(bdl, 8, SEEK_CUR);
-    
-    entries = readB16(bdl);
-    if (readB16(bdl) != 0xffff) {
-	fprintf(OUTPUT, "Something's wrong, not found FFFF\n");
-    }
-    if (readB32(bdl) != 0x18) {
-	fprintf(OUTPUT, "Something's wrong, bones not at 0x18, can't go on.\n");
-	exit(-1);
-    }
-    if (readB32(bdl) != (0x18 + entries * 0x40)) {
-	fprintf(OUTPUT, "Something's wrong, bone index not at expected place, can't go on.\n");
-	exit(-1);
-    }
-    
-    namespos = readB32(bdl);
-    
-    fprintf(OUTPUT, "Reading names.\n");
-    
-    bnames = (char **) malloc(entries * sizeof(char *));
-    unks = (unsigned short *) malloc(entries * sizeof(unsigned short));
-    mesh = (struct tdvect *) malloc(entries * sizeof(struct tdvect));
-    
-    fseek(bdl, namespos + fpos + 4, SEEK_SET);
-    
-    for (i = 0; i < entries; i++) {
-	unks[i] = readB16(bdl);
-	npos = readB16(bdl) + fpos + namespos;
-	tpos = ftell(bdl);
-	fseek(bdl, npos, SEEK_SET);
-	bnames[i] = sread(bdl);
-	fseek(bdl, tpos, SEEK_SET);
-    }
-    for (i = 0; i < entries; i++) {
-	fprintf(OUTPUT, "%02x: (%04x) `%s'\n", i, unks[i], bnames[i]);
-    }
-    
-    fprintf(OUTPUT, "Dumping bones\n");
-    
-    fseek(bdl, fpos + 0x18, SEEK_SET);
-    
-    for (i = 0; i < entries; i++) {
-	fprintf(OUTPUT, "Bone #%02x (%s):\n", i, bnames[i]); 
-	for (j = 0; j < 16; j++) {
-	    r = readB32(bdl);
-	    f = tofloat(r);
-	    fprintf(OUTPUT, "%x: %08x - %9.5f - %s\n", j, r, f, pname[j]);
-	    switch(j) {
-	    case 6:
-		mesh[i].x = f;
-		break;
-	    case 7:
-		mesh[i].y = f;
-		break;
-	    case 8:
-		mesh[i].z = f;
-		break;
-	    }
-	}
-    }
-    
-    return 0;
-}
-
-
-CODE_BEGINS
-
-#if 0
-void checkluastack(lua_State * L) {
-    int n = lua_gettop(L);
-    int i, j;
-    String t;
-
-    printm(M_INFO, "Inspecting LUA stack\n");
-
-    if (n == 0) {
-	printm(M_INFO, "Stack empty\n");
-	return;
-    }
-
-    for (i = 1; i <= n; i++) {
-	switch(lua_type(L, i)) {
-	case LUA_TNONE:
-	    t = "Invalid";
-	    break;
-	case LUA_TNIL:
-	    t = "(Nil)";
-	    break;
-	case LUA_TNUMBER:
-	    t.set("(Number) %f", lua_tonumber(L, i));
-	    break;
-	case LUA_TBOOLEAN:
-	    t.set("(Bool)   %s", lua_toboolean(L, i) ? "true" : "false");
-	    break;
-	case LUA_TSTRING:
-	    t.set("(String) %s", lua_tostring(L, i));
-	    break;
-	case LUA_TTABLE:
-	    printm(M_INFO, String(i) + ": (Table) Exploring:\n");
-	    lua_pushnil(L);  /* first key */
-	    j = 0;
-	    while (lua_next(L, -2) != 0) {
-	    /* `key' is at index -2 and `value' at index -1 */
-		printm(M_INFO, "    %s - %s\n", lua_typename(L, lua_type(L, -2)),
-		                                lua_typename(L, lua_type(L, -1)));
-		lua_pop(L, 1);  /* removes `value'; keeps `key' for next iteration */
-	    }
-	    t = "";
-	    break;
-	case LUA_TFUNCTION:
-	    t = "(Function)";
-	    break;
-	default:
-	    t = "Unknown";
-	}
-
-	if (t != "")
-	    printm(M_INFO, String(i) + ": " + t + "\n");
-    }
-}
-#endif
-
-void putstar(double x, double y, double z, mogltk::Sprite * s) {
-    double tx, ty, tz;
-    double spin, tilt;
-
-    spin = (mogltk::engine::mouseX() - centerx) / 80.0;
-    tilt = (mogltk::engine::mouseY() - centery) / 80.0;
-
-    // Spin --> around y
-    
-    tx =  x * cos(spin) + z * sin(spin);
-    tz = -x * sin(spin) + z * cos(spin);
-
-    x = tx;
-    z = tz;
-
-
-    // tilt --> around x
-
-    ty =  y * cos(tilt) + z * sin(tilt);
-    tz = -y * sin(tilt) + z * cos(tilt);
-
-    y = ty;
-    z = tz;
-
-    tdvect t;
-    t.x = x;
-    t.y = y;
-    t.z = z;
-
-//	s->draw(centerx + t.x * zoom * mogltk::engine::mouseZ() - s->GetSX() / 2, centery + t.y * zoom * mogltk::engine::mouseZ() - s->GetSY() / 2);
-    ppoints.push_back(t);
-}
-
-double t;
-
-#ifdef STARSCAPE
-int starsx[NBSTARS];
-int starsy[NBSTARS];
-#endif
-
-#ifdef SPHERE
-double starst[NBSTARS];
-double starso[NBSTARS];
-#endif
-
-//lua_State * L;
-
-void initstars() {
-    int i;
-#ifdef STARSCAPE
-    for (i = 0; i < NBSTARS; i++) {
-	starsx[i] = rand() % 640;
-	starsy[i] = rand() % 480;
-    }
-
-    t = 0;
-#endif
-#ifdef RING
-    t = 0;
-#endif
-#ifdef SPHERE
-    t = 0;
-    for (i = 0; i < NBSTARS; i++) {
-	starst[i] = -(rand() % 3000) / 1000.0;
-	starso[i] = 2 * ((rand() % 1000) / 1000.0) * M_PI;
-    }
-#endif
-#ifdef LUA
-    L = lua_open();
-    luaopen_math(L);
-    lua_pop(L, 1);
-    lua_atpanic(L, myluaerror);
-    luaL_loadfile(L, "particules.lua");
-    lua_call(L, 0, 0);
-    lua_pushstring(L, "putstar");
-    lua_pushcfunction(L, myluaputstar);
-    lua_settable(L, LUA_GLOBALSINDEX);
-    lua_pushstring(L, "print");
-    lua_pushcfunction(L, myprint);
-    lua_settable(L, LUA_GLOBALSINDEX);
-    lua_pushstring(L, "initstars");
-    lua_gettable(L, LUA_GLOBALSINDEX);
-    lua_call(L, 0, 0);
-#endif
-}
-
-void displaystars(mogltk::Sprite * s) {
-    int i;
-    double x, y, z, st;
-    tdvect tv;
-
-#ifdef STARSCAPE    
-    for (i = 0; i < NBSTARS; i++) {
-	s->draw(starsx[i], starsy[i]);
-    }
-#endif
-#ifdef RING
-    for (i = 0; i < NBSTARS; i++) {
-	putstar(cos(t + i * 2 * M_PI / NBSTARS), 0, sin(t + i * 2 * M_PI / NBSTARS), s);
-    }
-#endif
-#ifdef SPHERE
-    for (i = 0; i < NBSTARS; i++) {
-	st = t - starst[i];
-
-	y = st / 3.0;
-
-	x = cos(st * 2 * M_PI + starso[i]) * sin(y * M_PI);
-	z = sin(st * 2 * M_PI + starso[i]) * sin(y * M_PI);
-
-	y = cos(y * M_PI);
-
-	putstar(x, y, z, s);
-    }
-#endif
-#ifdef LUA
-    lua_pushstring(L, "displaystars");
-    lua_gettable(L, LUA_GLOBALSINDEX);
-    lua_call(L, 0, 0);
-
-    for (std::vector<tdvect>::iterator i = points.begin(); i != points.end(); i++) {
-	tv = *i;
-	putstar(tv.x, tv.y, tv.z, s);
-    }
-    points.clear();
-#endif
-#ifdef BDL
-    for (i = 0; i < entries; i++) {
-	putstar(mesh[i].x / 20, mesh[i].y / 20, mesh[i].z / 20, s);
-    }
-#endif
-    while (!ppoints.empty()) {
-	std::vector<tdvect>::iterator m = ppoints.begin();
-	for (std::vector<tdvect>::iterator i = ppoints.begin(); i != ppoints.end(); i++) {
-	    if (i->z > m->z)
-		m = i;
-	}
-	tv = *m;
-	ppoints.erase(m);
-	// Only bare projecting... for now...
-	s->draw(centerx + tv.x * zoom * mogltk::engine::mouseZ() - s->GetSX() / 2, centery + tv.y * zoom * mogltk::engine::mouseZ() - s->GetSY() / 2);
-    }
-}
-
-void incrementstars(double nt) {
-    int i;
-
-#ifdef STARSCAPE
-    while ((t + (1 / STARSRATE)) <= nt) {
-	t += 1 / STARSRATE;
-
-	for (i = 0; i < NBSTARS; i++) {
-	    if ((++starsx[i]) >= 640) {
-		starsx[i] = 0;
-		starsy[i] = rand() % 480;
-	    }
-	}
-    }
-#endif
-#ifdef RING
-    t = nt;
-#endif
-#ifdef SPHERE
-    t = nt;
-
-    for (i = 0; i < NBSTARS; i++) {
-	if ((starst[i] + 3) < t) {
-	    starst[i] += 3.0;
-    	    starso[i] = 2 * ((rand() % 1000) / 1000.0) * M_PI;
-	}
-    }
-#endif
-#ifdef LUA
-    t = nt;
-
-    lua_pushstring(L, "incstars");
-    lua_gettable(L, LUA_GLOBALSINDEX);
-    lua_pushnumber(L, t);
-    lua_call(L, 1, 0);
-#endif
-}
-
-class testkey_t : public mogltk::engine::keyevent {
-  public:
-    virtual void down(SDL_keysym keysym) {
-        if (keysym.sym == SDLK_SPACE && !start_transit) {
-            start_transit = true;
-            transit_time = SDL_GetTicks();
-        } else if (old_handler)
-            old_handler->down(keysym);
-    }
-    virtual void up(SDL_keysym keysym) {
-        if (old_handler)
-            old_handler->up(keysym);
-    }
-    bool start_transit;
-    Uint32 transit_time;
-} * testkey;
-
-void affiche_grille(mogltk::shape * sh, mogltk::texture * tex, int grille[41][31][2]) {
-    int x, y, tx1, tx2, ty1, ty2;
-    static mogltk::ColorP w = WHITE;
-
-    w.Bind();
-    tex->Bind();
-    
-//    sh->box(0, 0, 640, 480, BLACK);
-    for (y = 0; y < 30; y++) {
-        for (x = 0; x < 40; x++) {
-            tx1 = x * 20;
-            ty1 = y * 20;
-            tx2 = x * 20 + 20;
-            ty2 = y * 20 + 20;
-
-#if 1
-            glBegin(GL_TRIANGLE_STRIP);
-            glTexCoord2i(tx1, ty1); glVertex2i(grille[x    ][y    ][0], grille[x    ][y    ][1]);
-            glTexCoord2i(tx2, ty1); glVertex2i(grille[x + 1][y    ][0], grille[x + 1][y    ][1]);
-            glTexCoord2i(tx1, ty2); glVertex2i(grille[x    ][y + 1][0], grille[x    ][y + 1][1]);
-            glTexCoord2i(tx2, ty2); glVertex2i(grille[x + 1][y + 1][0], grille[x + 1][y + 1][1]);
-            glEnd();
-#else
-            sh->line(grille[x    ][y    ][0], grille[x    ][y    ][1],
-                     grille[x + 1][y    ][0], grille[x + 1][y    ][1]);
-            sh->line(grille[x + 1][y    ][0], grille[x + 1][y    ][1],
-                     grille[x + 1][y + 1][0], grille[x + 1][y + 1][1]);
-            sh->line(grille[x + 1][y + 1][0], grille[x + 1][y + 1][1],
-                     grille[x    ][y + 1][0], grille[x    ][y + 1][1]);
-            sh->line(grille[x    ][y + 1][0], grille[x    ][y + 1][1],
-                     grille[x    ][y    ][0], grille[x    ][y    ][1]);
-#endif
-        }
-    }
-}
-
-virtual int startup() throw (GeneralException) {
-    bool flag = false, flag2 = false;
-    mogltk::texture * sshot = 0, * plastex = new mogltk::texture(1024, 512);
-    int x, y, sx1, sx2, sy1, sy2, lastframe, curframe, px, py, lasttick = 0, curtick = 0, oldblend, seconds = 0, newseconds = 0;
-    double t = 0;
-    verbosity = M_INFO;
-    String str;
-    bool got_transit = false;
-    Uint8 * plasma = (Uint8 *) malloc(640 * 480), * pplasma;
-    int grille[41][31][2];
-    double seeds[41][31];
-    double speeds[41][31];
-
-#if 0
-    srand(25);
-    for (y = 0; y < 31; y++) {
-        for (x = 0; x < 41; x++) {
-            seeds[x][y] = 1.2 * (double) (rand() % 10000) / 10000;
-            speeds[x][y] = 2.6 * (double) (rand() % 10000) / 10000;
-        }
-    }
-#endif
-
-    testkey = new testkey_t();
-
-    mogltk::engine::setmouseZ(50);
-
-#if 0
-
-#if 0
-    Lua * l = new Lua();
-    LuaInput::pushconstruct(l);
-    LuaOutput::pushconstruct(l);
-    LuaBuffer::pushconstruct(l);
-    l->open_math();
-    l->declarefunc("print", myprint);
-#if 0
-    l->load(&Input("particules.lua"), false);
-    l->dump(&Output("particules.out"));
-    l->call();
-#else
-    l->load(&Input("particules.out"));
-#endif
-//    l->call("testing");
-    delete l;
-#endif
-
-//    bdlload("cl.bdl");
-
-#endif
-
-    Input pl("plasma.raw");
-    pl.read(plasma, 640 * 480);
-
-    pplasma = (Uint8 *) plastex->GetPixels();
-
-    for (y = 0; y < 480; y++) {
-        for (x = 0; x < 640; x++) {
-            pplasma[((y * 1024) + x) * 4 + 3] = 255 - plasma[(y * 640) + x];
-        }
-    }
-
-    new Archive("datas.paq");
-
-#if 1
-    mogltk::base * gl = new mogltk::glbase();
-    mogltk::shape * sh = new mogltk::glshape();
-    mogltk::font * font = new mogltk::glfont(&Input("font-2.bin"));
-    mogltk::glSprite * s = new mogltk::glSprite(&Input("cursor.rgba"), 25, 25);
-    mogltk::texture * sol = new mogltk::texture(&Input("sol.tex"));
-    mogltk::glSprite * logo = new mogltk::glSprite(&Input("logo.raw"), 165, 124);
-#if 0
-    mogltk::Sprite * p = new mogltk::glSprite(&Input("particule.rgba"), 16, 16);
-    mogltk::glSprite * spr = new mogltk::glSprite(&Input("015_Over-Mind.raw"), 347, 328);
-    mogltk::glSprite * eD1 = new mogltk::glSprite(&Input("elkyaD1.raw"), 53, 100);
-    mogltk::glSprite * eG1 = new mogltk::glSprite(&Input("elkyaG1.raw"), 53, 100);
-    mogltk::glSprite * eM1 = new mogltk::glSprite(&Input("elkyaM1.raw"), 53, 100);
-//    mogltk::glSprite * spr = new mogltk::glSprite(&Input("test.raw"), 200, 200);
-#endif
-    mogltk::widget * w = new mogltk::widgets::Root(sh);
-#else
-    mogltk::base * gl = new mogltk::base();
-    mogltk::shape * sh = new mogltk::shape();
-    mogltk::font * font = new mogltk::font(&Input("font-2.bin"));
-    mogltk::Sprite * s = new mogltk::Sprite(&Input("cursor.rgba"), 25, 25);
-    mogltk::Sprite * p = new mogltk::Sprite(&Input("particule.rgba"), 16, 16);
-    mogltk::Sprite * spr = new mogltk::Sprite(&Input("015_Over-Mind.raw"), 347, 328);
-    mogltk::widget * w = new mogltk::Root(sh);
-#endif
-
-    mogltk::texture * ttex = 0;
-
-    font->setcolor(WHITE);
-    font->setshadow(2);
-#if 0
-    mogltk::rect textrect;
-    mogltk::texture * text = font->printtex(&textrect, 
-        "PixelPawa!\n"
-        "It works!!\n"
-        "I can't believe it!\n"
-    );
-    SDL_SaveBMP(text->GetSurface(), "test-font.bmp");
-    textrect.x = 10;
-    textrect.y = 30;
-#endif
-
-    mogltk::engine::setcursorvisible(true);
-    mogltk::engine::setappactive(true);
-
-#if 0
-    mogltk::texture * mytex = new mogltk::texture(&Input("pattern6.tex"), true);
-
-    Color AlphaBlue(AQUA);
-    AlphaBlue.A = 50;
-
-    mogltk::fill * f = sh->fcircle(320, 240, 50);
-
-    initstars();
-
-    px = 200;
-    py = 350;
-#endif
-#if 0
-    new mogltk::widgets::Button(0, sh,
-        new mogltk::widgets::SmartBox(sh, w, 120, 50, 100, 100, "Test"),
-        12, 30, 50, 20, "Toto");
-#endif
-    new mogltk::widgets::Frame(sh, w, 10, 10, 600, 400);
-    //new mogltk::widgets::MsgBox(sh, w, "Test", "Blablabla\nCeci est un test de la\nclasse MsgBox.");
-
-    class tLabel : public mogltk::widgets::Label {
-      public:
-          tLabel(mogltk::shape * sh, mogltk::widget * father) : Label(sh, father, 250, 200, 16, 16, "I"), tick(0) { set_timed_event(500); }
-        virtual bool process_event(int mx, int my, mogltk::event_t event) {
-            if (Label::process_event(mx, my, event))
-                return true;
-            
-            if (event == mogltk::E_TIMER) {
-                set_timed_event(500);
-                tick = (tick + 1) % 4;
-                switch (tick) {
-                case 0:
-                    caption = "I";
-                    break;
-                case 1:
-                    caption = "/";
-                    break;
-                case 2:
-                    caption = "-";
-                    break;
-                case 3:
-                    caption = "\\";
-                    break;
-                }
-            }
-        }
-      private:
-        int tick;
-    };
-
-    mogltk::widgets::ContextMenu * c, * c2;
-    //c = new mogltk::widgets::ContextMenu(sh, w, 20, 20);
-    mogltk::widgets::Menu * sm;
-
-    new mogltk::widgets::SmartBox(sh, w, 250, 300, 100, 70, "SmartBox");
-    sm = new mogltk::widgets::Menu(sh, w);
-
-    sm->addnode("Toto", 0);
-    sm->addnode("Titi", 0);
-    sm->addnode("Tutu", 0);
-
-#if 0
-    c->addnode("Test", 0);
-    c->addnode("Test2", 0);
-    c->addline();
-    c->addnode("Test3", 0);
-    c->addnode("Test of a long entry", 0);
-
-    c2 = c->createsub("Sub");
-    c2->addnode("A sub", 0);
-    c2->createsub("subsub")->addnode("Toto", 0);
-    c2->SetEnabled(0, false);
-#endif
-
-    c = sm->createsub("Sub Menu");
-    c->addnode("Blah1", 0);
-    c->addnode("Blah2", 0);
-    c->addnode("Blah3", 0);
-    c->addline();
-    c2 = c->createsub("SubBlah");
-    c2->addnode("SubBlah1", 0);
-    c2->addnode("SubBlah2", 0);
-
-    sm->MoveOnTop();
-
-    new tLabel(sh, w);
-
-    w->mainloop();
-
-    while (!mogltk::engine::quitrequested()) {
-#if 0
-        sx1 = 320 + 320 * sin(0.983 * t + 3.15);
-	sx2 = 320 + 320 * sin(0.537 * t + 5.32);
-	sy1 = 240 + 240 * sin(0.692 * t + 8.21);
-	sy2 = 240 + 240 * sin(1.029 * t + 2.42);
-#endif
-
-	gl->Enter2DMode();
-
-#if 1
-        if (got_transit)
-            goto do_transit;
-#endif
-
-#if 0
-	w->fulldraw();
-
-	sh->tbox(mytex, 50, 50, 561, 561, BLACK, RED, LIME, BLUE);
-	//sh->box(400, 100, 450, 150, BLACK, RED, LIME, BLUE);    
-
-	sh->box(5, 5, 150, 80, CORNFLOWERBLUE, DEEPSKYBLUE, MIDNIGHTBLUE, NAVY);
-	mogltk::ColorP::Max.A = 100;
-	//sh->box(5, 5, 400, 300, CORNFLOWERBLUE, DEEPSKYBLUE, MIDNIGHTBLUE, NAVY);
-	mogltk::ColorP::Max.A = 255;
-#if 1
-	font->setshadow(1);
-	font->putcursor(10, 30);
-	mogltk::ColorP::Max.A = sy1 / 2;
-	font->setcolor(Color(sy1 / 2, sy1 / 2, sy1 / 2, sy1 / 2));
-	font->printf(
-	    "PixelPawa!\n"
-	    "It works!!\n"
-	    "I can't believe it!\n"
-	);
-	mogltk::ColorP::Max.A = 255;
-	font->setcolor(WHITE);
-#else
-        sh->tbox(text, textrect.x, textrect.y, textrect.x + textrect.w, textrect.y + textrect.h);
-#endif
-	
-	sh->box3d(50, 150, 150, 200);
-	sh->obox3d(50, 250, 150, 300);
-	sh->window(50, 350, 150, 400, "Titre plus beau ;)");
-	sh->box3d(180, 130, 320, 220);
-	sh->button(200, 150, 300, 200, "Bouton");
-
-	sh->fdraw(f, BLUE);
-	sh->sdraw(f);
-
-        eM1->drawrotate(500, 400, sx1);
-
-        curtick = (SDL_GetTicks() / 250) % 4;
-
-        if (curtick != lasttick) {
-            px -= 10;
-            py += 5;
-
-            if (px < -53)
-                px = 640;
-            if (px > 640)
-                px = -53;
-            if (py > 480)
-                py = -100;
-            lasttick = curtick;
-        }
-
-        switch(curtick) {
-        case 0:
-            eM1->draw(px, py, WHITE, 1, 1);
-            break;
-        case 1:
-            eD1->draw(px, py, WHITE, 1, 1);
-            break;
-        case 2:
-            eM1->draw(px, py, WHITE, 1, 1);
-            break;
-        case 3:
-            eG1->draw(px, py, WHITE, 1, 1);
-            break;
-        }
-	
-	sh->box(MIN(sx1, sx2), MIN(sy1, sy2), MAX(sx1, sx2), MAX(sy1, sy2), AlphaBlue);
-	mogltk::ColorP::Min.A = 200;
-	sh->obox(MIN(sx1, sx2), MIN(sy1, sy2), MAX(sx1, sx2), MAX(sy1, sy2), AlphaBlue);
-	mogltk::ColorP::Min.A = 0;
-
-	p->draw(mogltk::engine::mouseX() - 8, mogltk::engine::mouseY() - 8);
-	sh->line(320, 240, mogltk::engine::mouseX(), mogltk::engine::mouseY());
-
-	mogltk::ColorP::Min.A = 200;
-	p->draw(sx1 - 8, sy1 - 8, AlphaBlue);
-	p->draw(sx2 - 8, sy2 - 8, AlphaBlue);
-
-	displaystars(p);
-	incrementstars(t);
-
-	sh->box(0, 0, 640, 480, CORNFLOWERBLUE, DEEPSKYBLUE, MIDNIGHTBLUE, NAVY);
-
-#endif
-//	sh->box(0, 0, 640, 480, CORNFLOWERBLUE, DEEPSKYBLUE, MIDNIGHTBLUE, NAVY);
-
-        int x, y;
-
-#if 0
-        for (y = 0; y < 31; y++) {
-            for (x = 0; x < 41; x++) {
-                grille[x][y][0] = x * 16 + 8 * sin(t * 6 + (x + y) / 2.0);
-                grille[x][y][1] = y * 16 + 8 * cos(t * 6 + (x + y) / 2.0);
-            }
-        }
-#endif
-        double dis, xdis, ydis, xpos, ypos, norm, tt, tt1;
-
-        t += 48;
-
-        tt = t - (((int) t) / 58) * 58;
-
-        if (tt <= 20) {
-            flag = flag2 = false;
-            for (y = 0; y < 31; y++) {
-                for (x = 0; x < 41; x++) {
-                    xpos = x - 20.5;
-                    ypos = y - 15.5;
-                    norm = sqrt(xpos * xpos + ypos * ypos);
-                    xpos /= norm;
-                    ypos /= norm;
-                    dis = sin(t * 6 - norm);
-                    xdis = dis * sin(xpos);
-                    ydis = dis * sin(ypos);
-                    grille[x][y][0] = (((x * 16 + 16 * xdis) - 320) * 1.08) + 320;
-                    grille[x][y][1] = (((y * 16 + 16 * ydis) - 240) * 1.08) + 240;
-                }
-            }
-
-            affiche_grille(sh, sol, grille);
-            if (tt < 4)
-                sh->box(0, 0, 640, 480, Color(255, 255, 255, 255 * ((4 - tt) / 4)));
-            else if (tt > 16)
-                sh->box(0, 0, 640, 480, Color(0, 0, 0, 255 * ((tt - 16) / 4)));
-        } else if (tt <= 23) {
-            tt -= 20;
-            sh->box(0, 0, 640, 480, BLACK);
-            for (y = 0; y < 31; y++) {
-                for (x = 0; x < 41; x++) {
-                    grille[x][y][0] = ((((x * 16 + 8 * sin(t * 6 + (x + y) / 2.0)) - 320) * 1.08) + 320) * tt / 3;
-                    grille[x][y][1] = ((((y * 16 + 8 * cos(t * 6 + (x + y) / 2.0)) - 200) * 1.08) + 200) * tt / 3;
-                }
-            }
-            affiche_grille(sh, sol, grille);
-        } else if (tt <= 36) {
-            for (y = 0; y < 31; y++) {
-                for (x = 0; x < 41; x++) {
-                    grille[x][y][0] = (((x * 16 + 8 * sin(t * 6 + (x + y) / 2.0)) - 320) * 1.08) + 320;
-                    grille[x][y][1] = (((y * 16 + 8 * cos(t * 6 + (x + y) / 2.0)) - 200) * 1.08) + 200;
-                }
-            }
-            affiche_grille(sh, sol, grille);
-        } else if (tt <= 38) {
-            tt -= 36;
-            if (!flag2) {
-                sshot = gl->GrabTexture();
-                flag2 = true;
-            }
-	    sh->tbox(sshot, 0, 0, 640, 480);
-            if (tt <= 0.1) {
-                sh->box(0, 0, 640, 480, Color(255, 255, 255, 255 * (tt / 0.1)));
-            } else if (tt < 0.5) {
-                tt -= 0.1;
-                sh->box(0, 0, 640, 480, Color(255, 255, 255, 255 * ((0.4 - tt) / 0.4)));
-                sh->box(0, 0, 640, 480, Color(0.3 * 255, 0.2 * 255, 0.3 * 255, 127 * (tt / 0.4)));
-            } else {
-                sh->box(0, 0, 640, 480, Color(0.3 * 255, 0.2 * 255, 0.3 * 255, 127));
-            }
-            for (y = 0; y < 15; y++) {
-                for (x = 0; x < 20; x++) {
-                    sh->obox(x * 32, y * 32, x * 32 + 32, y * 32 + 32, WHITE);
-                }
-            }
-        } else if (tt <= 42) {
-            int xx, yy, tyy;
-            double ttt;
-            tt -= 38;
-            sh->box(0, 0, 640, 480, BLACK);
-            for (y = 14; y >= 0; y--) {
-                for (x = 19; x >= 0; x--) {
-                    double d = (33.0 - x - y) / 16.5;
-                    xx = x * 32;
-                    tyy = y * 32;
-                    if (tt <= d) {
-                        yy = y * 32;
-                    } else {
-                        ttt = tt - d;
-                        yy = y * 32 + ttt * ttt * ttt * 60;
-                    }
-                    sh->tbox(sshot, xx, yy, xx + 32, yy + 32, xx, tyy, xx + 32, tyy + 32);
-                    sh->box(xx, yy, xx + 32, yy + 32, Color(0.3 * 255, 0.2 * 255, 0.3 * 255, 127));
-                    sh->obox(xx, yy, xx + 32, yy + 32, WHITE);
-                }
-            }
-        } else if (tt <= 43) {
-            sh->box(0, 0, 640, 480, BLACK);
-        } else if (tt <= 48) {
-            tt -= 43;
-            sh->tbox(sol, 0, 0, 640, 480, 0, 0, 800, 600);
-            glDisable(GL_BLEND);
-            glEnable(GL_ALPHA_TEST);
-            glAlphaFunc(GL_GREATER, tt / 5);
-            sh->tbox(plastex, 0, 0, 640, 480);
-            glDisable(GL_ALPHA_TEST);
-            glEnable(GL_BLEND);
-        } else if (tt <= 56) {
-            sh->tbox(sol, 0, 0, 640, 480, 0, 0, 800, 600);
-        } else if (tt <= 58) {
-            if (!flag) {
-                if (sshot)
-                    delete sshot;
-                testkey->start_transit = true;
-                testkey->transit_time = SDL_GetTicks();
-                flag = true;
-            } else {
-                glBlendFunc(GL_SRC_ALPHA, GL_ONE);
-                sh->box(0, 0, 640, 480, Color(255, 255, 255, 1));
-                glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-            }
-        }
-
-        logo->draw(10, 10, Color(255, 255, 255, 100));
-
-
-	font->putcursor(530, 460);
-	font->printf("FPS: %.2f\n", mogltk::engine::FPS());
-//	font->printf("mx: %i\n", mogltk::engine::mouseX());
-//	font->printf("my: %i\n", mogltk::engine::mouseY());
-//	font->printf("t: %.2fs\n", SDL_GetTicks() / 1000.0);
-//        mogltk::ColorP::Max.A = 50;
-//	s->draw(mogltk::engine::mouseX() - 6, mogltk::engine::mouseY() - 3, BLACK);
-//        mogltk::ColorP::Max.A = 255;
-//	s->draw(mogltk::engine::mouseX() - 8, mogltk::engine::mouseY() - 6);
-
-do_transit:
-        mogltk::ColorP::Min.A = 0;
-        mogltk::ColorP::Max.A = 255;
-        if (testkey->start_transit) {
-            double t;
-            int x, y;
-            Uint8 * pixels;
-            if (!got_transit) {
-                lastframe = 0;
-                got_transit = true;
-                ttex = gl->GrabTexture();
-                pixels = (Uint8 *) ttex->GetPixels();
-                oldblend = 20;
-#if 1
-                for (y = 0; y < 480; y++) {
-                    for (x = 0; x < 640; x++) {
-#if 0
-                        pixels[(y * 1024 + x) * 4 + 0] ^= 255;
-                        pixels[(y * 1024 + x) * 4 + 1] ^= 255;
-                        pixels[(y * 1024 + x) * 4 + 2] ^= 255;
-#endif
-#if 0
-                        pixels[(y * 1024 + x) * 4 + 3] = plasma[y * 640 + x];
-#endif
-#if 1
-                        pixels[(y * 1024 + x) * 4 + 3] = 30;
-#endif
-#if 0
-                        pixels[(y * 1024 + x) * 4 + 3] = 7;
-#endif
-#if 0
-                        pixels[(y * 1024 + x) * 4 + 3] = 1;
-#endif
-                    }
-                }
-#endif
-            }
-            pixels = (Uint8 *) ttex->GetPixels();
-            t = (double) (SDL_GetTicks() - testkey->transit_time) / TRTIME;
-            curframe = 45 * (SDL_GetTicks() - testkey->transit_time) / TRTIME;
-            if (t >= 1.0) {
-                testkey->start_transit = false;
-            }
-#if 0
-            mogltk::ColorP::Max.A = 255 * (TRTIME - SDL_GetTicks() + testkey->transit_time) / TRTIME;
-            mogltk::ColorP::Min.R = 255 * (SDL_GetTicks() - testkey->transit_time) / TRTIME;
-            mogltk::ColorP::Min.G = 255 * (SDL_GetTicks() - testkey->transit_time) / TRTIME;
-            mogltk::ColorP::Min.B = 255 * (SDL_GetTicks() - testkey->transit_time) / TRTIME;
-	    sh->tbox(ttex, 0, 0, 640, 480);
-            mogltk::ColorP::Max.A = 255;
-            mogltk::ColorP::Min.R = 0;
-            mogltk::ColorP::Min.G = 0;
-            mogltk::ColorP::Min.B = 0;
-#endif
-#if 0
-            for (y = 0; y < 10; y++) {
-                for (x = 0; x < 10; x++) {
-                    int cx, cy, tx1, ty1, tx2, ty2;
-                    cx  = x * 64 + 32;
-                    cy  = y * 48 + 24;
-                    tx1 = x * 64;
-                    ty1 = y * 48;
-                    tx2 = x * 64 + 64;
-                    ty2 = y * 48 + 48;
-                    glMatrixMode(GL_MODELVIEW);
-                    glPushMatrix();
-                    glTranslated(cx, cy, 0);
-                    glScaled((1 - t), (1 - t), 1);
-                    glRotated((t + ((x + y) / 30)) * 400, 0, 0, 1);
-                    sh->tbox(ttex, -32, -24, 32, 24, tx1, ty1, tx2, ty2);
-                    glPopMatrix();
-                }
-            }
-#endif
-#if 0
-            glDisable(GL_BLEND);
-            glEnable(GL_ALPHA_TEST);
-            glAlphaFunc(GL_GREATER, t);
-            sh->tbox(ttex, 0, 0, 640, 480);
-            glDisable(GL_ALPHA_TEST);
-            glEnable(GL_BLEND);
-#endif
-#if 1
-            if (curframe > lastframe) {
-#if 1
-                sh->box(0, 0, 640, 480, Color(40, 40, 40, 12));
-                glBlendFunc(GL_SRC_ALPHA, GL_ONE);
-                glPushMatrix();
-                glTranslated(320, 240, 0);
-                glScaled(1 + 2 * t, 1 + 2 * t, 1);
-                glRotated(t * 100, 0, 0, 1);
-                sh->tbox(ttex, -320, -240, 320, 240);
-                glPopMatrix();
-                glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-#endif
-#if 0
-                sh->box(0, 0, 640, 480, Color(25, 25, 25, 20));
-                glBlendFunc(GL_SRC_ALPHA, GL_ONE);
-                glPushMatrix();
-                glTranslated(320, 240, 0);
-                glTranslated(curframe, 0, 0); sh->tbox(ttex, -320, -240, 320, 240);
-                glTranslated(0, curframe, 0); sh->tbox(ttex, -320, -240, 320, 240);
-                glTranslated(-curframe, 0, 0); sh->tbox(ttex, -320, -240, 320, 240);
-                glTranslated(-curframe, 0, 0); sh->tbox(ttex, -320, -240, 320, 240);
-                glTranslated(0, -curframe, 0); sh->tbox(ttex, -320, -240, 320, 240);
-                glTranslated(0, -curframe, 0); sh->tbox(ttex, -320, -240, 320, 240);
-                glTranslated(curframe, 0, 0); sh->tbox(ttex, -320, -240, 320, 240);
-                glTranslated(curframe, 0, 0); sh->tbox(ttex, -320, -240, 320, 240);
-                glPopMatrix();
-                glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-#endif
-#if 0
-                int x0 = 320, y0 = 240;
-                int x = 0;
-                int y = t * 15 - 1;
-                int d = 3 - 2 * t * 15;
-                int dI = 10 - 4 * t * 15;
-                int rI = 6;
-    
-                sh->box(0, 0, 640, 480, Color(25, 25, 25, oldblend));
-                glBlendFunc(GL_SRC_ALPHA, GL_ONE);
-                oldblend = 0;
-                while (x <= y) {
-                    oldblend += 16;
-                    glPushMatrix(); glTranslated(x0 + x, y0 + y, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();
-                    glPushMatrix(); glTranslated(x0 - x, y0 + y, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();
-                    glPushMatrix(); glTranslated(x0 + x, y0 - y, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();
-                    glPushMatrix(); glTranslated(x0 - x, y0 - y, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();
-                    glPushMatrix(); glTranslated(x0 + y, y0 + x, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();
-                    glPushMatrix(); glTranslated(x0 - y, y0 + x, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();
-                    glPushMatrix(); glTranslated(x0 + y, y0 - x, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();
-                    glPushMatrix(); glTranslated(x0 - y, y0 - x, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();
-	            if (d >= 0) {
-	                d += dI;
-	                dI += 8;
-	                y -= 1;
-	            } else {
-	                d += rI;
-	                dI += 4;
-	            }
-	            rI += 4;
-	            x += 1;
-                }
-                printm(M_INFO, "blends = %i\n", oldblend / 2);
-                oldblend += 10;
-                glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-#endif
-#if 0
-                sh->box(0, 0, 640, 480, Color(40, 40, 40, 12));
-                glBlendFunc(GL_SRC_ALPHA, GL_ONE);
-                glPushMatrix();
-                glTranslated(320, 240, 0);
-                glRotated(t * 25, 0, 0, 1);
-                sh->tbox(ttex, -320, -240, 320, 240);
-                glPopMatrix();
-                glPushMatrix();
-                glTranslated(320, 240, 0);
-                glRotated(-t * 25, 0, 0, 1);
-                sh->tbox(ttex, -320, -240, 320, 240);
-                glPopMatrix();
-                glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-#endif
-                lastframe = curframe;
-            }
-#endif
-        }
-        if (!testkey->start_transit && ttex) {
-            delete ttex;
-            ttex = 0;
-            got_transit = false;
-        }
-
-	gl->Leave2DMode();
-
-        //gl->Flip(got_transit ? false : true);
-        gl->Flip(false);
-	t = (double) SDL_GetTicks() / 1000.0;
-        newseconds = t;
-
-        if (newseconds != seconds) {
-	    printm(M_INFO, "FPS: %.2f\n", mogltk::engine::FPS());
-            seconds = newseconds;
-        }
-    }
-    
-//    delete mytex;
-    
-    return 0;
-}
-CODE_ENDS
-
-#else
-
-#if 0
-CODE_BEGINS
-virtual int startup() throw (GeneralException) {
-    unsigned char palette[256][3], * pixels, c;
-    char outname[256];
-    int width, height, x, y;
-
-    if (argc != 2)
-        exit(-1);
-    Input i(argv[1]);
-    SDL_Init(SDL_INIT_VIDEO);
-    atexit(SDL_Quit);
-    width = i.readU16();
-    height = i.readU16();
-    i.seek(12, SEEK_CUR);
-    SDL_Surface * s = SDL_SetVideoMode(width, height, 24, 0);
-    pixels = (unsigned char *) s->pixels;
-    for (x = 0; x < 256; x++) {
-        for (y = 0; y < 3; y++) {
-            palette[x][y] = i.readU8();
-        }
-        i.seek(1, SEEK_CUR);
-    }
-    for (y = 0; y < height; y++) {
-        for (x = 0; x < width; x++) {
-            c = i.readU8();
-            pixels[(y * width + x) * 3 + 0] = palette[c][2];
-            pixels[(y * width + x) * 3 + 1] = palette[c][1];
-            pixels[(y * width + x) * 3 + 2] = palette[c][0];
-        }
-    }
-
-    *strchr(argv[1], '.') = 0;
-
-    sprintf(outname, "%s.bmp", argv[1]);
-
-    SDL_SaveBMP(s, outname);
-
-    SDL_Flip(s);
-
-    SDL_Event event;
-    
-    while(true) {
-        SDL_PollEvent(&event);
-        switch (event.type) {
-        case SDL_QUIT:
-            exit(0);
-        }
-    }
-
-    return 0;
-}
-CODE_ENDS
-
-#else
-CODE_BEGINS
-virtual int startup() throw (GeneralException) {
-    unsigned char * pixels, c;
-    char outname[256];
-    int width, height, x, y;
-
-    if (argc != 2)
-        exit(-1);
-    Input i(argv[1]);
-    SDL_Init(SDL_INIT_VIDEO);
-    atexit(SDL_Quit);
-    i.seek(4, SEEK_SET);
-    i.read(&width, 4);
-    i.read(&height, 4);
-    i.seek(4, SEEK_CUR);
-    SDL_Surface * _s = SDL_SetVideoMode(width, height, 32, 0);
-    SDL_Surface * s = SDL_CreateRGBSurface(SDL_SWSURFACE, width, height, 32,
-        0x000000ff,
-        0x0000ff00,
-        0x00ff0000,
-        0xff000000);
-
-    pixels = (unsigned char *) s->pixels;
-    *strchr(argv[1], '.') = 0;
-
-    i.read(pixels, width * height * 4);
-
-    sprintf(outname, "%s.bmp", argv[1]);
-
-    SDL_SaveBMP(s, outname);
-    SDL_BlitSurface(s, 0, _s, 0);
-
-    SDL_Flip(_s);
-
-    SDL_Event event;
-    
-    while(true) {
-        SDL_PollEvent(&event);
-        switch (event.type) {
-        case SDL_QUIT:
-            exit(0);
-        }
-    }
-
-    return 0;
-}
-CODE_ENDS
-
-#endif
-
-#endif
+#include <sys/types.h>

+#define _USE_MATH_DEFINES

+#include <math.h>

+#include <SDL.h>

+#include <vector>

+//#include <lua.h>

+//#include <lauxlib.h>

+//#include <lualib.h>

+#ifdef HAVE_CONFIG_H

+#include "config.h"

+#else

+#endif

+//#include "gettext.h"

+#include <Exceptions.h>

+#include <generic.h>

+#include <Main.h>

+#include <Input.h>

+#include <Output.h>

+#include <Buffer.h>

+//#include <BLua.h>

+//#include <LuaHandle.h>

+#include "glbase.h"

+#include "texture.h"

+#include "glfont.h"

+#include "glwidgets.h"

+#include "engine.h"

+#include "glsprite.h"

+#include "glshape.h"

+#include "glwidgets.h"

+

+#if 1

+

+#define TRTIME 1500

+#define SPIN .50

+#define TILT .20

+

+#define NBSTARS 300

+#define STARSRATE 300.0

+

+#define SPHERE

+

+int zoom = 1;

+

+#define centerx 320

+#define centery 240

+

+struct tdvect {

+    double x, y, z;

+};

+

+std::vector<tdvect> points;

+std::vector<tdvect> ppoints;

+

+#if 0

+static int myprint(lua_State * L) {

+    const char * t = lua_tostring(L, -1);

+

+    Base::printm(M_INFO, "From LUA: %s\n", t);

+

+    return 0;

+}

+

+static int myluaputstar(lua_State * L) {

+    tdvect t;

+

+    t.x = lua_tonumber(L, -3);

+    t.y = lua_tonumber(L, -2);

+    t.z = lua_tonumber(L, -1);

+

+    points.push_back(t);

+

+    return 0;

+}

+

+int myluaerror(lua_State * L) {

+    int n = lua_gettop(L);

+    int i;

+    String t;

+

+    Base::printm(M_ERROR, "Got an LUA error\n");

+    Base::printm(M_ERROR, "Inspecting LUA stack\n");

+

+    if (n == 0) {

+	Base::printm(M_ERROR, "Stack empty\n");

+	return 0;

+    }

+

+    for (i = 1; i <= n; i++) {

+	switch(lua_type(L, i)) {

+	case LUA_TNONE:

+	    t = "Invalid";

+	    break;

+	case LUA_TNIL:

+	    t = "(Nil)";

+	    break;

+	case LUA_TNUMBER:

+	    t.set("(Number) %f", lua_tonumber(L, i));

+	    break;

+	case LUA_TBOOLEAN:

+	    t.set("(Bool)   %s", lua_toboolean(L, i) ? "true" : "false");

+	    break;

+	case LUA_TSTRING:

+	    t.set("(String) %s", lua_tostring(L, i));

+	    break;

+	case LUA_TTABLE:

+	    t.set("(Table)");

+	    break;

+	case LUA_TFUNCTION:

+	    t = "(Function)";

+	    break;

+	default:

+	    t = "Unknown";

+	}

+

+	Base::printm(M_ERROR, String(i) + ": " + t + "\n");

+    }

+

+    return 0;

+

+    getchar();

+}

+#endif

+

+unsigned int swap32(unsigned int w) {

+    return (w >> 24) | ((w >> 8) & 0x0000ff00) | ((w << 8) & 0x00ff0000) | (w << 24);

+}

+

+unsigned int readB32(FILE * f) {

+    unsigned int r;

+    fread(&r, 1, 4, f);

+    return swap32(r);

+}

+

+unsigned short readB16(FILE * f) {

+    unsigned char t[2];

+    fread(t, 1, 2, f);

+    return t[1] | (t[0] << 8);

+}

+

+float tofloat(unsigned int w) {

+    return *((float *) &w);

+}

+

+char * sread(FILE * f) {

+    char temp[256], * p = temp;

+    

+    do {

+	*p = fgetc(f);

+    } while (*(p++));

+    

+    return strdup(temp);

+}

+

+char * pname[16] = {

+    "Unknown (not a float)",

+    "ScalX",

+    "ScalY",

+    "ScalZ",

+    "Unknown (not a float)",

+    "Unknown (not a float)",

+    "TransX",

+    "TransY",

+    "TransZ",

+    "Unknown",

+    "Unknown",

+    "Unknown",

+    "Unknown",

+    "Unknown",

+    "Unknown",

+    "Unknown"

+};

+

+#define OUTPUT stdout

+

+unsigned short entries;

+struct tdvect * mesh;

+

+int bdlload(char * name) {

+    FILE * bdl;

+    int i, j;

+    char sig[9], sec[5], ** bnames;

+    unsigned int length, fpos, namespos, tpos, npos, r;

+    unsigned short * unks;

+    float f;

+    

+    if (!(bdl = fopen(name, "rb")))

+	exit(-1);

+

+    fread(sig, 1, 8, bdl);

+    sig[8] = 0;

+    

+    if (strcmp(sig, "J3D2bdl4")) {

+	fprintf(OUTPUT, "File not bdl.\n");

+	exit(-1);

+    }

+    

+    fprintf(OUTPUT, "Looking for section JNT1...\n");

+    

+    fseek(bdl, 32, SEEK_SET);

+    

+    do {

+	fread(sec, 1, 4, bdl);

+	sec[4] = 0;

+	length = readB32(bdl);

+	fprintf(OUTPUT, "Found section `%s' @ %08x, size %08x\n", sec, ftell(bdl) - 8, length);

+	fseek(bdl, length - 8, SEEK_CUR);

+    } while (strcmp(sec, "JNT1"));

+    

+    fseek(bdl, -length, SEEK_CUR);

+    fpos = ftell(bdl);

+    

+    fprintf(OUTPUT, "Found it at 0x%08x\n", fpos);

+    

+    fseek(bdl, 8, SEEK_CUR);

+    

+    entries = readB16(bdl);

+    if (readB16(bdl) != 0xffff) {

+	fprintf(OUTPUT, "Something's wrong, not found FFFF\n");

+    }

+    if (readB32(bdl) != 0x18) {

+	fprintf(OUTPUT, "Something's wrong, bones not at 0x18, can't go on.\n");

+	exit(-1);

+    }

+    if (readB32(bdl) != (0x18 + entries * 0x40)) {

+	fprintf(OUTPUT, "Something's wrong, bone index not at expected place, can't go on.\n");

+	exit(-1);

+    }

+    

+    namespos = readB32(bdl);

+    

+    fprintf(OUTPUT, "Reading names.\n");

+    

+    bnames = (char **) malloc(entries * sizeof(char *));

+    unks = (unsigned short *) malloc(entries * sizeof(unsigned short));

+    mesh = (struct tdvect *) malloc(entries * sizeof(struct tdvect));

+    

+    fseek(bdl, namespos + fpos + 4, SEEK_SET);

+    

+    for (i = 0; i < entries; i++) {

+	unks[i] = readB16(bdl);

+	npos = readB16(bdl) + fpos + namespos;

+	tpos = ftell(bdl);

+	fseek(bdl, npos, SEEK_SET);

+	bnames[i] = sread(bdl);

+	fseek(bdl, tpos, SEEK_SET);

+    }

+    for (i = 0; i < entries; i++) {

+	fprintf(OUTPUT, "%02x: (%04x) `%s'\n", i, unks[i], bnames[i]);

+    }

+    

+    fprintf(OUTPUT, "Dumping bones\n");

+    

+    fseek(bdl, fpos + 0x18, SEEK_SET);

+    

+    for (i = 0; i < entries; i++) {

+	fprintf(OUTPUT, "Bone #%02x (%s):\n", i, bnames[i]); 

+	for (j = 0; j < 16; j++) {

+	    r = readB32(bdl);

+	    f = tofloat(r);

+	    fprintf(OUTPUT, "%x: %08x - %9.5f - %s\n", j, r, f, pname[j]);

+	    switch(j) {

+	    case 6:

+		mesh[i].x = f;

+		break;

+	    case 7:

+		mesh[i].y = f;

+		break;

+	    case 8:

+		mesh[i].z = f;

+		break;

+	    }

+	}

+    }

+    

+    return 0;

+}

+

+

+CODE_BEGINS

+

+#if 0

+void checkluastack(lua_State * L) {

+    int n = lua_gettop(L);

+    int i, j;

+    String t;

+

+    printm(M_INFO, "Inspecting LUA stack\n");

+

+    if (n == 0) {

+	printm(M_INFO, "Stack empty\n");

+	return;

+    }

+

+    for (i = 1; i <= n; i++) {

+	switch(lua_type(L, i)) {

+	case LUA_TNONE:

+	    t = "Invalid";

+	    break;

+	case LUA_TNIL:

+	    t = "(Nil)";

+	    break;

+	case LUA_TNUMBER:

+	    t.set("(Number) %f", lua_tonumber(L, i));

+	    break;

+	case LUA_TBOOLEAN:

+	    t.set("(Bool)   %s", lua_toboolean(L, i) ? "true" : "false");

+	    break;

+	case LUA_TSTRING:

+	    t.set("(String) %s", lua_tostring(L, i));

+	    break;

+	case LUA_TTABLE:

+	    printm(M_INFO, String(i) + ": (Table) Exploring:\n");

+	    lua_pushnil(L);  /* first key */

+	    j = 0;

+	    while (lua_next(L, -2) != 0) {

+	    /* `key' is at index -2 and `value' at index -1 */

+		printm(M_INFO, "    %s - %s\n", lua_typename(L, lua_type(L, -2)),

+		                                lua_typename(L, lua_type(L, -1)));

+		lua_pop(L, 1);  /* removes `value'; keeps `key' for next iteration */

+	    }

+	    t = "";

+	    break;

+	case LUA_TFUNCTION:

+	    t = "(Function)";

+	    break;

+	default:

+	    t = "Unknown";

+	}

+

+	if (t != "")

+	    printm(M_INFO, String(i) + ": " + t + "\n");

+    }

+}

+#endif

+

+void putstar(double x, double y, double z, mogltk::Sprite * s) {

+    double tx, ty, tz;

+    double spin, tilt;

+

+    spin = (mogltk::engine::mouseX() - centerx) / 80.0;

+    tilt = (mogltk::engine::mouseY() - centery) / 80.0;

+

+    // Spin --> around y

+    

+    tx =  x * cos(spin) + z * sin(spin);

+    tz = -x * sin(spin) + z * cos(spin);

+

+    x = tx;

+    z = tz;

+

+

+    // tilt --> around x

+

+    ty =  y * cos(tilt) + z * sin(tilt);

+    tz = -y * sin(tilt) + z * cos(tilt);

+

+    y = ty;

+    z = tz;

+

+    tdvect t;

+    t.x = x;

+    t.y = y;

+    t.z = z;

+

+//	s->draw(centerx + t.x * zoom * mogltk::engine::mouseZ() - s->GetSX() / 2, centery + t.y * zoom * mogltk::engine::mouseZ() - s->GetSY() / 2);

+    ppoints.push_back(t);

+}

+

+double t;

+

+#ifdef STARSCAPE

+int starsx[NBSTARS];

+int starsy[NBSTARS];

+#endif

+

+#ifdef SPHERE

+double starst[NBSTARS];

+double starso[NBSTARS];

+#endif

+

+//lua_State * L;

+

+void initstars() {

+    int i;

+#ifdef STARSCAPE

+    for (i = 0; i < NBSTARS; i++) {

+	starsx[i] = rand() % 640;

+	starsy[i] = rand() % 480;

+    }

+

+    t = 0;

+#endif

+#ifdef RING

+    t = 0;

+#endif

+#ifdef SPHERE

+    t = 0;

+    for (i = 0; i < NBSTARS; i++) {

+	starst[i] = -(rand() % 3000) / 1000.0;

+	starso[i] = 2 * ((rand() % 1000) / 1000.0) * M_PI;

+    }

+#endif

+#ifdef LUA

+    L = lua_open();

+    luaopen_math(L);

+    lua_pop(L, 1);

+    lua_atpanic(L, myluaerror);

+    luaL_loadfile(L, "particules.lua");

+    lua_call(L, 0, 0);

+    lua_pushstring(L, "putstar");

+    lua_pushcfunction(L, myluaputstar);

+    lua_settable(L, LUA_GLOBALSINDEX);

+    lua_pushstring(L, "print");

+    lua_pushcfunction(L, myprint);

+    lua_settable(L, LUA_GLOBALSINDEX);

+    lua_pushstring(L, "initstars");

+    lua_gettable(L, LUA_GLOBALSINDEX);

+    lua_call(L, 0, 0);

+#endif

+}

+

+void displaystars(mogltk::Sprite * s) {

+    int i;

+    double x, y, z, st;

+    tdvect tv;

+

+#ifdef STARSCAPE    

+    for (i = 0; i < NBSTARS; i++) {

+	s->draw(starsx[i], starsy[i]);

+    }

+#endif

+#ifdef RING

+    for (i = 0; i < NBSTARS; i++) {

+	putstar(cos(t + i * 2 * M_PI / NBSTARS), 0, sin(t + i * 2 * M_PI / NBSTARS), s);

+    }

+#endif

+#ifdef SPHERE

+    for (i = 0; i < NBSTARS; i++) {

+	st = t - starst[i];

+

+	y = st / 3.0;

+

+	x = cos(st * 2 * M_PI + starso[i]) * sin(y * M_PI);

+	z = sin(st * 2 * M_PI + starso[i]) * sin(y * M_PI);

+

+	y = cos(y * M_PI);

+

+	putstar(x, y, z, s);

+    }

+#endif

+#ifdef LUA

+    lua_pushstring(L, "displaystars");

+    lua_gettable(L, LUA_GLOBALSINDEX);

+    lua_call(L, 0, 0);

+

+    for (std::vector<tdvect>::iterator i = points.begin(); i != points.end(); i++) {

+	tv = *i;

+	putstar(tv.x, tv.y, tv.z, s);

+    }

+    points.clear();

+#endif

+#ifdef BDL

+    for (i = 0; i < entries; i++) {

+	putstar(mesh[i].x / 20, mesh[i].y / 20, mesh[i].z / 20, s);

+    }

+#endif

+    while (!ppoints.empty()) {

+	std::vector<tdvect>::iterator m = ppoints.begin();

+	for (std::vector<tdvect>::iterator i = ppoints.begin(); i != ppoints.end(); i++) {

+	    if (i->z > m->z)

+		m = i;

+	}

+	tv = *m;

+	ppoints.erase(m);

+	// Only bare projecting... for now...

+	s->draw(centerx + tv.x * zoom * mogltk::engine::mouseZ() - s->GetSX() / 2, centery + tv.y * zoom * mogltk::engine::mouseZ() - s->GetSY() / 2);

+    }

+}

+

+void incrementstars(double nt) {

+    int i;

+

+#ifdef STARSCAPE

+    while ((t + (1 / STARSRATE)) <= nt) {

+	t += 1 / STARSRATE;

+

+	for (i = 0; i < NBSTARS; i++) {

+	    if ((++starsx[i]) >= 640) {

+		starsx[i] = 0;

+		starsy[i] = rand() % 480;

+	    }

+	}

+    }

+#endif

+#ifdef RING

+    t = nt;

+#endif

+#ifdef SPHERE

+    t = nt;

+

+    for (i = 0; i < NBSTARS; i++) {

+	if ((starst[i] + 3) < t) {

+	    starst[i] += 3.0;

+    	    starso[i] = 2 * ((rand() % 1000) / 1000.0) * M_PI;

+	}

+    }

+#endif

+#ifdef LUA

+    t = nt;

+

+    lua_pushstring(L, "incstars");

+    lua_gettable(L, LUA_GLOBALSINDEX);

+    lua_pushnumber(L, t);

+    lua_call(L, 1, 0);

+#endif

+}

+

+class testkey_t : public mogltk::engine::keyevent {

+  public:

+    virtual void down(SDL_keysym keysym) {

+        if (keysym.sym == SDLK_SPACE && !start_transit) {

+            start_transit = true;

+            transit_time = SDL_GetTicks();

+        } else if (old_handler)

+            old_handler->down(keysym);

+    }

+    virtual void up(SDL_keysym keysym) {

+        if (old_handler)

+            old_handler->up(keysym);

+    }

+    bool start_transit;

+    Uint32 transit_time;

+} * testkey;

+

+void affiche_grille(mogltk::shape * sh, mogltk::texture * tex, int grille[41][31][2]) {

+    int x, y, tx1, tx2, ty1, ty2;

+    static mogltk::ColorP w = WHITE;

+

+    w.Bind();

+    tex->Bind();

+    

+//    sh->box(0, 0, 640, 480, BLACK);

+    for (y = 0; y < 30; y++) {

+        for (x = 0; x < 40; x++) {

+            tx1 = x * 20;

+            ty1 = y * 20;

+            tx2 = x * 20 + 20;

+            ty2 = y * 20 + 20;

+

+#if 1

+            glBegin(GL_TRIANGLE_STRIP);

+            glTexCoord2i(tx1, ty1); glVertex2i(grille[x    ][y    ][0], grille[x    ][y    ][1]);

+            glTexCoord2i(tx2, ty1); glVertex2i(grille[x + 1][y    ][0], grille[x + 1][y    ][1]);

+            glTexCoord2i(tx1, ty2); glVertex2i(grille[x    ][y + 1][0], grille[x    ][y + 1][1]);

+            glTexCoord2i(tx2, ty2); glVertex2i(grille[x + 1][y + 1][0], grille[x + 1][y + 1][1]);

+            glEnd();

+#else

+            sh->line(grille[x    ][y    ][0], grille[x    ][y    ][1],

+                     grille[x + 1][y    ][0], grille[x + 1][y    ][1]);

+            sh->line(grille[x + 1][y    ][0], grille[x + 1][y    ][1],

+                     grille[x + 1][y + 1][0], grille[x + 1][y + 1][1]);

+            sh->line(grille[x + 1][y + 1][0], grille[x + 1][y + 1][1],

+                     grille[x    ][y + 1][0], grille[x    ][y + 1][1]);

+            sh->line(grille[x    ][y + 1][0], grille[x    ][y + 1][1],

+                     grille[x    ][y    ][0], grille[x    ][y    ][1]);

+#endif

+        }

+    }

+}

+

+virtual int startup() throw (GeneralException) {

+    bool flag = false, flag2 = false;

+    mogltk::texture * sshot = 0, * plastex = new mogltk::texture(1024, 512);

+    int x, y, sx1, sx2, sy1, sy2, lastframe, curframe, px, py, lasttick = 0, curtick = 0, oldblend, seconds = 0, newseconds = 0;

+    double t = 0;

+    verbosity = M_INFO;

+    String str;

+    bool got_transit = false;

+    Uint8 * plasma = (Uint8 *) malloc(640 * 480), * pplasma;

+    int grille[41][31][2];

+    double seeds[41][31];

+    double speeds[41][31];

+

+#if 0

+    srand(25);

+    for (y = 0; y < 31; y++) {

+        for (x = 0; x < 41; x++) {

+            seeds[x][y] = 1.2 * (double) (rand() % 10000) / 10000;

+            speeds[x][y] = 2.6 * (double) (rand() % 10000) / 10000;

+        }

+    }

+#endif

+

+    testkey = new testkey_t();

+

+    mogltk::engine::setmouseZ(50);

+

+#if 0

+

+#if 0

+    Lua * l = new Lua();

+    LuaInput::pushconstruct(l);

+    LuaOutput::pushconstruct(l);

+    LuaBuffer::pushconstruct(l);

+    l->open_math();

+    l->declarefunc("print", myprint);

+#if 0

+    l->load(&Input("particules.lua"), false);

+    l->dump(&Output("particules.out"));

+    l->call();

+#else

+    l->load(&Input("particules.out"));

+#endif

+//    l->call("testing");

+    delete l;

+#endif

+

+//    bdlload("cl.bdl");

+

+#endif

+

+    Input pl("plasma.raw");

+    pl.read(plasma, 640 * 480);

+

+    pplasma = (Uint8 *) plastex->GetPixels();

+

+    for (y = 0; y < 480; y++) {

+        for (x = 0; x < 640; x++) {

+            pplasma[((y * 1024) + x) * 4 + 3] = 255 - plasma[(y * 640) + x];

+        }

+    }

+

+    new Archive("datas.paq");

+

+#if 1

+    mogltk::base * gl = new mogltk::glbase();

+    mogltk::shape * sh = new mogltk::glshape();

+    mogltk::font * font = new mogltk::glfont(&Input("font-2.bin"));

+    mogltk::glSprite * s = new mogltk::glSprite(&Input("cursor.rgba"), 25, 25);

+    mogltk::texture * sol = new mogltk::texture(&Input("sol.tex"));

+    mogltk::glSprite * logo = new mogltk::glSprite(&Input("logo.raw"), 165, 124);

+#if 0

+    mogltk::Sprite * p = new mogltk::glSprite(&Input("particule.rgba"), 16, 16);

+    mogltk::glSprite * spr = new mogltk::glSprite(&Input("015_Over-Mind.raw"), 347, 328);

+    mogltk::glSprite * eD1 = new mogltk::glSprite(&Input("elkyaD1.raw"), 53, 100);

+    mogltk::glSprite * eG1 = new mogltk::glSprite(&Input("elkyaG1.raw"), 53, 100);

+    mogltk::glSprite * eM1 = new mogltk::glSprite(&Input("elkyaM1.raw"), 53, 100);

+//    mogltk::glSprite * spr = new mogltk::glSprite(&Input("test.raw"), 200, 200);

+#endif

+    mogltk::widget * w = new mogltk::widgets::Root(sh);

+#else

+    mogltk::base * gl = new mogltk::base();

+    mogltk::shape * sh = new mogltk::shape();

+    mogltk::font * font = new mogltk::font(&Input("font-2.bin"));

+    mogltk::Sprite * s = new mogltk::Sprite(&Input("cursor.rgba"), 25, 25);

+    mogltk::Sprite * p = new mogltk::Sprite(&Input("particule.rgba"), 16, 16);

+    mogltk::Sprite * spr = new mogltk::Sprite(&Input("015_Over-Mind.raw"), 347, 328);

+    mogltk::widget * w = new mogltk::Root(sh);

+#endif

+

+    mogltk::texture * ttex = 0;

+

+    font->setcolor(WHITE);

+    font->setshadow(2);

+#if 0

+    mogltk::rect textrect;

+    mogltk::texture * text = font->printtex(&textrect, 

+        "PixelPawa!\n"

+        "It works!!\n"

+        "I can't believe it!\n"

+    );

+    SDL_SaveBMP(text->GetSurface(), "test-font.bmp");

+    textrect.x = 10;

+    textrect.y = 30;

+#endif

+

+    mogltk::engine::setcursorvisible(true);

+    mogltk::engine::setappactive(true);

+

+#if 0

+    mogltk::texture * mytex = new mogltk::texture(&Input("pattern6.tex"), true);

+

+    Color AlphaBlue(AQUA);

+    AlphaBlue.A = 50;

+

+    mogltk::fill * f = sh->fcircle(320, 240, 50);

+

+    initstars();

+

+    px = 200;

+    py = 350;

+#endif

+#if 0

+    new mogltk::widgets::Button(0, sh,

+        new mogltk::widgets::SmartBox(sh, w, 120, 50, 100, 100, "Test"),

+        12, 30, 50, 20, "Toto");

+#endif

+    new mogltk::widgets::Frame(sh, w, 10, 10, 600, 400);

+    //new mogltk::widgets::MsgBox(sh, w, "Test", "Blablabla\nCeci est un test de la\nclasse MsgBox.");

+

+    class tLabel : public mogltk::widgets::Label {

+      public:

+          tLabel(mogltk::shape * sh, mogltk::widget * father) : Label(sh, father, 250, 200, 16, 16, "I"), tick(0) { set_timed_event(500); }

+        virtual bool process_event(int mx, int my, mogltk::event_t event) {

+            if (Label::process_event(mx, my, event))

+                return true;

+            

+            if (event == mogltk::E_TIMER) {

+                set_timed_event(500);

+                tick = (tick + 1) % 4;

+                switch (tick) {

+                case 0:

+                    caption = "I";

+                    break;

+                case 1:

+                    caption = "/";

+                    break;

+                case 2:

+                    caption = "-";

+                    break;

+                case 3:

+                    caption = "\\";

+                    break;

+                }

+            }

+        }

+      private:

+        int tick;

+    };

+

+    mogltk::widgets::ContextMenu * c, * c2;

+    //c = new mogltk::widgets::ContextMenu(sh, w, 20, 20);

+    mogltk::widgets::Menu * sm;

+

+    new mogltk::widgets::SmartBox(sh, w, 250, 300, 100, 70, "SmartBox");

+    sm = new mogltk::widgets::Menu(sh, w);

+

+    sm->addnode("Toto", 0);

+    sm->addnode("Titi", 0);

+    sm->addnode("Tutu", 0);

+

+#if 0

+    c->addnode("Test", 0);

+    c->addnode("Test2", 0);

+    c->addline();

+    c->addnode("Test3", 0);

+    c->addnode("Test of a long entry", 0);

+

+    c2 = c->createsub("Sub");

+    c2->addnode("A sub", 0);

+    c2->createsub("subsub")->addnode("Toto", 0);

+    c2->SetEnabled(0, false);

+#endif

+

+    c = sm->createsub("Sub Menu");

+    c->addnode("Blah1", 0);

+    c->addnode("Blah2", 0);

+    c->addnode("Blah3", 0);

+    c->addline();

+    c2 = c->createsub("SubBlah");

+    c2->addnode("SubBlah1", 0);

+    c2->addnode("SubBlah2", 0);

+

+    sm->MoveOnTop();

+

+    new tLabel(sh, w);

+

+    w->mainloop();

+

+    while (!mogltk::engine::quitrequested()) {

+#if 0

+        sx1 = 320 + 320 * sin(0.983 * t + 3.15);

+	sx2 = 320 + 320 * sin(0.537 * t + 5.32);

+	sy1 = 240 + 240 * sin(0.692 * t + 8.21);

+	sy2 = 240 + 240 * sin(1.029 * t + 2.42);

+#endif

+

+	gl->Enter2DMode();

+

+#if 1

+        if (got_transit)

+            goto do_transit;

+#endif

+

+#if 0

+	w->fulldraw();

+

+	sh->tbox(mytex, 50, 50, 561, 561, BLACK, RED, LIME, BLUE);

+	//sh->box(400, 100, 450, 150, BLACK, RED, LIME, BLUE);    

+

+	sh->box(5, 5, 150, 80, CORNFLOWERBLUE, DEEPSKYBLUE, MIDNIGHTBLUE, NAVY);

+	mogltk::ColorP::Max.A = 100;

+	//sh->box(5, 5, 400, 300, CORNFLOWERBLUE, DEEPSKYBLUE, MIDNIGHTBLUE, NAVY);

+	mogltk::ColorP::Max.A = 255;

+#if 1

+	font->setshadow(1);

+	font->putcursor(10, 30);

+	mogltk::ColorP::Max.A = sy1 / 2;

+	font->setcolor(Color(sy1 / 2, sy1 / 2, sy1 / 2, sy1 / 2));

+	font->printf(

+	    "PixelPawa!\n"

+	    "It works!!\n"

+	    "I can't believe it!\n"

+	);

+	mogltk::ColorP::Max.A = 255;

+	font->setcolor(WHITE);

+#else

+        sh->tbox(text, textrect.x, textrect.y, textrect.x + textrect.w, textrect.y + textrect.h);

+#endif

+	

+	sh->box3d(50, 150, 150, 200);

+	sh->obox3d(50, 250, 150, 300);

+	sh->window(50, 350, 150, 400, "Titre plus beau ;)");

+	sh->box3d(180, 130, 320, 220);

+	sh->button(200, 150, 300, 200, "Bouton");

+

+	sh->fdraw(f, BLUE);

+	sh->sdraw(f);

+

+        eM1->drawrotate(500, 400, sx1);

+

+        curtick = (SDL_GetTicks() / 250) % 4;

+

+        if (curtick != lasttick) {

+            px -= 10;

+            py += 5;

+

+            if (px < -53)

+                px = 640;

+            if (px > 640)

+                px = -53;

+            if (py > 480)

+                py = -100;

+            lasttick = curtick;

+        }

+

+        switch(curtick) {

+        case 0:

+            eM1->draw(px, py, WHITE, 1, 1);

+            break;

+        case 1:

+            eD1->draw(px, py, WHITE, 1, 1);

+            break;

+        case 2:

+            eM1->draw(px, py, WHITE, 1, 1);

+            break;

+        case 3:

+            eG1->draw(px, py, WHITE, 1, 1);

+            break;

+        }

+	

+	sh->box(MIN(sx1, sx2), MIN(sy1, sy2), MAX(sx1, sx2), MAX(sy1, sy2), AlphaBlue);

+	mogltk::ColorP::Min.A = 200;

+	sh->obox(MIN(sx1, sx2), MIN(sy1, sy2), MAX(sx1, sx2), MAX(sy1, sy2), AlphaBlue);

+	mogltk::ColorP::Min.A = 0;

+

+	p->draw(mogltk::engine::mouseX() - 8, mogltk::engine::mouseY() - 8);

+	sh->line(320, 240, mogltk::engine::mouseX(), mogltk::engine::mouseY());

+

+	mogltk::ColorP::Min.A = 200;

+	p->draw(sx1 - 8, sy1 - 8, AlphaBlue);

+	p->draw(sx2 - 8, sy2 - 8, AlphaBlue);

+

+	displaystars(p);

+	incrementstars(t);

+

+	sh->box(0, 0, 640, 480, CORNFLOWERBLUE, DEEPSKYBLUE, MIDNIGHTBLUE, NAVY);

+

+#endif

+//	sh->box(0, 0, 640, 480, CORNFLOWERBLUE, DEEPSKYBLUE, MIDNIGHTBLUE, NAVY);

+

+        int x, y;

+

+#if 0

+        for (y = 0; y < 31; y++) {

+            for (x = 0; x < 41; x++) {

+                grille[x][y][0] = x * 16 + 8 * sin(t * 6 + (x + y) / 2.0);

+                grille[x][y][1] = y * 16 + 8 * cos(t * 6 + (x + y) / 2.0);

+            }

+        }

+#endif

+        double dis, xdis, ydis, xpos, ypos, norm, tt, tt1;

+

+        t += 48;

+

+        tt = t - (((int) t) / 58) * 58;

+

+        if (tt <= 20) {

+            flag = flag2 = false;

+            for (y = 0; y < 31; y++) {

+                for (x = 0; x < 41; x++) {

+                    xpos = x - 20.5;

+                    ypos = y - 15.5;

+                    norm = sqrt(xpos * xpos + ypos * ypos);

+                    xpos /= norm;

+                    ypos /= norm;

+                    dis = sin(t * 6 - norm);

+                    xdis = dis * sin(xpos);

+                    ydis = dis * sin(ypos);

+                    grille[x][y][0] = (((x * 16 + 16 * xdis) - 320) * 1.08) + 320;

+                    grille[x][y][1] = (((y * 16 + 16 * ydis) - 240) * 1.08) + 240;

+                }

+            }

+

+            affiche_grille(sh, sol, grille);

+            if (tt < 4)

+                sh->box(0, 0, 640, 480, Color(255, 255, 255, 255 * ((4 - tt) / 4)));

+            else if (tt > 16)

+                sh->box(0, 0, 640, 480, Color(0, 0, 0, 255 * ((tt - 16) / 4)));

+        } else if (tt <= 23) {

+            tt -= 20;

+            sh->box(0, 0, 640, 480, BLACK);

+            for (y = 0; y < 31; y++) {

+                for (x = 0; x < 41; x++) {

+                    grille[x][y][0] = ((((x * 16 + 8 * sin(t * 6 + (x + y) / 2.0)) - 320) * 1.08) + 320) * tt / 3;

+                    grille[x][y][1] = ((((y * 16 + 8 * cos(t * 6 + (x + y) / 2.0)) - 200) * 1.08) + 200) * tt / 3;

+                }

+            }

+            affiche_grille(sh, sol, grille);

+        } else if (tt <= 36) {

+            for (y = 0; y < 31; y++) {

+                for (x = 0; x < 41; x++) {

+                    grille[x][y][0] = (((x * 16 + 8 * sin(t * 6 + (x + y) / 2.0)) - 320) * 1.08) + 320;

+                    grille[x][y][1] = (((y * 16 + 8 * cos(t * 6 + (x + y) / 2.0)) - 200) * 1.08) + 200;

+                }

+            }

+            affiche_grille(sh, sol, grille);

+        } else if (tt <= 38) {

+            tt -= 36;

+            if (!flag2) {

+                sshot = gl->GrabTexture();

+                flag2 = true;

+            }

+	    sh->tbox(sshot, 0, 0, 640, 480);

+            if (tt <= 0.1) {

+                sh->box(0, 0, 640, 480, Color(255, 255, 255, 255 * (tt / 0.1)));

+            } else if (tt < 0.5) {

+                tt -= 0.1;

+                sh->box(0, 0, 640, 480, Color(255, 255, 255, 255 * ((0.4 - tt) / 0.4)));

+                sh->box(0, 0, 640, 480, Color(0.3 * 255, 0.2 * 255, 0.3 * 255, 127 * (tt / 0.4)));

+            } else {

+                sh->box(0, 0, 640, 480, Color(0.3 * 255, 0.2 * 255, 0.3 * 255, 127));

+            }

+            for (y = 0; y < 15; y++) {

+                for (x = 0; x < 20; x++) {

+                    sh->obox(x * 32, y * 32, x * 32 + 32, y * 32 + 32, WHITE);

+                }

+            }

+        } else if (tt <= 42) {

+            int xx, yy, tyy;

+            double ttt;

+            tt -= 38;

+            sh->box(0, 0, 640, 480, BLACK);

+            for (y = 14; y >= 0; y--) {

+                for (x = 19; x >= 0; x--) {

+                    double d = (33.0 - x - y) / 16.5;

+                    xx = x * 32;

+                    tyy = y * 32;

+                    if (tt <= d) {

+                        yy = y * 32;

+                    } else {

+                        ttt = tt - d;

+                        yy = y * 32 + ttt * ttt * ttt * 60;

+                    }

+                    sh->tbox(sshot, xx, yy, xx + 32, yy + 32, xx, tyy, xx + 32, tyy + 32);

+                    sh->box(xx, yy, xx + 32, yy + 32, Color(0.3 * 255, 0.2 * 255, 0.3 * 255, 127));

+                    sh->obox(xx, yy, xx + 32, yy + 32, WHITE);

+                }

+            }

+        } else if (tt <= 43) {

+            sh->box(0, 0, 640, 480, BLACK);

+        } else if (tt <= 48) {

+            tt -= 43;

+            sh->tbox(sol, 0, 0, 640, 480, 0, 0, 800, 600);

+            glDisable(GL_BLEND);

+            glEnable(GL_ALPHA_TEST);

+            glAlphaFunc(GL_GREATER, tt / 5);

+            sh->tbox(plastex, 0, 0, 640, 480);

+            glDisable(GL_ALPHA_TEST);

+            glEnable(GL_BLEND);

+        } else if (tt <= 56) {

+            sh->tbox(sol, 0, 0, 640, 480, 0, 0, 800, 600);

+        } else if (tt <= 58) {

+            if (!flag) {

+                if (sshot)

+                    delete sshot;

+                testkey->start_transit = true;

+                testkey->transit_time = SDL_GetTicks();

+                flag = true;

+            } else {

+                glBlendFunc(GL_SRC_ALPHA, GL_ONE);

+                sh->box(0, 0, 640, 480, Color(255, 255, 255, 1));

+                glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+            }

+        }

+

+        logo->draw(10, 10, Color(255, 255, 255, 100));

+

+

+	font->putcursor(530, 460);

+	font->printf("FPS: %.2f\n", mogltk::engine::FPS());

+//	font->printf("mx: %i\n", mogltk::engine::mouseX());

+//	font->printf("my: %i\n", mogltk::engine::mouseY());

+//	font->printf("t: %.2fs\n", SDL_GetTicks() / 1000.0);

+//        mogltk::ColorP::Max.A = 50;

+//	s->draw(mogltk::engine::mouseX() - 6, mogltk::engine::mouseY() - 3, BLACK);

+//        mogltk::ColorP::Max.A = 255;

+//	s->draw(mogltk::engine::mouseX() - 8, mogltk::engine::mouseY() - 6);

+

+do_transit:

+        mogltk::ColorP::Min.A = 0;

+        mogltk::ColorP::Max.A = 255;

+        if (testkey->start_transit) {

+            double t;

+            int x, y;

+            Uint8 * pixels;

+            if (!got_transit) {

+                lastframe = 0;

+                got_transit = true;

+                ttex = gl->GrabTexture();

+                pixels = (Uint8 *) ttex->GetPixels();

+                oldblend = 20;

+#if 1

+                for (y = 0; y < 480; y++) {

+                    for (x = 0; x < 640; x++) {

+#if 0

+                        pixels[(y * 1024 + x) * 4 + 0] ^= 255;

+                        pixels[(y * 1024 + x) * 4 + 1] ^= 255;

+                        pixels[(y * 1024 + x) * 4 + 2] ^= 255;

+#endif

+#if 0

+                        pixels[(y * 1024 + x) * 4 + 3] = plasma[y * 640 + x];

+#endif

+#if 1

+                        pixels[(y * 1024 + x) * 4 + 3] = 30;

+#endif

+#if 0

+                        pixels[(y * 1024 + x) * 4 + 3] = 7;

+#endif

+#if 0

+                        pixels[(y * 1024 + x) * 4 + 3] = 1;

+#endif

+                    }

+                }

+#endif

+            }

+            pixels = (Uint8 *) ttex->GetPixels();

+            t = (double) (SDL_GetTicks() - testkey->transit_time) / TRTIME;

+            curframe = 45 * (SDL_GetTicks() - testkey->transit_time) / TRTIME;

+            if (t >= 1.0) {

+                testkey->start_transit = false;

+            }

+#if 0

+            mogltk::ColorP::Max.A = 255 * (TRTIME - SDL_GetTicks() + testkey->transit_time) / TRTIME;

+            mogltk::ColorP::Min.R = 255 * (SDL_GetTicks() - testkey->transit_time) / TRTIME;

+            mogltk::ColorP::Min.G = 255 * (SDL_GetTicks() - testkey->transit_time) / TRTIME;

+            mogltk::ColorP::Min.B = 255 * (SDL_GetTicks() - testkey->transit_time) / TRTIME;

+	    sh->tbox(ttex, 0, 0, 640, 480);

+            mogltk::ColorP::Max.A = 255;

+            mogltk::ColorP::Min.R = 0;

+            mogltk::ColorP::Min.G = 0;

+            mogltk::ColorP::Min.B = 0;

+#endif

+#if 0

+            for (y = 0; y < 10; y++) {

+                for (x = 0; x < 10; x++) {

+                    int cx, cy, tx1, ty1, tx2, ty2;

+                    cx  = x * 64 + 32;

+                    cy  = y * 48 + 24;

+                    tx1 = x * 64;

+                    ty1 = y * 48;

+                    tx2 = x * 64 + 64;

+                    ty2 = y * 48 + 48;

+                    glMatrixMode(GL_MODELVIEW);

+                    glPushMatrix();

+                    glTranslated(cx, cy, 0);

+                    glScaled((1 - t), (1 - t), 1);

+                    glRotated((t + ((x + y) / 30)) * 400, 0, 0, 1);

+                    sh->tbox(ttex, -32, -24, 32, 24, tx1, ty1, tx2, ty2);

+                    glPopMatrix();

+                }

+            }

+#endif

+#if 0

+            glDisable(GL_BLEND);

+            glEnable(GL_ALPHA_TEST);

+            glAlphaFunc(GL_GREATER, t);

+            sh->tbox(ttex, 0, 0, 640, 480);

+            glDisable(GL_ALPHA_TEST);

+            glEnable(GL_BLEND);

+#endif

+#if 1

+            if (curframe > lastframe) {

+#if 1

+                sh->box(0, 0, 640, 480, Color(40, 40, 40, 12));

+                glBlendFunc(GL_SRC_ALPHA, GL_ONE);

+                glPushMatrix();

+                glTranslated(320, 240, 0);

+                glScaled(1 + 2 * t, 1 + 2 * t, 1);

+                glRotated(t * 100, 0, 0, 1);

+                sh->tbox(ttex, -320, -240, 320, 240);

+                glPopMatrix();

+                glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+#endif

+#if 0

+                sh->box(0, 0, 640, 480, Color(25, 25, 25, 20));

+                glBlendFunc(GL_SRC_ALPHA, GL_ONE);

+                glPushMatrix();

+                glTranslated(320, 240, 0);

+                glTranslated(curframe, 0, 0); sh->tbox(ttex, -320, -240, 320, 240);

+                glTranslated(0, curframe, 0); sh->tbox(ttex, -320, -240, 320, 240);

+                glTranslated(-curframe, 0, 0); sh->tbox(ttex, -320, -240, 320, 240);

+                glTranslated(-curframe, 0, 0); sh->tbox(ttex, -320, -240, 320, 240);

+                glTranslated(0, -curframe, 0); sh->tbox(ttex, -320, -240, 320, 240);

+                glTranslated(0, -curframe, 0); sh->tbox(ttex, -320, -240, 320, 240);

+                glTranslated(curframe, 0, 0); sh->tbox(ttex, -320, -240, 320, 240);

+                glTranslated(curframe, 0, 0); sh->tbox(ttex, -320, -240, 320, 240);

+                glPopMatrix();

+                glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+#endif

+#if 0

+                int x0 = 320, y0 = 240;

+                int x = 0;

+                int y = t * 15 - 1;

+                int d = 3 - 2 * t * 15;

+                int dI = 10 - 4 * t * 15;

+                int rI = 6;

+    

+                sh->box(0, 0, 640, 480, Color(25, 25, 25, oldblend));

+                glBlendFunc(GL_SRC_ALPHA, GL_ONE);

+                oldblend = 0;

+                while (x <= y) {

+                    oldblend += 16;

+                    glPushMatrix(); glTranslated(x0 + x, y0 + y, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();

+                    glPushMatrix(); glTranslated(x0 - x, y0 + y, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();

+                    glPushMatrix(); glTranslated(x0 + x, y0 - y, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();

+                    glPushMatrix(); glTranslated(x0 - x, y0 - y, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();

+                    glPushMatrix(); glTranslated(x0 + y, y0 + x, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();

+                    glPushMatrix(); glTranslated(x0 - y, y0 + x, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();

+                    glPushMatrix(); glTranslated(x0 + y, y0 - x, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();

+                    glPushMatrix(); glTranslated(x0 - y, y0 - x, 0); sh->tbox(ttex, -320, -240, 320, 240); glPopMatrix();

+	            if (d >= 0) {

+	                d += dI;

+	                dI += 8;

+	                y -= 1;

+	            } else {

+	                d += rI;

+	                dI += 4;

+	            }

+	            rI += 4;

+	            x += 1;

+                }

+                printm(M_INFO, "blends = %i\n", oldblend / 2);

+                oldblend += 10;

+                glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+#endif

+#if 0

+                sh->box(0, 0, 640, 480, Color(40, 40, 40, 12));

+                glBlendFunc(GL_SRC_ALPHA, GL_ONE);

+                glPushMatrix();

+                glTranslated(320, 240, 0);

+                glRotated(t * 25, 0, 0, 1);

+                sh->tbox(ttex, -320, -240, 320, 240);

+                glPopMatrix();

+                glPushMatrix();

+                glTranslated(320, 240, 0);

+                glRotated(-t * 25, 0, 0, 1);

+                sh->tbox(ttex, -320, -240, 320, 240);

+                glPopMatrix();

+                glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+#endif

+                lastframe = curframe;

+            }

+#endif

+        }

+        if (!testkey->start_transit && ttex) {

+            delete ttex;

+            ttex = 0;

+            got_transit = false;

+        }

+

+	gl->Leave2DMode();

+

+        //gl->Flip(got_transit ? false : true);

+        gl->Flip(false);

+	t = (double) SDL_GetTicks() / 1000.0;

+        newseconds = t;

+

+        if (newseconds != seconds) {

+	    printm(M_INFO, "FPS: %.2f\n", mogltk::engine::FPS());

+            seconds = newseconds;

+        }

+    }

+    

+//    delete mytex;

+    

+    return 0;

+}

+CODE_ENDS

+

+#else

+

+#if 0

+CODE_BEGINS

+virtual int startup() throw (GeneralException) {

+    unsigned char palette[256][3], * pixels, c;

+    char outname[256];

+    int width, height, x, y;

+

+    if (argc != 2)

+        exit(-1);

+    Input i(argv[1]);

+    SDL_Init(SDL_INIT_VIDEO);

+    atexit(SDL_Quit);

+    width = i.readU16();

+    height = i.readU16();

+    i.seek(12, SEEK_CUR);

+    SDL_Surface * s = SDL_SetVideoMode(width, height, 24, 0);

+    pixels = (unsigned char *) s->pixels;

+    for (x = 0; x < 256; x++) {

+        for (y = 0; y < 3; y++) {

+            palette[x][y] = i.readU8();

+        }

+        i.seek(1, SEEK_CUR);

+    }

+    for (y = 0; y < height; y++) {

+        for (x = 0; x < width; x++) {

+            c = i.readU8();

+            pixels[(y * width + x) * 3 + 0] = palette[c][2];

+            pixels[(y * width + x) * 3 + 1] = palette[c][1];

+            pixels[(y * width + x) * 3 + 2] = palette[c][0];

+        }

+    }

+

+    *strchr(argv[1], '.') = 0;

+

+    sprintf(outname, "%s.bmp", argv[1]);

+

+    SDL_SaveBMP(s, outname);

+

+    SDL_Flip(s);

+

+    SDL_Event event;

+    

+    while(true) {

+        SDL_PollEvent(&event);

+        switch (event.type) {

+        case SDL_QUIT:

+            exit(0);

+        }

+    }

+

+    return 0;

+}

+CODE_ENDS

+

+#else

+CODE_BEGINS

+virtual int startup() throw (GeneralException) {

+    unsigned char * pixels, c;

+    char outname[256];

+    int width, height, x, y;

+

+    if (argc != 2)

+        exit(-1);

+    Input i(argv[1]);

+    SDL_Init(SDL_INIT_VIDEO);

+    atexit(SDL_Quit);

+    i.seek(4, SEEK_SET);

+    i.read(&width, 4);

+    i.read(&height, 4);

+    i.seek(4, SEEK_CUR);

+    SDL_Surface * _s = SDL_SetVideoMode(width, height, 32, 0);

+    SDL_Surface * s = SDL_CreateRGBSurface(SDL_SWSURFACE, width, height, 32,

+        0x000000ff,

+        0x0000ff00,

+        0x00ff0000,

+        0xff000000);

+

+    pixels = (unsigned char *) s->pixels;

+    *strchr(argv[1], '.') = 0;

+

+    i.read(pixels, width * height * 4);

+

+    sprintf(outname, "%s.bmp", argv[1]);

+

+    SDL_SaveBMP(s, outname);

+    SDL_BlitSurface(s, 0, _s, 0);

+

+    SDL_Flip(_s);

+

+    SDL_Event event;

+    

+    while(true) {

+        SDL_PollEvent(&event);

+        switch (event.type) {

+        case SDL_QUIT:

+            exit(0);

+        }

+    }

+

+    return 0;

+}

+CODE_ENDS

+

+#endif

+

+#endif