Ich möchte hier damit mein MicroGLTemplate (für Win32) zur Verfügung stellen. Das Template ist mit Delphi UND mit FreePascal kompilerbar.
Viel Spass damit

_________________
Behindert ist man nicht, behindert wird man.

Nett und kurz, einen so komprimierten OpenGL Initialisierungscode habe ich noch nicht gesehen, es ist aber alles da, was man so braucht - und dank einer einzigen Polling Loop auch für Ein- und Umsteiger von Turbo Pascal (insbesondere im schulischen EDV Unterreicht ja durchaus noch eingesetzt), die mit Eventhandling noch nicht gar so viel am Hut haben, gut geeignet.
Das Einrücken um jeweils ein einziges Leerzeichen finde ich persönlich etwas unübersichtlich - aber das ist ja schließlich Geschmacks- und Gewohnheitssache. Ich würde sagen, das ist auf jeden Fall ein heißer Kandidat für einen Upload in die DelphiGL Templates, so richtig geeignet zum Angeben ggü. Direct3D.

_________________
Viel Spaß beim Programmieren,
Mars
http://www.basegraph.com/

Ich habe das ganze nochmal mit dem Standard OpenGL Header mit Delphi kompiliert und mit UPX gepackt, und siehe da, die EXE ist super kompakt (siehe Anhang).

_________________
Behindert ist man nicht, behindert wird man.

Ich benutze ein sehr ähnlichen Basecode (ist quasi zusammen mit dem von rosseaux entstanden, nur minimale Unterschiede).
Mit einem solchen Basecode ist es möglich 4kb intros in Delphi/FreePascal zu erzeugen.
Der Basecode ist kompiliert (in Delphi 6, mit ausgestauschten System Units) und komprimiert ca 2,6 kb groß.

Wobei 1,4 kb nicht wirklich viel sind. Um mit aktuellen 4kb Intros mithalten zu können reicht Delphi imho nicht aus, da viel zuviele Sachen die nicht benötigt werden noch mit in die Exe gepackt werden, wie das bei FreePascal aussieht weiß ich nicht.

mfg las

_________________
www.las.eu.tc