DGL • Thema anzeigen - Ein Dreieck verschwindet!

Ein Dreieck verschwindet!

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Mishra

Betreff des Beitrags: Ein Dreieck verschwindet!

Verfasst: Mi Feb 15, 2006 20:46

DGL Member

Registriert: Di Feb 07, 2006 20:22
Beiträge: 27

Hallo Leute,

ich habe ein Programm geschrieben, welches 2 Dreiecke erzeugt. Das 1. rotiert um die eigene Achse und das zweite um das Große. Das Problem ist, dass das 2. nach kurzer Zeit verschwindet! Schaut euch mal bitte den Quellcode an, ob ihr das Problem findet, Danke! (Rot1 und Rot2 sind die Rotationsfaktoren.)

Code:

 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglOpenGL;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Render;
    procedure OnIdle(Sender: TObject; var Done: Boolean);
    procedure GoToFullScreen(pWidth, pHeight, pBPP, pFrequency : Word);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
 
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  DC, RC :HDC;
  Rot1,Rot2 :real;
  Zeitfaktor :double;
  Berechnungszeit :longword;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.GoToFullScreen(pWidth, pHeight, pBPP, pFrequency : Word);
var
 dmScreenSettings : DevMode;
begin
// Fenster vor Vollbild vorbereiten
WindowState := wsMaximized;
BorderStyle := bsNone;
ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
with dmScreenSettings do
 begin
 dmSize              := SizeOf(dmScreenSettings);
 dmPelsWidth         := pWidth;                    // Breite
 dmPelsHeight        := pHeight;                   // Höhe
 dmBitsPerPel        := pBPP;                      // Farbtiefe
 dmDisplayFrequency  := pFrequency;                // Bildwiederholfrequenz
 dmFields            := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL or DM_DISPLAYFREQUENCY;
 end;
if (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN) = DISP_CHANGE_FAILED) then
 begin
 MessageBox(0, 'Konnte Vollbildmodus nicht aktivieren!', 'Error', MB_OK or MB_ICONERROR);
 exit
 end;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
GoToFullscreen(1024, 768, 32, 75);
InitOpenGL;
 
DC:=GetDC(Handle);
 
RC:=CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
ActivateRenderingContext(DC, RC);
//Hintergrundfarbe einstellen:
glClearColor(0.0, 0.0, 0.0, 0.0);
Application.OnIdle:=Onidle;
Rot1:=0;
Rot2:=0;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
DeactivateRenderingContext;
DestroyRenderingContext(RC);
ReleaseDC(Handle,DC);
ChangeDisplaySettings(devmode(nil^), 0);
end;
 
procedure TForm1.Render;
begin
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glViewport(0, 0, ClientWidth, ClientHeight);
  gluPerspective(60, ClientWidth/ClientHeight,1, 128);
  glMatrixMode(GL_Modelview);
  glLoadIdentity;
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glTranslatef(0, 0,-5);
  glpushMatrix;
        Rot1:= Rot1 +(Zeitfaktor/1)*20;
        glrotatef(Rot1,0,1,0);
        //Zeichnen
        glBegin(GL_TRIANGLES);
        glColor3f(1, 0, 0); glVertex3f(-1,-1, 0);
        glColor3f(0, 0, 1); glVertex3f( 1,-1, 0);
        glColor3f(0, 1, 0); glVertex3f( 0, 1, 0);
        glEnd;
  glPoPMatrix;
        Rot2:= Rot2 +(Zeitfaktor/1)*20;
        glrotatef(Rot2,0,1,0);
        glTranslateF(2,0,0);
         glBegin(GL_TRIANGLES);
         glColor3f(1, 0, 0); glVertex3f(-0.5,-0.5, 0);
         glColor3f(0, 0, 1); glVertex3f( 0.5,-0.5, 0);
         glColor3f(0, 1, 0); glVertex3f( 0, 0.5, 0);
         glEnd;
  GLPushMatrix;
 
 
 
SwapBuffers(DC);
end;
 
procedure TForm1.Onidle(Sender: TObject; var Done: Boolean);
const Frequenz = 1000;
var aktuellezeit :longword;
 begin
aktuellezeit:=GetTickCount();
Zeitfaktor:=(aktuelleZeit - Berechnungszeit)/Frequenz;
Render;
Berechnungszeit:=aktuellezeit;
Done:=false;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
close;
end;
 
end.
 

Nach oben

Tomok

Betreff des Beitrags:

Verfasst: Mi Feb 15, 2006 21:37

DGL Member

Registriert: Mi Jul 16, 2003 15:20
Beiträge: 198

Versuch mal das Backface-Culling[glCullFace] zu deaktivieren (hab mir den Quelltext nicht angeguckt, aber hört sich dannach an)

Code:

gldisable(GL_CULL_FACE);

_________________
Bevor du definierst, was etwas ist, versichere dich seiner Existenz.

Nach oben

Betreff des Beitrags:

Verfasst: Mi Feb 15, 2006 22:40

DGL Member

Registriert: Sa Jan 22, 2005 21:10
Beiträge: 225

nope, das Prob liegt beim Matrix-Stack. Du Pushst ohne zu Popen. Irgendwann (nach 32 oder so) is der Stack voll, und dann wars das.

_________________
[18:30] tomok: so wie ich das sehe : alles. was nich was anderes ist als nen Essay ist nen Essay

hi, i'm a signature viruz, plz set me as your signature and help me spread

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Mi Feb 15, 2006 22:58

Guitar Hero

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

Jo..das letzte Push gehört weg.

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

Nach oben

Mishra

Betreff des Beitrags:

Verfasst: Fr Feb 17, 2006 19:40

DGL Member

Registriert: Di Feb 07, 2006 20:22
Beiträge: 27

Autsch, da hätte ich auch selber drauf kommen können, danke Jungs!

Nach oben

Seite 1 von 1

[ 5 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.