Dreidimensionales Array darstellen.

[blackfin]

Zitat:

GLScene

Ich finde, GLScene ist mit Vorsicht zu geniessen.
Zum "mal schnell was zusammenklicken" mag das ganz nett sein und es hat wirklich mächtige Funktionen, allerdings lässt die Performance ganz schön zu wünschen übrig, sobald man Shader benutzt (für jedes Material und jedes Objekt wird der einzeln Shader initialisiert->gerendert->finalisiert anstatt Objekte mit dem gleichen Shader in einem Aufwasch zu rendern), was das K.O. für jede moderne Applikation ist. Und um das gerade zu biegen, muss man tief in den Source
Ausserdem verstecken sich in GLScene massig Bugs, die extrem nerven können. Und hat man dann keine Ahnung von OpenGL, so ist man fast hoffnungslos verloren.
Ich finde die Idee dahinter wirklich gut und verwende es teilweise auch, aber man muss meiner Meinung nach vorher schon in OpenGL halbwegs firm sein, um die Bugs und Fallstricke suchen und eliminieren zu können.

@Müllermilchtrinker: Willst du dir ne Anzeige für einen LED-Cube bauen?
Sollte ich die Tage mal Zeit haben, wurschtel ich mal ne Routine zusammen.

Generell sollte dir dabei aber auch folgendes NeHe-Tutorial helfen:
http://nehe.gamedev.net/data/lessons....asp?lesson=05

Ganz unten gibts dafür auch einen Delphi-Quellcode.

Zitat:

Meine Frage jetzt, wie kann ich das ganze auf einem Panel zeichnen

Du verwendest das Handle des Panels für das Erstellen des OpenGL-Context.

[turboPASCAL]

Ich habe da mal etwas vorbe...

So etwas ?
http://www.delphipraxis.net/838301-post10.html

[Muellermilchtrinker]

Ihr habt's erraten. Soll eine Mustererstellung für meinen LED Cube werden. Aber der ist nur 5³. Es steht bis jetzt alles, außer die 3D Ansicht.
Das mit dem Panel hat sich erledigt.

[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.