Dynamic Lightning

[Micronix-TRSI]

Hope you like the Delphi / OpenGL oldschool example!

[paul_nicholls]

Looks pretty, not that there is very much to see with all that darkness! LOL

[de_jean_7777]

Looks pretty, not that there is very much to see with all that darkness! LOL

For me it looked nice for a simple example. As for the darkness, it's not that dark, and the underlying textured quad is visible even when not under direct light.

[paul_nicholls]

It might be because I turned down the brightness on my 30" monitor here at work - it was too bright for working the whole day LOL

[Lifepower]

Are you sure that there are any lights? Because here it looked like a simple quad with static ambient light.

[wagenheimer]

I saw the lights! =)

[Rodrigo Robles]

Really nice. Remembers the oldschool Assembly demo parties.
The source is a good example for using directional lighting.
Using Freepascal would allow some multiplatformity.

[farcodev]

cool work !

[deathshadow]

Something's not kosher with how it works here -- after about 3 seconds the cursor appears over the animation as a hourglass, then windows complains about it not responding WHILE it's still running. Taking a guess I'd say the 'while' without a proper wm handler could have something to do with it. GetAsync is cute, it's not a substitute for actually calling windows for input handling.

since last I checked, that's just a waste of time. Likewise there's no reason to set the clear color or matrix mode on every loop.


Still VERY cool demo of openGL lighting.

-- edit -- doh, my bad on the push/popmatrix, removed that part. What I get for posting at 4AM.

[deathshadow]

Oh, and lighting is not showing up here on high end cards (like my GTX 560ti) because you declare the glLight settings before you've set up the perspective and viewport properly. Works ok on my GMA 950 netbook, and on my Quadro NVS 320 equipped lappy, but my desktop? No lighting.

I'm working on porting this to FPC right now -- using my OpenGL kind-of framework.