DGL • Thema anzeigen - Totale Anfängerfragen ^^

Totale Anfängerfragen ^^

Moderator: DGL-Team

Seite 1 von 1

[ 13 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

uci

Betreff des Beitrags: Totale Anfängerfragen ^^

Verfasst: Sa Nov 22, 2008 20:55

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

Okay ich bin grade am erarbeiten der Tutorilas und ich blick nicht mehr durch...

Ich habe das quick start Tutorial hinbekommen ... und kann jetzt so tolle dreiecke und vierecke auf jeglich farbigen Hintergrund zeichen .. ich als Anfänger bin ja jetzt schon total begeistert....
Aber,: ich bin grade beim 3. also ich will es einfach nur hinbekommen das sich eine Form um die andere dreht ^^
Also ich habe bisher das gemacht:

Code:

 
unit Weltall;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglOpenGL;
 
type
  TForm1 = class(TForm)
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure IdleHandler(Sender: TObject; var Done: Boolean);
  private
   StartTime, TimeCount, FrameCount  : Cardinal; //FrameCounter
    Frames, DrawTime                  : Cardinal; //& Timebased Movement
    procedure SetupGL;
    procedure Render;
    procedure ErrorHandler;
  public
    DC                                : HDC;  //Handle auf Zeichenfläche
    RC                                : HGLRC;//Rendering Context
  end;
 
var
  Form1: TForm1;
const
  NearClipping = 1;
  FarClipping  = 1000;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  EarthRot:= 0; // Start Drehwinkel der Erde
//Initialisierung von OpenGL
 
 DC:= GetDC(Handle);
  if not InitOpenGL then Application.Terminate;
  RC:= CreateRenderingContext( DC,
                               [opDoubleBuffered],
                               32,
                               24,
                               0,
                               0,
                               0,
                               0);
  ActivateRenderingContext(DC, RC);
  SetupGL;
//  Init;  für Unterprogramme (GlobalInit)
  Application.OnIdle := IdleHandler;
end;
 
procedure TForm1.SetupGL;
begin
  glClearColor(0.3, 0.4, 0.7, 0.0); //Hintergrundfarbe: Hier ein leichtes Blau
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
  glEnable(GL_CULL_FACE);           //Backface Culling aktivieren(damit schneller)
end;
 
procedure TForm1.FormResize(Sender: TObject);
var tmpBool : Boolean;
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  IdleHandler(Sender, tmpBool);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(Handle, DC);
end;
 
 
 
 
procedure TForm1.Render;
 
begin
 
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);     //Farbpuffer und Tiefenpuffer gelöscht
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
glTranslatef(0,0,-10);
  glTranslatef(0,0,0);
  glColor3ub(255,255,0);
  glBegin(GL_TRIANGLES);
      glVertex3f(-1,-1, 0);
      glVertex3f( 1, -1, 0);
      glVertex3f( 0,1, 0);
  glEnd();
 
  glRotatef(EarthRot,1,-1,0);     /???
  glTranslatef( -1,  0,  0);
  glPushMatrix;
  glScalef(0.5,0.5,0.5);
  glColor3ub(0,0,255);
  glBegin(GL_TRIANGLES);
      glVertex3f(-1,-1, 0);
      glVertex3f( 1, -1, 0);
      glVertex3f( 0,1, 0);
  glEnd();
  glPopMatrix;
 
  SwapBuffers(DC);
end;
 
procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
 
begin
 
  StartTime:= GetTickCount;
  Render;
  DrawTime:= GetTickCount - StartTime;
  Inc(TimeCount, DrawTime);
  Inc(FrameCount);
 
  if TimeCount >= 1000 then begin
    Frames:= FrameCount;
    TimeCount:= TimeCount - 1000;
    FrameCount:= 0;
    Caption:= InttoStr(Frames) + 'FPS';
    ErrorHandler;
  end;
 
  Done:= false;
end;
 
procedure TForm1.ErrorHandler;
begin
  Form1.Caption := gluErrorString(glGetError);
end;
 
end.
 

Nun was Soll ich machen?
Ich habe mir auch schon das Beispiel aus dem SDL packet angeschaut aber jetzt verstehe ich gar nix mehr...

Vielen Dank ,
Lucas

Edit by i0n0s:
Pascal-Tags

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Sa Nov 22, 2008 22:44

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Das mit dem Drehen ist für jemand Neues immer recht schwer.

Jedes Objekt solltest du für sich behandeln. Also wenn du ein Dreieck hast welches in der Bildmitte sich um sich selbst drehen soll, dann programmier das. Wenn du jetzt ein anderes Objekt haben möchtest, was sich um das Dreieck dreht, dann mach folgendes:

Vor dem Dreieck-Dreh-Code machst du glPushMatrix(). Nach dem du das Dreieck gezeichnet hast machst du glPopMatrix. Jetzt schreibst du den zweiten Drehcode, so als wäre das Dreieck nicht da. Schon sollte es gehn.

Ansonsten kann ich dir zur Funktionsweise der Matrizen noch das Tutorial_Matrix2 ans Herz legen. Hat viele Bilder.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

uci

Betreff des Beitrags:

Verfasst: So Nov 23, 2008 14:34

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

okay ich hab grade noch mal was gelesen... ich muss das mit Timebased Movement machen oder ?
also der Rotate code musss mit einer Variablen zusammenhängen die sich stätig ändert?

okay ich hab echt noch gar keine Ahnung aber es wäre klasse wenn ihr mir trozdem Antworten könnten

Vilen Dank

Lucas

Nach oben

Flash

Betreff des Beitrags:

Verfasst: So Nov 23, 2008 15:16

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Timebased Movement ist dazu da, unterschiedliche Hardware auszugleichen. Wenn du einen Rechner hast der lange braucht um ein Bild zu erzeugen, dann musst du pro zeiteinheit um einen größeren Winkel rotieren als wenn du einen Rechner hast der sehr schnell ist.

Für deine Zwecke gehts erstmal ohne. Mach das mal mit dem glPush/PopMatrix.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

uci

Betreff des Beitrags:

Verfasst: Mo Nov 24, 2008 11:31

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

entschuldiege aber ich verstehe es immer noch nicht

Code:

 
glTranslatef(0,0,-10);
 glRotatef(45,0,0,0);
  glColor3ub(255,255,0);
  glBegin(GL_TRIANGLES);
      glVertex3f(-1,-1, 0);
      glVertex3f( 1, -1, 0);
      glVertex3f( 0,1, 0);
  glEnd();
 

wenn ich die werte bei Rotatef ändere, ändert sich zwar die ausrichtung des Dreiecks aber bewegen tut sich da gar nix...

Bitte helft mir :roll:

lg Lucas

Nach oben

R2-D2

Betreff des Beitrags:

Verfasst: Mo Nov 24, 2008 13:28

DGL Member

Registriert: So Nov 23, 2008 13:56
Beiträge: 16

Hi uci,
es ist kein Wunder, dass bei glRotatef() keine dynamische Bewegung entsteht. Normalerweise gibt man ja folgendes an:

glRotatef(ZuDrehenderWinkel, umAchseX, umAchseY, umAchseZ);

Du gibst aber nur einen festen Wert beim zu drehenden Winkel an und keinen Wert der angibt um welche Achse sich dein Objekt drehen soll. Um zu bestimmen um welche Achse sich das Objekt drehen soll gibt man eine 1 an. Eine 0 steht dann für das Gegenteil.Möchtest du ein Objekt drehen muss sich der Wert in ZuDrehenderWinkel jedes mal erhöhen. Du brauchst also eine Variable die seinen eigenen aktuellen Wert + Geschwindigkeit rechnet.

Code:

glTranslatef(0,0,-10); 
Rotation = Rotation + 0.01;         // hier die fehlende Variable
 glRotatef(Ratation,0,1,0);           // Variable einsetzen und Rotationsachse angeben
  glColor3ub(255,255,0); 
  glBegin(GL_TRIANGLES); 
      glVertex3f(-1,-1, 0); 
      glVertex3f( 1, -1, 0); 
      glVertex3f( 0,1, 0); 
  glEnd(); 

Du darfst natürlich nicht vergessen Rotatation zu initialisieren.
Das mit den Timebased Movement lässt sich einfach(hoffentlich ^^) erklären.

In einen Spiel soll ein Objekt einmal in einer Sekunde um sich selbst rotieren. Wenn du wie oben, einfach bei einer Variablen "Rotation = Rotation + 0.01" schreibst, bewegt sich vielleicht auf deinen PC das Objekt in einer Sekunde einmal um sich selber. Wenn aber jemand anderes einen doppelt so schnelleren PC hat, dreht sich bei ihm das Objekt 2 mal in einer Sekunde. Das Spiel würde also doppelt so schnell laufen, weil er ja auf seinen PC auch doppelt so schnell "Rotation = Rotation + 0.01" aufruft.
Um das zu verhindern benutzt man Timebased Movement.
Man misst eine Startzeit am Anfang der Prozedur und am Ende, nachdem du den Buffer leerst, misst du noch einmal die aktuelle Zeit und ziehst davon die Startzeit ab. Damit hast du dann die Zeit die dein Programm gebraucht hat um einmal die Funktion zu durchlaufen. Diesen Wert multiplizierst du mit deiner Geschwindigkeit. Also: "Rotation = Rotation+(0.01*DrawTime)" . DrawTime ist dann sozusagen die Variable die, die Zeitdifferenz enthällt. Ein langsamer Computer braucht nun mehr Zeit für die Berechnung in deiner Renderfunktion. Damit ist dann auch der Wert in DrawTime größer. Es vergeht ja schließlich mehr Zeit zwischen der ersten und zweiten Messung. Also bewegt sich das Objekt auch in größeren Abständen pro Renderdurchlauf. Bei einen schnelleren Computer vergeht weniger Zeit. Dafür kann dieser ja auch mehr Bilder ausgeben. Wenn die Zeit in DrawTime nun kürzer ist, bewegt sich dieser auch pro Renderdurchlauf in nicht so großen Abständen.

Beispiel:
PC A durchläuft 100 mal die Renderschleife pro Sekunde. Er braucht also
pro Renderdurchlauf 0.01 Sekunden. Das ist der Wert für DrawTime.
PC B durchläuft 50 mal die Renderschleife pro Sekunde. Er braucht also
pro Renderdurchlauf 0.02 Sekunden. Das ist der Wert für DrawTime.

Wenn man nun "Rotation = Rotation + (0.5 * DrawTime)" rechnet kommen beide nach einer
Sekunde auf die gleichen Wert da ja PC A die Schleife 100 mal durchläuft in 0.01(DrawTime)
Sekunden und PC B nur 50 mal in 0.02(DrawTime) Sekunden. Ob man nun 100 mal 0.01
rechnet oder 50 mal 0.02 ist vollkommen egal, da beide am Ende den gleichen Wert haben.

So alles doppelt erzählt aber hoffe, dass es einleuchtend ist. ^^
Gibt auch sehr gute Erklärungen hier im Wiki.

mfg R2-D2

Nach oben

uci

Betreff des Beitrags:

Verfasst: Mo Nov 24, 2008 16:51

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

hehe danke jetzt hab ichs verstanden

bin grade selbst drauf gekommen das ich ja mal eine schleife benutzen sollte... ^^

bin noch nicht solange am programmieren..
aber man soll sich ja immer hohe ziele setzen

Vilen Dank
lg Lucas

Nach oben

uci

Betreff des Beitrags:

Verfasst: Di Nov 25, 2008 00:40

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

Okay jetzt funktioniert es und schon stellen sich mir die nächsten Fragen...

das Problem : immoment habe ich die "Rotation" über Key_Press angegeben... wie bekomme ich das hin, dass diese über eine Schleife läuft.?
Vor allem wie soll diese schleife aussehen, da sie ja nie zu ende gehen soll...???

2. Problem : Nach dem ich ein 3dimensionales Dreieck gezeichnet habe, hat das nächste Objekt was ich zeichne auf einmal die Form des vorherigen Dreieckes irgendwie in ausgeschnittener Form noch in sich ( man sieht den Hintergrund durch den Würfel.)...

Hier der Quelltextauszug:

Code:

 
glTranslatef(0,0,-10);
 
//  sonrot:= sonrot + (0.1*Drawtime);  dafür bräucht ich schleife
glTranslatef(0,0,weite);
  glRotatef(sonrot,0,1,0);
  glRotatef(sonrot2,1,0,0);
glTranslatef(0,0,weite2);
  glDisable(GL_CULL_FACE);            //hat das hiermit was zu tun???
  glColor3ub(255,255,0);
  glBegin(GL_TRIANGLES);
      glVertex3f(-1,-1, 1);
      glVertex3f( 1, -1, 1);
      glVertex3f( 0,1, 0);
  glEnd();
  glColor3ub(255,0,0);
  glBegin(GL_TRIANGLES);
      glVertex3f(-1,-1, -1);
      glVertex3f( 1, -1, -1);
      glVertex3f( 0,1, 0);
  glEnd();
  glColor3ub(0,0,0);
  glBegin(GL_TRIANGLES);
      glVertex3f(1,-1, -1);
      glVertex3f( 1, -1, 1);
      glVertex3f( 0,1, 0);
  glEnd();
  glColor3ub(0,255,0);
  glBegin(GL_TRIANGLES);
      glVertex3f(-1,-1, -1);
      glVertex3f(-1,-1, 1);
      glVertex3f( 0,1, 0);
  glEnd();
  glColor3ub(0,0,255);
    glBegin(GL_QUADS);
      glVertex3f(-1,-1, -1);
      glVertex3f(-1,-1, 1);
      glVertex3f( 1,-1, 1);
      glVertex3f( 1,-1, -1);
  glEnd();
 
  glRotatef(sonrot,0,1,0);
  glTranslatef( -5,  3,  0);
  glPushMatrix;
  glColor3ub(0,0,255);
  drawquads;                        //hier der Problemwürfel!
  glPopMatrix;
 
  SwapBuffers(DC);
 

und so hab ich das Immoment mit der Variablen gemacht:

Code:

 
if Key = 'a' then
sonrot := sonrot+5;

Nach oben

MatReno

Betreff des Beitrags:

Verfasst: Di Nov 25, 2008 11:08

DGL Member

Registriert: Mo Jan 31, 2005 11:02
Beiträge: 432
Wohnort: Rheinlandpfalz

Hallo,
deine Schleife ist die Render-Procedure, diese wird ja im OnIdle aufgerufen (gehe ich jetzt mal von aus).

Code:

  ...
  glTranslatef(0,0,-10);
 
  sonrot:= sonrot + (0.1*Drawtime);
  If (sonrot > 360) then sonrot := sonrot - 360;
 
  glTranslatef(0,0,weite);
  glRotatef(sonrot,0,1,0);
  ...

Was mir noch aufgefallen ist:
1. Du hast in deinem Code 2x glRotatef(sonrot,0,1,0); stehen, also einmal vor dem Zeichnen des dreidim. Dreiecks (=Pyramide?) und einmal vor dem Würfel, d.h. der Würfel dreht sich 2mal so schnell, wie dein erstes Objekt.
Aber vllt ist dies ja gewünscht...

2. Du kannst die ersten 4 Triangles in einen einzigen glBegin(GL_TRIANGLES); - glEnd(); Block zusammenfassen:

Code:

 
glBegin(GL_TRIANGLES);
  glColor3ub(255,255,0); 
  glVertex3f(-1,-1, 1);
  glVertex3f( 1, -1, 1);
  glVertex3f( 0,1, 0);
  glColor3ub(255,0,0);
  glVertex3f(-1,-1, -1);
  glVertex3f( 1, -1, -1);
  glVertex3f( 0,1, 0);
  glColor3ub(0,0,0);
  glVertex3f(1,-1, -1);
  glVertex3f( 1, -1, 1);
  glVertex3f( 0,1, 0);
  glColor3ub(0,255,0);
  glVertex3f(-1,-1, -1);
  glVertex3f(-1,-1, 1);
  glVertex3f( 0,1, 0);
glEnd(); 
 

Das glDisable(GL_CULL_FACE); sagt aus, dass du für alles nachfolgende Hinter- und Vorderseite zeichnen willst, bzw. dass eine Seite (vermutlich die hintere, festgelegt mit glCullFace(...)) nicht weggecullt wird.
Da du aber, soweit ich sehen kann, nirgendwo glEnable(GL_CULL_FACE); aufrufst, bleibt diese Eigenschaft deaktiviert, für alle Objekte, die du danach zeichnen solltest, dies gilt insbesondere für jeden weiteren Durchlauf von deiner Render-Schleife.

_________________
http://texelviews.delphigl.com

Nach oben

uci

Betreff des Beitrags:

Verfasst: Di Nov 25, 2008 14:10

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

Hallo, vielen Dank erstmal!

Zitat:

deine Schleife ist die Render-Procedure, diese wird ja im OnIdle aufgerufen (gehe ich jetzt mal von aus).

ähm ja da ist aber keinerlei schleife im onidle... (siehe erster eintrag)

(da ist auch gl_eneble Cull_Dings)

Außerdem erklärt das immer noch nicht warzum meine quader nicht vollständig sind... ich poste nachher mal ein bild...

lg Lucas

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Di Nov 25, 2008 15:28

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

OnIdle wird immer wieder aufgerufen. Das ist also quasi wie eine schleife.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

uci

Betreff des Beitrags:

Verfasst: Di Nov 25, 2008 15:51

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

ah mal noch ne ganz kurze Frage wenn ich onIdle als procedur schreibe muss ich das bei der Unit irgendwo in die Ereignisse schreiben?

Nach oben

uci

Betreff des Beitrags:

Verfasst: Di Nov 25, 2008 16:09

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

JUHUUUUU es funktioniert Dannke euch viel mals....

auf zum nächsten Tutorial

Nach oben

Seite 1 von 1

[ 13 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.