Minimal OGL Framework

[Luuk van Venrooij]

Hi All,

I couldn`t get my old ogl template to compile anymore with delphi 2009 do to some xml libs I used. Also it had gotten pretty cluttered over the years so I decided to write a new minimal template. It has:

- OGL 3.2 backwards competible (when supported)render window with input
- FPS camera
- Rendering of text
- Loading of textures

Source is only 20 kb in size Source like always is LGPL.

http://www.genesisdevice.net/downloads/framework.zip

Grz

Luuk

[Brainer]

Let me make it clear - is this template OpenGL 3.x compatible?

[chronozphere]

Cool... thanks for this one.

[XProger]

Most minimal ;)
[code=pascal] program min_ogl;

uses
Windows, OpenGL;

var
pfd : TPixelFormatDescriptor;
DC : HDC;
begin
// Creating window
DC := GetDC(CreateWindowEx(0, 'EDIT', nil, WS_POPUP or WS_VISIBLE, 0, 0, 640, 480, 0, 0, 0, nil));
ShowCursor(False); // hide cursor
// OpenGL initialization
pfd.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
SetPixelFormat(DC, ChoosePixelFormat(DC, @pfd), @pfd);
wglMakeCurrent(DC, wglCreateContext(DC));
// Main Loop
while GetAsyncKeyState(27) = 0 do
begin
glBegin(GL_QUADS);
glColor3f(1, 0, 0); glVertex2f(-0.4, -0.4);
glColor3f(0, 1, 0); glVertex2f( 0.4, -0.4);
glColor3f(0, 0, 1); glVertex2f( 0.4, 0.4);
glColor3f(1, 0, 1); glVertex2f(-0.4, 0.4);
glEnd;
SwapBuffers(DC);
end;
end.[/code]

[Brainer]

XProger, AFAIK it's not OpenGL 3.x compatible.

[chronozphere]

Indeed. I believe glVertex is deprecated.

But it is a nice piece of code. Shows how easy it is to setup OGL.