Lissajous-Figuren

[Xenonz]

Hallo!

Ich habe angefangen die Lissajous-Figuren in Delphi darzustellen. Das ganze soll wie ein Oszilloskop funktionieren. Daher verwende ich einen Timer. Wenn das Programm läuft flackert jedoch immer das image.

Hat jemand eine Idee wie man das Flackern verhindern kann?

Mfg Xenonz

[MrKnogge]

hast du mal Form1.Doublebuffered := true probiert ?

[Luckie]

Zeichne auf ein Bitmap im Speicher und kopiere das Bitmap bei Bedarf auf den Canvas deiner Form oder der Paintbox.

[Xenonz]

Ah perfekt,
doublebuffered funktioniert genau richtig!

Vielen Dank für die Antwort! Ist wie immer ein super Forum!

[Der_Ventilator]

Wenn dir das was hilft, ich hab vor 2 Jahren (12. Klasse Physik) auch mal so ein Programm geschrieben...

[Luckie]

Und hier meine 8 KB Version. :mrgreen:

Wann ist die Figur eigentlich fertig gezeichnet? (Damit man den Timer abstellen kann.)

[Der_Ventilator]

Irgendwann müsste sie zum Ausgangspunkt zurückkehren (ist ja eine Sinusfunktion)

Aber ich hab keine Ahnung mehr wie man das mathematisch berechnet(Schule ist doch schon so einiges her...)

[Luckie]

Wenn der Winkel 360° ist, dann ist die Figur fertig. In minem ersten Posting die neue Version.

[Xenonz]

Hmm nachdem mein Programm vorhin als ich geantwortet hatte schon fast fertig
war, hab ich nicht mehr hier geschaut...

Naja hier ist mein fertiges Programm

[idontwantaname]

Könnte man eventuell die Geschwindingkeit von dem Ding ein bisschen runtersetzen ??
Weil das düst ganz schön ab ^^

[turboPASCAL]

Zitat:

Zitat von Der_Ventilator

Wenn dir das was hilft, ich hab vor 2 Jahren (12. Klasse Physik) auch mal so ein Programm geschrieben...

Zitat:

Zitat von Luckie

Und hier meine 8 KB Version. :mrgreen:

Zitat:

Zitat von Xenonz

Hmm nachdem mein Programm vorhin als ich geantwortet hatte schon fast fertig
war, hab ich nicht mehr hier geschaut...

Naja hier ist mein fertiges Programm

Und das kann sich sehen lassen. :thumb:


Das soll es ja auch als 3D geben oder ? :mrgreen:

[Luckie]

Zitat:

Zitat von turboPASCAL

Das soll es ja auch als 3D geben oder ? :mrgreen:

Wenn dann bitte mit Source. ;)

[turboPASCAL]

Zitat:

Zitat von Luckie

Zitat:

Zitat von turboPASCAL

Das soll es ja auch als 3D geben oder ? :mrgreen:

Wenn dann bitte mit Source. ;)

Ist leider kein nonVCL und dann noch mit GLScene.
Im Grunde der selbe Code wie bei Luckie, nur noch ein Sinus in die "Z"-Richtung.
Den Sourcecode pack ich noch bei.

[Luckie]

Und wie hast du das sinusz beim Line zeichnen mit einbezogen:

Delphi-Quellcode:

  sinusx := trunc(sin(Pi * i * a / 180) * 180);
  sinusy := trunc(-sin(Pi * i * b / 180) * 180);
  LineTo(hdcMem, sinusx + (WINDOWWIDTH div 2), sinusy + (WINDOWHEIGHT div 2));

[turboPASCAL]

Delphi-Quellcode:

procedure TForm1.DrawLissajous(x, y, z: Single);
var
  sinX, sinY, sinZ, Pi_ : single;
  step: Integer;
begin
  GLLines1.Nodes.Clear;

  for step := 0 to 360 do
  begin
    sinX :=  sin(Pi * step * x / 180) * 180;
    sinY := -sin(Pi * step * y / 180) * 180;
    sinZ :=  sin(Pi * step * z / 180) * 180;

    GLLines1.Nodes.Add.AsAffineVector :=
      AffineVectorMake(sinX / 100, sinY / 100, sinZ / 100);
    
   if step mod 10 = 0 then  // a little Speed
      Application.ProcessMessages;

    Label7.Caption := Format('X: %8.2f; Y: %8.2f; Z: %8.2f', [sinX, sinY, sinZ]);

    if CancelCalculate then Break;
  end;

  GLSceneViewer1.Refresh;
end;

So.

Einfach ein Sinus in die z-Richtung. Ob das korrekt ist bin ich noch am nachforschen.