Dreidimensionales Array darstellen.

[Jens01]

Du solltest Dich hiermit beschäftigen, wenn Du genanntes Tut durch hast :
http://wiki.delphigl.com/index.php/glBegin
Ich würd sagen GL_QUADS und GL_QUAD_STRIP sind wichtig für Dich.

ein Würfel könnte so aussehen :

Delphi-Quellcode:

glBegin(GL_QUADS);
//vorderseite
glVertex3f(0, 0, 0);
glVertex3f(1, 0, 0);
glVertex3f(1, 1, 0);
glVertex3f(0, 1, 0);
//Seite rechts
glVertex3f(0, 1, 0);
glVertex3f(1, 1, 0);
glVertex3f(1, 1, 1);
glVertex3f(0, 1, 1);
//Seite links .. usw
glEnd;

[Muellermilchtrinker]

Hat keiner ein Beispiel für mich???

[Jens01]

Wo hängst Du?
Wenn Du mein Beispiel vervollständigst, hast Du einen ganzen Würfel!
Das ist dasselbe, wie aus dem NeHe Tut, welches blackfin verlinkt hat.
Für viele kleine Würfel mußt Du entweder jeden Würfel einzeln eingeben oder mit einer Schleife die Würfel erzeugen.
Mach mal den ganzen Würfel und guck obs läuft!

[Muellermilchtrinker]

Ich hab jetzt einen großen Cube, aber der ist nicht so schön quadratisch, es ist eher ein Quader.
Dann drehe ich noch so:
Das im Render:

Delphi-Quellcode:

glRotatef(RotateX, 1, 0, 0);
glRotatef(RotateY, 0, 1, 0);
glRotatef(RotateZ, 0, 0, 1);

Und dann ein zweiten Timer mit einem Interval von 1s:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  RotateY := RotateY - 0.15;
  if RotateY <= 0 then RotateY := RotateY + 360;
  RotateX := RotateX - 0.15;
  if RotateX <= 0 then RotateX := RotateX + 360;
end;

Doch leider ist die Drehung sehr ruckelig. Wie bekomme ich das flüssiger??? Und wie bekomme ich den Cube sauber quadratisch.

[Jens01]

Zitat:

Ich hab jetzt einen großen Cube, aber der ist nicht so schön quadratisch, es ist eher ein Quader.

Das wird am Perspektiv-Modus liegen!
Irgendwo wird bei Dir das stehen:
gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping); Entweder gewöhnst Du Dich an den Anblick oder Du nimmst den Ortho-Modus
http://wiki.delphigl.com/index.php/glOrtho
http://wiki.delphigl.com/index.php/Tutorial_2D
Guck Dir bitte gluOrtho2D an.

Zitat:

Doch leider ist die Drehung sehr ruckelig. Wie bekomme ich das flüssiger???

Ich verstehe Deinen Code dazu irgendwie nicht, warum addierst Du die Winkel in der Render-Prod nicht einfach auf?
RotateY := RotateY + 1

[Muellermilchtrinker]

Zitat von Jens01:

Zitat:

Doch leider ist die Drehung sehr ruckelig. Wie bekomme ich das flüssiger???

Ich verstehe Deinen Code dazu irgendwie nicht, warum addierst Du die Winkel in der Render-Prod nicht einfach auf?
RotateY := RotateY + 1

Den Code hab ich aus irgendeinem Tutorial. Wenn ich da jetzt +1 machen, dann sind die Abstände so groß, das ist dann garnicht mehr flüssig.

Zum Orthomodus:
Das versteh ich nicht. Kann mir nicht jemand die Zeile geben und sagen, wo ich das ändern soll???

PS:
Mich kotzt das ganze OpenGL an. Wieso geht das nicht einfacher??? Ich will jetzt endlich mein Programm fertig haben und mich nicht über dieses blöde OpenGL rumärgern.
Ich bräuchte eigentlich nur einen Code, der mir viele kleine Würfel darstellt. Und dann noch mein Array überprüft, ob eine eins, dann soll die Farbe des Würfels anders sein, als wenn dort eine null steht.

[Jens01]

Zitat:

Wenn ich da jetzt +1 machen, dann sind die Abstände so groß, das ist dann garnicht mehr flüssig.

Probier doch einen kleineren Summanden aus, zB 0.15.

if RotateY <= 0 then RotateY := RotateY + 360; Ich glaube, diese Zeile hat in Deinem Code den Ärger gemacht.

Zitat:

Zum Orthomodus:
Das versteh ich nicht. Kann mir nicht jemand die Zeile geben und sagen, wo ich das ändern soll???

Wenn Du den Code aus dem Tut abgetippt hast, dann mußt Du die diese Zeile :
gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping); mit gluOrhto2D ersetzen.

Zitat:

Mich kotzt das ganze OpenGL an.

Ich hatte doch gesagt, dass OpenGL etwas länger dauert bis es läuft! Das ist 3D Grafik und dafür braucht man eben etwas. Wenn es kannst, dann gibt es Ruhm, Ehre und Anerkennung!