#include <sys/types.h>
#include <SDL.h>
#include <generic.h>
#include <Main.h>
#include <Input.h>
#include "glbase.h"
#include "gltexture.h"
#include "glfont.h"
#include "engine.h"

CODE_BEGINS
virtual int startup() throw (GeneralException) {
    verbosity = M_INFO;
    mogltk::glbase::setup();
    new Archive("datas.paq");
    Input * fonte = new Input("font-2.bin");
    mogltk::font font(fonte);
    delete fonte;
    
    verbosity = M_INFO;
    
    Input * pattern = new Input("pattern6.tex");
    mogltk::texture * mytex = new mogltk::texture(pattern, true);
    delete pattern;
    
    while (!mogltk::engine::quitrequested()) {
	mogltk::glbase::Enter2DMode();
    
	mytex->Bind();
	glBegin(GL_TRIANGLE_STRIP);
	glColor3d(0, 0, 0);
	glTexCoord2i(0, 0);
	glVertex2f(50, 50);
	glColor3d(1, 0, 0);
        glTexCoord2i(511, 0);
	glVertex2f(561, 50);
	glColor3d(0, 1, 0);
	glTexCoord2i(0, 511);
	glVertex2f(50, 561);
	glColor3d(0, 0, 1);
	glTexCoord2i(511, 511);
	glVertex2f(561, 561);
	glEnd();
    
	mogltk::texture::Unbind();
	glBegin(GL_TRIANGLE_STRIP);
	glColor3d(0, 0, 0);
	glVertex2f(400, 100);
	glColor3d(1, 0, 0);
	glVertex2f(450, 100);
	glColor3d(0, 1, 0);
	glVertex2f(400, 150);
	glColor3d(0, 0, 1);
	glVertex2f(450, 150);
	glEnd();
    

	glBegin(GL_TRIANGLE_STRIP);
	CORNFLOWERBLUE.Bind();
	glVertex2f(  5,  5);
	DEEPSKYBLUE.Bind();
	glVertex2f(150,  5);
	MIDNIGHTBLUE.Bind();
	glVertex2f(  5, 80);
	NAVY.Bind();
	glVertex2f(150, 80);
	glEnd();
	font.setshadow(1);
	font.putcursor(10, 30);
	font.setcolor(WHITE);
	font.printf(
	    "PixelPawa!\n"
	    "It works!!\n"
	    "I can't believe it!\n"
	);
	mogltk::glbase::Leave2DMode();
	mogltk::glbase::Flip();
    }
    
    delete mytex;
    
    return 0;
}
CODE_ENDS