DGL • Thema anzeigen - Render abgehackt

Render abgehackt

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Jerk

Betreff des Beitrags: Render abgehackt

Verfasst: So Okt 05, 2008 22:08

DGL Member

Registriert: Fr Dez 28, 2007 20:24
Beiträge: 62
Wohnort: Berlin

Ich benutze folgenden Code:

Code:

 
unit OpenGlRender;
 
interface
uses dglopengl,
  windows,
  classes,
  sysutils,
  ExtCtrls,
  forms;
type
  TOGLRender = class
  private
    procedure Render(Sender: Tobject; var done: boolean);
  var
    DC                        : HDC;              //Handle auf Zeichenfläche
    RC                        : HDC;              //Rendering Context
    Client                    : TPanel;
    FPS                       : Integer;
    TimeDif                   : Integer;
    FrameCount                : Integer;
    
    public
   constructor Create(Panel: TPanel);
   destructor Destroy;
 
  end;
implementation
uses mainform;
 
constructor TOGLRender.Create(Panel: TPanel);
begin
  Client := Panel;
  DC := GetDC(Client.Handle);
  if not InitOpenGL then Application.Terminate;
  RC := CreateRenderingContext(DC,
    [opDoubleBuffered],
    32,
    24,
    0, 0, 0,
    0);
  FPS := 0;
  TimeDif := 0;
  FrameCount := 0;
  ActivateRenderingContext(DC, RC);
  glClearColor(0, 0, 0, 1.0);                     //Hintergrundfarbe: Hier ein leichtes Blau
  //glEnable(GL_DEPTH_TEST);                      //Tiefentest aktivieren
  //glEnable(GL_CULL_FACE);
  Application.OnIdle := Render;
end;
 
procedure TOGLRender.Render(Sender: Tobject; var done: boolean);
begin
  FPS := GetTickCount;
  //sleep(1);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glOrtho(0, Client.ClientWidth, 0, Client.ClientHeight, 0, 128);
  glBegin(GL_QUADS);
    glColor3f(1, 0, 0);
    glVertex3f(0, 0, 0);
    glColor3f(0, 1, 0);
    glVertex3f(100, 0, 0);
    glColor3f(0, 0, 1);
    glVertex3f(Timedif, Timedif, 0);
    glColor3f(1, 1, 0);
    glVertex3f(0, 100, 0);
  glEnd;
 
 
  SwapBuffers(DC);
  inc(FrameCount,1);
  TimeDif := Timedif + GetTickCount - FPS;
  if TimeDif >= 1000 then
  begin
   FPS := FrameCount;
   Dec(Timedif,1000);
   FrameCount := 0;
   Form1.Caption:= Inttostr(FPS);
  end;
  done := False;
end;
 
destructor TOGLRender.Destroy;
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(GetDesktopWindow, DC);
end;
end.
 

Im Create wird halt nen Panel übergeben auf dem dann gerendert wird.
Clearbuffer hagbe ich rausgenommen um einen "übermal" effekt zu erzielen. Jedenfalls, wenn ich das Programm dann starte, das heisst nen einfaches Form mit nem Panel, rendert er erst flüssig nach 3 Sekunden vorher sehr abgehackt.

Wodran liegt das?

Nach oben

The-Winner

Betreff des Beitrags:

Verfasst: So Okt 05, 2008 22:21

DGL Member

Registriert: Di Jun 06, 2006 09:59
Beiträge: 474

Es ist empfehlenswert nur einmal pro frame die Zeit abzufragen. Sonst rechnest du die Zeit zwischen zwei onidle aufrufen nicht ein. Es gibt hier im Forum viele Threads zu Timebased movement mit günstigeren Lösungen für die Zeitmessung.
Außerdem ist deine Verwendung der fps variablen ein echter codinghorror.

_________________

Nach oben

Jerk

Betreff des Beitrags:

Verfasst: So Okt 05, 2008 22:27

DGL Member

Registriert: Fr Dez 28, 2007 20:24
Beiträge: 62
Wohnort: Berlin

Das is nur nen Versuch weil ich nich soviele Variablen Deklarieren wollte. Selbst wenn ich es ordentlich mache (Copy und Paste aus Tutorial 1) ändert es nichts -.-

Ok nachdem ich Dec und Inc jeweils durch x:= x +/- a geändert hab geht es...

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 8 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.