DGL • Thema anzeigen - Flimmern bei Farbenwechsel

Flimmern bei Farbenwechsel

Moderator: DGL-Team

Seite 1 von 1

[ 4 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Ferby

Betreff des Beitrags: Flimmern bei Farbenwechsel

Verfasst: Mi Sep 05, 2007 22:38

DGL Member

Registriert: Do Nov 23, 2006 20:44
Beiträge: 21
Wohnort: Wien

Hallo,

Ich habe vor 6 Monaten mal mit den Grundgerüßt von OpenGL angefangen und habe heute plötzlich Lust bekommen mal ein wenig weiter herum zu probieren.

Ich will einen Kreis machen, dessen Radius pro Zeiteinheit immer kleiner wird und die Farbe wechselt,
nach etlichen Überlegungen (jaja da gibts doch so ein Koordinatensystem dafür :-)

) habe ich das endlich hinbekommen.

Die Zeichenroutine

Code:

glBegin(GL_POLYGON);
 
    winkel:=0;
    radius:=radius-0.1;
    glColor3f(random(2),random(2),random(2));
 
    for i:=1 to 70 do
    begin
      winkel:=winkel+0.1;
      x:=Radius*(cos(winkel));
      y:=Radius*(sin(winkel));
 
      glVertex3f(x,y,0);
    end;
  glEnd;

Das Problem ist, das wenn der Kreis etwas größer ist, beim Farbenwechseln immer ein Flimmern auftaucht.

Warum tritt das auf, wie kann man das Problem beseitigen?

Der Timer ist auf 200 Milisekunden eingestellt.

Hier der ganze Code:

Code:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DGLOpenGL, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure draw;
    procedure Timer1Timer(Sender: TObject);
  end;
 
var
  Form1: TForm1;
  DC : HDC;
  RC : HGLRC;
 
  radius: extended=5;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
 
  DC:= GetDC(Handle);
  if not InitOpenGL then Application.Terminate;
  RC:= CreateRenderingContext(DC,[opDoubleBuffered],32,24,0,0,0,0);
  ActivateRenderingContext(DC, RC);
 
  glClearColor(0.3, 0.4, 0.7, 0.0);
  glEnable(GL_DEPTH_TEST);
  glEnable(GL_CULL_FACE);
end;
 
procedure Tform1.draw;
var
  i: integer;
  x,y,winkel: extended;
 
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, 1, 1000);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
  glTranslatef(0, 0, -10);
 
   glBegin(GL_POLYGON);
 
    winkel:=0;
    radius:=radius-0.1;
    glColor3f(random(2),random(2),random(2));
 
    for i:=1 to 70 do
    begin
      winkel:=winkel+0.1;
      x:=Radius*(cos(winkel));
      y:=Radius*(sin(winkel));
 
      glVertex3f(x,y,0);
    end;
  glEnd;
 
  SwapBuffers(DC);
end;
 
 
procedure TForm1.FormResize(Sender: TObject);
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, 1, 1000);    
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(Handle, DC);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  draw;
end;
 
end.

Danke

// edit Lossy: Code durch Pascaltags ersetzt

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Mi Sep 05, 2007 23:28

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Ich kann mir beim Anschauen grade nichts Flimmerndes vorstellen, aber vielleicht liegt das an deaktiviertem V-Sync. Im Normalfall kannst du das beim Initialisieren mit

Code:

wglSwapIntervalEXT(1);

anschalten, wenn es nicht generell in den Grafikkarteneinstellungen deaktiviert wurde.

PS: Verwende doch das nächste Mal [pascal] statt [code] Tags

MfG

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Do Sep 06, 2007 07:27

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Ich tippe eher mal darauf, das Gefühl entsteht es flimmere entsteht, weil sich die Farben ständig wechseln. Was ja eigentlich auch richtig ist, denn Flimmern ist ein für das Auge sichtbarer Wechsel des Inhalt und das passiert dort ja in jedem Frame.

Nach oben

MatReno

Betreff des Beitrags:

Verfasst: Do Sep 06, 2007 08:42

DGL Member

Registriert: Mo Jan 31, 2005 11:02
Beiträge: 432
Wohnort: Rheinlandpfalz

Warum schreibst du random(2)? Das gibt dir den Wert 0 ODER 1 für jeweils r, g, b.
Vielleicht ist es ja auch gewünscht, aber wenn du "richtige" Zufallsfarben haben willst, musst du einfach nur random() schreiben. Das liefert einen Gleitkommawert zwischen 0 UND 1. Mit deiner Methode sind nämlich nur 2³=8 Farben möglich.

Gruß, MatReno

_________________
http://texelviews.delphigl.com

Nach oben

Seite 1 von 1

[ 4 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: Majestic-12 [Bot] und 5 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.