Timer-Startzeitpunkt an Bildanzeigezeitpunkt koppeln

[Aries]

Hallo,

In einem Programm verwende ich einen Timer um regelmäßig etwas zu berechnen und zu zeichnen. Leider bin ich häufig mit dem Zeichnen noch nicht fertig, wenn der Bildschirm das nächste Bild zeichnet, sodass nur ein Teil des Gewollten gezeichnet wird, und es zu Flackern kommt. Mein Bildschirm zeigt 60 Bilder pro Sekunde an. Also würde ich gerne jede Sechzigstelsekunde nach einer Bildschirmausgabe komplett zum Zeichnen ausnutzen. Dazu sind meines Erachtens folgende zwei Bedingungen zu erfüllen:

1. Das Starten des Timers muss unverzüglich nach einer Bildschirmausgabe erfolgen.
2. Der Timerinterval muss der Hertz-Zahl des Bildschirm entsprechen. 1000 durch 60 sind 16 2/3. Timer.Interval erfordert aber leider eine ganze Zahl bzw. ein "LongWord".

Bei diesen beiden Problemen weiß ich nicht weiter. Daher hoffe ich auf eure Hilfe.

So sieht es bisher aus:

Code: Alles auswählen

Timer1:=TTimer.Create(self);
Timer1.OnTimer:=@Timer1Timer;
Timer1.Interval:=1000/60;

[m.fuchs]

Hallo,

• Die Tatsache dass dein Bildschirm 60 Bilder pro Sekunde anzeigt (60 Hz?), bedeutet nicht dass du auch 60 Bilder in einer Sekunde malen kannst. Die Zeichenoperationen nehmen ja auch ein bisschen Zeit weg.
• Auch wenn du die Intervalzeit deines Timers auf 1000/60 setzt (was übrigens mit deinem Code gar nicht geht), bedeutet das nicht dass das Event alle 17 Millisekunden aufgeerufen wird. Dei minimale Einstellung unter Windows ist beispielsweise meines Wissens 25 ms (bitte korrigiert mich). Außerdem bräuchtest du ein Echtzeitbetriebssystem um garantierte Aufrufzeitpunkte zu erhalten.
• Du musst also mit größeren Abständen leben. Wenn du nicht willst, dass dir ein neuer Timeraufruf zwischen deinen laufenden funkt:

  Code: Alles auswählen

  procedure Timer1Timer(Sender: TObject);
  begin
    Timer1.Enabled := False;
    (* mach irgendetwas *)
    Timer1.Enabled := True;
  end;

Was ist denn dein Endziel? Vielleicht (bestimmt) gibt es eine andere Lösung.

[Scotty]

Unter DOS konnte man auf den vertikalen Rücksprung des Kathodenstrahls warten. Suchst du so was?

Code: Alles auswählen

procedure WaitVRetrace; ASSEMBLER;
asm
  mov dx,03DAh
 @@1: in al,dx
  test al,08h
  jz @@1
@@2: in al,dx
  test al,08h
  jnz @@2
end;
 

[mschnell]

Unter DOS konnte man auf den vertikalen Rücksprung des Kathodenstrahls warten. Suchst du so was?

In einem System das nicht einem Programme allein den Zugriff auf den Bildschirm erlaubt ist sowas natürlich nicht möglich.

Es ist denkbar, dass eine Synchronisation mit dem passenden Tool im Full-Screen modus auch unter Windows/Linux/Mac geht. Am besten mal bei SDL suchen !

-Michael

[Heinrich Wolf]

Unter DOS konnte man auf den vertikalen Rücksprung des Kathodenstrahls warten. Suchst du so was?

Code: Alles auswählen

procedure WaitVRetrace; ASSEMBLER;
asm
  mov dx,03DAh
 @@1: in al,dx
  test al,08h
  jz @@1
@@2: in al,dx
  test al,08h
  jnz @@2
end;
 

Unter Windows / Linux / ... ist das Programm unbrauchbar, weil es zum Warten auf den Strahl gnadelos Rechenzeit mit 100% CPU Last vernichtet. Wahrscheinlich blocken die Kernels dieser Betriebssysteme auch den Zugriff auf Register 03DAh ab.

[m.fuchs]

Unter DOS konnte man auf den vertikalen Rücksprung des Kathodenstrahls warten. Suchst du so was?

Wie funktioniert das dann bei TFT-Monitoren?

[MAC]

Also hier mal ein paar Tatsachen:

1) Um so genau einen Timer zu setzen, würde ich dir empfehlen dir, in einem eigenen Thread ein programm laufen zu lassen, welches sozusagen dauernt die Zeit misst (alle 0.1 ms) und dann schaut ob diese 1/60 Sekunde vorbei ist. Dann könnte das ein Event feuern. So ein Timer ist im grunde recht einfach zu bauen.

2) Was Zeichnest du ? Zeichnest du auf dein Fenster ? Zeichnest du auf ein Image ? Zeichnest du auf das Windows fenster ? Zeichnest du 3D mit hilfe deiner Graphikkarte.
Wieviel zeichnest du ? Wenig ? Viel ?


Wenn du mit hilfe deiner Graphikkarte zeichnest, kann es sein das darauf automatisch geachtet wird (NVidia, ob ATI das auch macht, ka). Beim Zeichnen auf ein Image, dein Fenster oder Windows kannst du dein Bild einfach Double Buffern und dann immer nur das schon fertig gezeichnete Bild draufklatschen, das dauert vlt noch ne tausenstel sek, sollte aber kein Flackern ergeben, weil alles am stück gemacht wird...

[Cybermonkey342]

Also hier mal ein paar Tatsachen:
Wenn du mit hilfe deiner Graphikkarte zeichnest, kann es sein das darauf automatisch geachtet wird (NVidia, ob ATI das auch macht, ka). Beim Zeichnen auf ein Image, dein Fenster oder Windows kannst du dein Bild einfach Double Buffern und dann immer nur das schon fertig gezeichnete Bild draufklatschen, das dauert vlt noch ne tausenstel sek, sollte aber kein Flackern ergeben, weil alles am stück gemacht wird...

Das wäre auch meine Empfehlung: Double Buffer.

[mschnell]

Das wäre auch meine Empfehlung: Double Buffer.

Double-Buffering löst zwar ein Problem, aber ein anderes als die Synchronisierung mit der Scan-Frequenz. Vermutlich ist das aber tatsächlich das Problem das der OP hat.

Synchronisierung mit der Scan-Frequenz ist auch nur bei Verwendung eines CRT-Monitors wirklich sinnvoll. Und wer hat schon noch so einen. Bei LCD etc. kommt noch eine Monit-Interne Refresah-Rate dazu, die man sowieso nicht im Griff hat. Dafür versuchen solche Geräte aber Flimmer-Effekte durch Bildraten-Interferenzen auszugleichen.

-Michael

[Aries]

Danke für die Antworten.

2) Was Zeichnest du ? Zeichnest du auf dein Fenster ? Zeichnest du auf ein Image ? Zeichnest du auf das Windows fenster ? Zeichnest du 3D mit hilfe deiner Graphikkarte.
Wieviel zeichnest du ? Wenig ? Viel ?

Wenn du mit hilfe deiner Graphikkarte zeichnest, kann es sein das darauf automatisch geachtet wird (NVidia, ob ATI das auch macht, ka). Beim Zeichnen auf ein Image, dein Fenster oder Windows kannst du dein Bild einfach Double Buffern und dann immer nur das schon fertig gezeichnete Bild draufklatschen, das dauert vlt noch ne tausenstel sek, sollte aber kein Flackern ergeben, weil alles am stück gemacht wird...

Das mit dem Double Buffer hört sich nach der perfekten Lösung an. Ich weiß leider nicht wie das geht.

Ich zeichne nach folgendem Muster und relativ viel:

Code: Alles auswählen

Form1.Canvas.Polygon([Punkt[1],Punkt[2],Punkt[3],Punkt[4]]); 

Wie sähe es aus, wenn man das mit einem Double Buffer machen würde?

[theo]

Wie sähe es aus, wenn man das mit einem Double Buffer machen würde?

Du zeichnest zuerst alles auf ein Bitmap.

Bmp:=TBitmap.Create;
Bmp.Width:=....
etc.
Bmp.Canvas.Polygon.....
etc.
Wenn alles gezeichnet ist, kopierst du das fertige Bild auf den sichtbaren Canvas z.B. mit Draw
Form1.Canvas.Draw(0,0,Bmp);
Bmp.Free;

[Aries]

Wie sähe es aus, wenn man das mit einem Double Buffer machen würde?

Du zeichnest zuerst alles auf ein Bitmap.

Bmp:=TBitmap.Create;
Bmp.Width:=....
etc.
Bmp.Canvas.Polygon.....
etc.
Wenn alles gezeichnet ist, kopierst du das fertige Bild auf den sichtbaren Canvas z.B. mit Draw
Form1.Canvas.Draw(0,0,Bmp);
Bmp.Free;

Ich habe das mal getestet:

Code: Alles auswählen

  var
    Bitmap1: TBitmap;
 
  ...
 
  Bitmap1:=TBitmap.Create;
  Bitmap1.Width:=Form1.Width;
  Bitmap1.Height:=Form1.Height;
  Bitmap1.Canvas.Pen.Color:=RGBtoColor(255,0,0);
  Bitmap1.Canvas.Brush.Color:=RGBtoColor(255,0,0);
  Bitmap1.Canvas.Rectangle(0,0,100,100);
  Form1.Canvas.Draw(0,0,Bitmap1);
  Bitmap1.Free;

Bei "Create", "Width", "Height", "Canvas" und "Free" meckert er "unknown record field identifier".

Bei "Form1.Canvas.Draw(0,0,Bitmap1);" meckert er "Incompatible type for arg no. 3: Got "BITMAP", expected "TGraphic""

Woran könnten die Fehlermeldungen liegen?

[theo]

Hast du die Unit Windows hinter der Unit Graphics eingebunden in "Uses"? Falls ja, ändere das oder entferne Unit Windows ganz.

[Aries]

Hast du die Unit Windows hinter der Unit Graphics eingebunden in "Uses"? Falls ja, ändere das oder entferne Unit Windows ganz.

Danke, das hat das Problem gelöst.

Der Double Buffer funktioniert jetzt. Eine zufriedenstellende Lösung.

[soerensen3]

Noch schneller wäre es bestimmt, wenn du das bitmap beim starten des programms erstellst und am ende erst wieder freigibst. Weiß aber nicht ob das viel ausmacht.