Kardioide (PTCPas und Cairo Beispiel)

[AlterPascaler]

Ich scheine heute den Wald vor Bäumen nicht zu sehen!

Meine Frage: Wie kann ich das Projekt PingPong von GitHub runter laden. Habe es mit git clone probiert, bekomme immer eine Fehlermeldung.
"https://github.com/PascalCorpsman/mini_ ... gPong/.git nicht gefunden"

Einen Button "Code" wie bei gitlab Download als zip finde ich auch nicht.

[af0815]

"https://github.com/PascalCorpsman/mini_ ... gPong/.git nicht gefunden"

/.git kann nicht gefunden werden. Da ist ein Problem mit dem Link selbst.

Wenn ich das ".git" wegnehme geht der Link
https://github.com/PascalCorpsman/mini_ ... /PingPong/

Das Problem ist, man muss die ganzen mini_projects herunterladen und kann sich dann erst das herrausschneiden.

[Mathias]

Leider kann man bei git nur das ganze Paket als ZIP runterladen. Da findest du den download Knopf: https://github.com/PascalCorpsman/mini_ ... /tree/main

Oder so mit git clone:

Code: Alles auswählen

git clone https://github.com/PascalCorpsman/mini_projects.git

Noch ein Hinweis zum PingPong von PascalCorpsman, mit QTx bleibt das Fenster Grau, mit GTK2 geht es.
Was noch dazu kommt, wen das Demo läuft, wirkt Chrome in dem ich gerade diesen Text eingebe sehr träge.

[AlterPascaler]

Danke für eure Unterstützung.

Erstmal schönes kleines Programm. Muss mir das mit der Kollisionserkennung mal anschauen.

Bei mir unter Linux ist der Rechner auch sehr zäh. Wenn ich Render über einen Timer laufenlasse ist es besser.

Code: Alles auswählen

Procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
  Var Done: Boolean);
Begin
  exit;
  render;
  done := false;
End;

Procedure TForm1.RenderTimerTimer(Sender: TObject);  //Interval=20ms
begin
  Render;
end;

[Mathias]

Erstmal schönes kleines Programm. Muss mir das mit der Kollisionserkennung mal anschauen.

Ich habe da auch mal ein kleines Beispiel gemacht, ist ein wenig einfacher zum verstehen.

https://github.com/sechshelme/Lazarus-O ... it_Kreisen

[AlterPascaler]

@Mathias

Auch ein schönes Beispiel. Es liegt bei dir im Repository unter OpenGl, aber damit hat es nichts zutun, oder?

Nur schade das die Kugeln an den Fensterrändern halb verschwinden.

[Mathias]

Auch ein schönes Beispiel. Es liegt bei dir im Repository unter OpenGl, aber damit hat es nichts zutun, oder?

Indirekt schon, es zeigt wie man Kollisions Abfragen machen kann.

Nur schade das die Kugeln an den Fensterrändern halb verschwinden.

Dies kann man sicher rasch behben, wen man hier noch der Radius der Kreise berücksichtigt.

Code: Alles auswählen

      if (PosVector[0] < 0) or (PosVector[0] > ClientWidth) then begin
        DirVector[0] *= -1;
        PosVector := posalt;
      end;
      if (PosVector[1] < 0) or (PosVector[1] > ClientHeight) then begin
        DirVector[1] *= -1;
        PosVector := posalt;
      end;   

Und beim inizialisieren auch

Code: Alles auswählen

  for i := 0 to Length(Kreise) - 1 do begin
    with Kreise[i] do begin
      repeat
        Radius := Random(rad) + rad / 2;
        PosVector[0] := Random * ClientWidth;
        PosVector[1] := Random * ClientHeight;
      until CollisiosTest(i) = False;
    end;
  end;