DGL • Thema anzeigen - [erledigt] Nichts mehr zu sehen :-(

[erledigt] Nichts mehr zu sehen :-(

Moderator: DGL-Team

Seite 1 von 1

[ 1 Beitrag ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

uweq

Betreff des Beitrags: [erledigt] Nichts mehr zu sehen :-(

Verfasst: Mi Nov 07, 2007 20:16

DGL Member

Registriert: Fr Jul 14, 2006 13:08
Beiträge: 117
Wohnort: Berlin

hi leute,

Fehler : Abstand war zu dicht !!! :twisted:

----------------------------------------------------------------------------------------

habe meine Draw-Routine in ein eigenes Object gepackt.
Da wird zwar alles durchlaufen, aber nix mehr auf dem Form angezeigt.
Als es noch in der DrawScene des Forms steckte funktionierte es noch .

Mal bis hierher ganz ohne Source, vielleicht kann man so schon mal sagen,
an was es liegt, denn der Quelltext ist nur "Umgelagert" worden.

Gruß Uwe
PS: Source kann nachgepostet werden.

Code:

 
procedure TGLForm.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
begin
  glMatrixMode(GL_PROJECTION);                            // In die Projektionsmatrix wechseln
  glLoadIdentity;                                         // Identitätsmatrix laden
  glViewPort(0, 0, ClientWidth, ClientHeight);            // Viewport an Clientareal des Fensters anpassen
  gluPerspective(60, ClientWidth/ClientHeight, 1, 128);   // Perspective, FOV und Tiefenreichweite setzen
 
  glMatrixMode(GL_MODELVIEW);                             // In die Modelansichtsmatrix wechseln
  glLoadIdentity;                                         // Identitätsmatrix laden
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);    // Farb- und Tiefenpuffer löschen
 
  DrawScene;
  ShowText;
 
  SwapBuffers(DC);                                        // Hinteren Puffer nach vorne bringen
  Done := False;                                          // Windows denken lassen, das wir noch nicht fertig wären
  inc(Frames);                                            // Nummer des gezeichneten Frames erhöhen
  if GetTickCount - StartTick >= 500 then begin           // FPS aktualisieren
    FPS       := Frames/(GetTickCount-StartTick)*1000;
    Frames    := 0;
    StartTick := GetTickCount
  end;
end;
 

Dies hier im Eventhandler des Forms --> DrawScene ist gemeint, mit dem "Umlagern"

Code:

 
procedure TGLForm.DrawScene;
begin
  glLoadIdentity;
  with GoBrett do begin
    glTranslatef( GetSpalte, GetZeile, GetAbstand );// (-1.5, 0,-6);
    glRotatef( Winkel[wXAchse], -1, 0, 0);
    glRotatef( Winkel[wYAchse],  0,-1, 0);
    glRotatef( Winkel[wZAchse],  0, 0,-1);
  end;
  GoBrett.Draw;
end;
 

Der Rest von DrawScene ist ins GoBrett.Draw gelandet.

Ich hoffe das reicht für einen ersten "Einblick" zur Fehlersuche

Uwe

_________________
Die 3 Totfeinde eines Programmierers ?
a) Tageslicht
b) frische Luft
c) ..und das ständige Gebrüll der Vögel

Nach oben

Seite 1 von 1

[ 1 Beitrag ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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