DGL • Thema anzeigen - OGL-Source aufräumen

OGL-Source aufräumen

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

GTA-Place

Betreff des Beitrags: OGL-Source aufräumen

Verfasst: So Apr 12, 2009 20:27

DGL Member

Registriert: Sa Dez 30, 2006 20:52
Beiträge: 43
Programmiersprache: Delphi

Hallo und frohe Ostern,

ich mach mich gerade an die Weiterentwicklung von Heiliger Damm, aber irgendwie ist mir der Source zu durcheinander und überfüllt. Könnt ihr mal durchgucken ob ich das alles brauche und das auch in der richtigen Reihenfolge ist? Es ist ja nur ein 2D-Modus nötig:

Code:

procedure CreateRenderContext;
begin
  DC := GetDC(MainForm.Handle);
 
  if not InitOpenGL then MainForm.Close;
 
  RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
  ActivateRenderingContext(DC, RC);
 
  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
  glEnable(GL_BLEND);
 
  glEnable(GL_TEXTURE_2D);            
  glShadeModel(GL_SMOOTH);           
  glClearColor(0.0, 0.0, 0.0, 0.5);   
  glClearDepth(1.0);                 
  glEnable(GL_DEPTH_TEST);            
  glDepthFunc(GL_LEQUAL);                
  glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
  glEnable(GL_LIGHTING);
end;

Code:

procedure TMainForm.FormResize(Sender: TObject);
var
  L, T: Integer;
begin
  L := (ClientWidth div 2) - 400;
  T := (ClientHeight div 2) - 300;
 
  RcWidth  := ClientWidth;
  RcHeight := ClientHeight;
 
  glViewPort(L, T, 800, 600);
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
 
  glOrtho(L, L + 800, L + 600, 0, 1, 128);
 
  glEnable(GL_SCISSOR_TEST);
  glScissor(L, T, 800, 600);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
  glClear(GL_COLOR_BUFFER_BIT);
end;

Code:

procedure Render;
begin
  glClearColor(R,G,B,A);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
  glEnable(GL_TEXTURE_2D);
  glEnable(GL_ALPHA_TEST);
 
  L := (RcWidth / 2) - 400;
  T := (RcHeight / 2) - 300;
 
  glPushAttrib(GL_DEPTH_BUFFER_BIT or GL_ENABLE_BIT);
  glEnable(GL_CULL_FACE);
  glCullFace(GL_BACK);
 
  glDisable(GL_LIGHTING);
  glDisable(GL_TEXTURE_2D);
 
  glMatrixMode(GL_PROJECTION);
    glPushMatrix();
      glLoadIdentity();
 
        glOrtho(0, 800, 600, 0, 0, 128);
 
        glMatrixMode(GL_MODELVIEW);
 
        glPushMatrix();
          glLoadIdentity();
 
      glPushMatrix;
        glTranslated(0, 0, 0);
 
        case rs_CurrentState of
           // ...
        end;
 
      glPopMatrix;
        glMatrixMode(GL_PROJECTION);
        glPopMatrix();
 
      glMatrixMode(GL_MODELVIEW);
      glPopMatrix();
  glPopAttrib()
 
  SwapBuffers(DC);
end;

Bissl Ordnung im System wäre nicht schlecht

Nach oben

Coolcat

Betreff des Beitrags:

Verfasst: Mo Apr 13, 2009 12:19

DGL Member

Registriert: Do Dez 29, 2005 12:28
Beiträge: 2249
Wohnort: Düsseldorf
Programmiersprache: C++, C#, Java

Code:

glEnable(GL_SCISSOR_TEST);
glScissor(L, T, 800, 600);

Du brauchst kein Scissor-Test, wenn der Viewport genauso groß ist.

Ich nehme mal an deine Projektions-Matrix ändert sich nie. Daher brauchst du die auch nur einmal am Anfang zu setzen, bzw. nur immer dann wenn sich die Größe des Viewport ändert.

Sofern du nur diese Render-Methode hast kannst du auch gefahrlos die Modelview-Matrix nur einmal auf glLoadIdentity(); setzen und massenhaft sinnfreie glPush/glPopMatrix einsparen.

Das glPush/glPopAttrib brauchst du nicht, wenn du sowieso alles wieder neusetzt.

_________________
Yeah! :mrgreen:

Nach oben

GTA-Place

Betreff des Beitrags:

Verfasst: Mo Apr 13, 2009 13:00

DGL Member

Registriert: Sa Dez 30, 2006 20:52
Beiträge: 43
Programmiersprache: Delphi

So, mit deiner und mit der Hilfe von Seth, bin ich jetzt soweit:

Code:

procedure CreateRenderContext;
begin
  DC := GetDC(MainForm.Handle);
 
  if not InitOpenGL then
    MainForm.Close;
 
  RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
  ActivateRenderingContext(DC, RC);
 
  // Alpha-Test und Blending
  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
  glEnable(GL_BLEND);
  glEnable(GL_ALPHA_TEST);
 
  // Rückseiten nicht zeichnen
  glEnable(GL_CULL_FACE);
  glCullFace(GL_BACK);
 
  // Textur-Mapping und Shading
  glEnable(GL_TEXTURE_2D);
  glShadeModel(GL_SMOOTH);
 
  // Standardfarbe: Schwarz
  glClearColor(0.0, 0.0, 0.0, 0.5);
  glClearDepth(1.0);
 
  glEnable(GL_DEPTH_TEST);
  glDepthFunc(GL_LEQUAL);
  glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
end;

Code:

procedure TMainForm.FormResize(Sender: TObject);
begin
  RcWidth  := (ClientWidth div 2) - 400;
  RcHeight := (ClientHeight div 2) - 300;
 
  glViewPort(RcWidth, RcHeight, 800, 600);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity();
 
  glClear(GL_COLOR_BUFFER_BIT OR GL_DEPTH_BUFFER_BIT);
end;

Code:

procedure Render;
begin
  glClear(GL_COLOR_BUFFER_BIT OR GL_DEPTH_BUFFER_BIT);
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity();
 
  glOrtho(0, 800, 600, 0, 0, 128);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity();
 
  glPushMatrix;
 
    case rs_CurrentState of
      // ...
    end;
 
  glPopMatrix;
 
  SwapBuffers(DC);
end;

glOrtho ändert sich ja nicht und bleibt auf 800x600. Reicht dann der Teil in OnResize so?

Nach oben

Aya

Betreff des Beitrags:

Verfasst: Mo Apr 13, 2009 13:19

DGL Member

Registriert: Di Dez 03, 2002 22:12
Beiträge: 2105
Wohnort: Vancouver, Canada
Programmiersprache: C++, Python

Das glPushMatrix und glPopMatrix kannst du dir auch sparen, du greifst ja nach dem Pop nichtmehr auf die Matrix zu, wozu sie also speichern..?

Und wie gesagt, das setzen der Ortho-Projektion reicht im resize, sprich das braucsht du im Render-loop auch nicht jedesmal tun

Code:

procedure Render;
begin
  glClear(GL_COLOR_BUFFER_BIT OR GL_DEPTH_BUFFER_BIT);
  glLoadIdentity();
  case rs_CurrentState of
    // ...
  end;
  SwapBuffers(DC);
end;

Nach oben

GTA-Place

Betreff des Beitrags:

Verfasst: Di Apr 14, 2009 07:53

DGL Member

Registriert: Sa Dez 30, 2006 20:52
Beiträge: 43
Programmiersprache: Delphi

Danke. Von 48 auf 10 Zeilen in Render; macht das ganze deutlich übersichtlicher

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

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.