summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/test.cc2616
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
generated by cgit v1.2.3 (git 2.39.1) at 2025-01-18 18:31:21 +0000