Extensionausgabe - Versionsgeschichte

Glawesome: /* Siehe auch */ glCapsViewer verlinkt

2013-11-29T16:37:55Z

‎Siehe auch: glCapsViewer verlinkt

DGLBot: Der Ausdruck ''(.*?)'' wurde ersetzt mit ''$1''.

2009-03-10T18:04:15Z

Der Ausdruck ''<pascal>(.*?)</pascal>'' wurde ersetzt mit ''<source lang="pascal">$1</source>''.

Lord Horazont am 16. August 2007 um 10:46 Uhr

2007-08-16T10:46:06Z

AL am 12. November 2005 um 20:14 Uhr

2005-11-12T20:14:28Z

Neue Seite

Manchmal ist es nützlich, die Fähigkeiten einer Grafikkarte herauszufinden, also welche Extensions unterstützt werden, was die maximale Texturgröße ist, usw. Darum ist es immer wieder hilfreich, ein Programm auf der Platte zu haben, dass diese Eigenschaften z.B. in Form einer Textdatei ausspukt.

{{Hinweis|Damit der Code hier funktioniert, muss natürlich OGL initialisiert sein}}

<pascal>
Procedure DumpExtensions(Filename : String);
var
p : PChar;
s, Extensions : String;
TexFile : Textfile;
i : Integer;
a : Array[0..1] of Integer;
b : Boolean;
begin
p := glGetString(GL_EXTENSIONS);
Extensions := p;
AssignFile(TexFile, Filename);
Rewrite(TexFile);
Writeln(TexFile, 'Renderer '+glGetString(GL_RENDERER));
Writeln(TexFile, 'Vendor '+glGetString(GL_VENDOR));
Writeln(TexFile, 'Version '+glGetString(GL_VERSION));
Writeln(TexFile);
glGetIntegerv(GL_MAX_LIGHTS, @i);
Writeln(TexFile, '#Lights ',i);
glGetIntegerv(GL_MAX_CLIP_PLANES, @i);
Writeln(TexFile, '#Clipplanes ',i);
glGetIntegerv(GL_MAX_MODELVIEW_STACK_DEPTH, @i);
Writeln(TexFile, '#Modelview stack depth ',i);
glGetIntegerv(GL_MAX_PROJECTION_STACK_DEPTH, @i);
Writeln(TexFile, '#Projection stack depth ',i);
glGetIntegerv(GL_MAX_TEXTURE_STACK_DEPTH, @i);
Writeln(TexFile, '#Texture stack depth ',i);
glGetIntegerv(GL_MAX_TEXTURE_SIZE, @i);
Writeln(TexFile, 'Max texture size ',i);
glGetIntegerv(GL_MAX_LIST_NESTING, @i);
Writeln(TexFile, 'Max list nesting ',i);
glGetIntegerv(GL_MAX_VIEWPORT_DIMS, @a);
Writeln(TexFile, 'Max viewport dims ', a[0], 'x', a[1]);
glGetIntegerv(GL_MAX_TEXTURE_UNITS_ARB, @i);
Writeln(TexFile, '#Textureunits ',i);
glGetIntegerv(GL_AUX_BUFFERS, @i);
Writeln(TexFile, '#Aux buffers ',i);
glGetBooleanv(GL_DOUBLEBUFFER, @b);
if b then
Writeln(TexFile, 'Doublebuffer [x] ') else
Writeln(TexFile, 'Doublebuffer [ ] ');
glGetBooleanv(GL_Stereo, @b);
if b then
Writeln(TexFile, 'Stereo [x] ') else
Writeln(TexFile, 'Stereo [ ] ');

if Pos('GL_NV_register_combiners', Extensions) <> 0
then
begin
glGetIntegerv(GL_MAX_GENERAL_COMBINERS_NV, @i);
Writeln(TexFile, '#Registercombiners ',i);
end;
Writeln(TexFile, '');
Writeln(TexFile, 'OpenGL extensions');
Writeln(TexFile, '-----------------');
s := Extensions;
While Length(s) > 0 do
begin
i := Pos(' ', s);
If i = 0
then
begin
Writeln(TexFile, s);
s := '';
end
else
begin
Writeln(TexFile, Copy(s, 1, i));
Delete(s, 1, i);
end;
end;
Writeln(TexFile, '-----------------');
CloseFile(TexFile);
end;
</pascal>

[[Kategorie:Anleitung]] [[Kategorie:Technik_oder_Algorithmus]]

@@ Zeile 81: / Zeile 81: @@
 = Siehe auch =
-[[OpenGL-Extensions]]
+[[OpenGL-Extensions]]<br>
 [[Kategorie:Anleitung]] [[Kategorie:Technik_oder_Algorithmus]]

@@ Zeile 3: / Zeile 3: @@
 {{Hinweis|Damit der Code hier funktioniert, muss natürlich OGL initialisiert sein}}
-<pascal>
+<source lang="pascal">
 Procedure DumpExtensions(Filename : String);
 var
@@ Zeile 78: / Zeile 78: @@
       CloseFile(TexFile);
 end;
-</pascal>
+</source>
 = Siehe auch =