DGL • Thema anzeigen - Problem mit glTranslatef

Problem mit glTranslatef

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Dark Avenger

Betreff des Beitrags: Problem mit glTranslatef

Verfasst: Sa Aug 30, 2003 22:39

DGL Member

Registriert: Sa Aug 30, 2003 22:23
Beiträge: 36
Wohnort: Hamburg

Erstmal ein Hallo an alle..

Ich bin gerade mal wieder dabei einen Einstieg in OpenGL zu finden und wollte mir jetzt eine simples Grundprojekt erstellen das ich erstmal immer benutzen kann (also initialiesiren usw).

Einiges hab ich aus dem beginner tuts hier von der seite und andere sachen aus dem Der Entwickler heft (die hatten mal ne 2 teilige einführung).

Normalerweise klappt auch alles bzw. ich finde irgenwann nen passenden hinweis oder so auf meinen fehler aber im mom bin ich fast am abdrehen.

Mein Problem ist das ich einfach nur nen simples viereck zeichnen will und das NICHT angezeigt wird wenn ich vorher mit glTranslate die kamera setze.
Ohne glTranslate funktioniert es allerdings.

Ich hoffe, das mir jemand weiterhelfen kann.

Code:

 
unit glMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OpenGL12,
  AppEvnts, ExtCtrls;
 
type
  TglForm = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    FrameTimer: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
    procedure FrameTimerTimer(Sender: TObject);
  private
    { Private-Deklarationen }
    myDC : HDC;
    myRC : HGLRC;
 
    procedure RenderGL;
  public
    { Public-Deklarationen }
  end;
 
var
  glForm: TglForm;
  Frames : Integer;
 
implementation
 
{$R *.DFM}
 
Procedure TglForm.RenderGL;
begin
  glTranslatef(0.0, 0.0,-4.0);
  glBegin(GL_QUADS);
  glVertex3f(-0.5,-0.5, 0.0);
  glVertex3f(-0.5, 0.5, 0.0);
  glVertex3f( 0.5, 0.5, 0.0);
  glVertex3f( 0.5,-0.5, 0.0);
 glEnd;
end;
 
 
procedure TglForm.FormCreate(Sender: TObject);
var
    myPalette : HPALETTE;
begin
 
 glForm.Height := 600;
 glForm.Width := 800;
 
 if not InitOpenGL then
    raise Exception.Create('Fehler beim Initialisieren von OpenGL!');
 
  myDC := GetDC(Handle);
  myRC:= CreateRenderingContext(myDC, [opDoubleBuffered] ,32, 0, 0, 0, 0, myPalette);
  ActivateRenderingContext(myDC, myRC);
 
  glClearColor(0.0, 0.0, 0.0, 0.0); //Hintergrundfarbe
  glEnable(GL_DEPTH_TEST); //Tiefenpuffer aktivieren
 
end;
 
procedure TglForm.FormDestroy(Sender: TObject);
begin
 DeactivateRenderingContext();
 DestroyRenderingContext(myRC);
 closeOpenGL();
end;
 
procedure TglForm.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 glLoadIdentity;
 
 RenderGL;
 
 SwapBuffers(myDC);
 
 inc(Frames);
 Done := False;   // Wichtig!!!
end;
 
procedure TglForm.FrameTimerTimer(Sender: TObject);
begin
 glForm.Caption := 'OpenGL [Frames: ' + IntToStr(Frames) +']';
 Frames := 0;
end;
 
end.
 

Achso die lösung mit den frames ist die Aktzeptabel oder fürn A****??

mfg
Avenger

_________________
<< Ich werde Ewig leben oder beim Versuch dies zu erreichen, sterben! >>

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Sa Aug 30, 2003 22:49

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

@Viereck :
Die Tatsache das dein Quad nicht angezeigt wird, liegt wohl daran das es hinter der zFar-Plane liegt, da du diese nicht initialisiert hast.Schau dir dazu mal den Befehl gluPerspective an, mit dem man neben dem FOV, dem Ratio und der zNear-Plane auch die zFar-Plane setzen kann.Danach sollte dein Quad auch trotz Translation angezeigt werden.

@Frameanzeige :
Das ist schon gut so, ich mach das auch mittels eines Timers, und in meinen Augen ist das auch die akkurateste Lösung

P.S. : Du machst den selben Fehler den viele (auch oft Fortgeschrittene) machen, du achtest nämlich nicht auf deine Matrizen.Nicht umsonst bietet dir OpenGL eine Projektions- und eine Modelansichtsmatrix, die beide verschiedene Zwecke haben.Deshalb sollte deine Renderfunktion später so aussehen (damit nicht bestimmte Sachen in der falschen Matrix landen und es so Probleme gibt ) :

Code:

procedure Render;
// In die Projektionsmatrix wechseln und z.B. Perspektive setzen
glMatrixMode(GL_PROJECTION);
// Identitätsmatrix laden
glLoadIdentity; 
// Perspektive setzen
gluPerspective(...);
// In die Modelansichtsmatrix wechseln
glMatrixMode(GL_MODELVIEW);
// Identitätsmatrix laden
glLoadIdentity; 
// Objekte zeichnen
...

P.P.S. : Wenn du den Tiefenpuffer nutzen willst, solltest du auch ein Pixelformat verlangen welches dir einen Tiefepuffer anbietet.Deshalb musst du beim vierten Parameter von CreateRenderingContext auch die verlangte Tiefe des Tiefenouffers angebeben (8,16,24, wobei 24 ideal).

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Dark Avenger

Betreff des Beitrags:

Verfasst: Sa Aug 30, 2003 23:08

DGL Member

Registriert: Sa Aug 30, 2003 22:23
Beiträge: 36
Wohnort: Hamburg

Supi danke damit funktioniert es.
Was mich nur irgendwie wundert ist, dass das bei 'Der Entwickler' nicht verwendet wurde. (zumindest am anfang)

Mit den Matritzen bin ich noch gar nicht soweit. Ich wollt mir nur erstmal ne grundlage basteln, ua. da mir das template von der seite ein bischen zu überladen ist.

_________________
<< Ich werde Ewig leben oder beim Versuch dies zu erreichen, sterben! >>

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste

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.