Kollision mit Reflektion - Ich raffs net...

[Fussel9]

Zitat:

ich hoffe das hat mehr geholfen als verwirrt

Nope ^^

Ich versteh jetz nicht, woher ich zur laufzeit den Normalenvektor her nehmen soll.. hier ist meine Move methode ohne winkelberechnung... so wie ich sie in nem anderen threat gefunden hatte nur weiter ausgebaut.

Delphi-Quellcode:

procedure TFormMain.MoveBall(pCollisionObject: array of TPanel);
var tempObject,CollisionRect: TRect;
    I: Integer;
begin
  sball.left:=sball.left+XCor;
  Ball.Left:=SBall.Left;
  Ball.Right:=SBall.Left+SBall.Width;
    if sball.left < (PLinks.Left+PLinks.Width) then
      begin
      sball.left := (PLinks.Left+PLinks.Width);
      Xcor := -Xcor;
      end;
    if sball.left > PRechts.Left - sball.width then
      begin
      sball.left := (PRechts.Left - sball.width);
      XCor := -XCor;
      end;


  sball.top := sball.top+YCor;
  Ball.Top:=SBall.Top;
  Ball.Bottom:=SBall.Top+SBall.Height;
    if sball.top < (POben.Top+POben.Height) then
      begin
      sball.Top := (POben.Top+POben.Height);
      YCor := -YCor;
      end;
    if sball.top > (self.height - sball.height) then
      begin
      sball.top := (self.height - sball.height);
      YCor := -YCor;
      end;
    if IntersectRect(Collision,Ball,Stick) then
      begin
        sball.top := (PStick.top - sball.height);
        YCor:= -YCor;
      end;
    if Sball.Top > PStick.Top then
      begin
        SBall.Visible:=False;
        TMover.Enabled:=False;
        MessageDLG('Game Over!',mtWarning,[mbOk],0);
        SpawnBall;
      end;
    for I := 0 to High(pCollisionObject) - 1 do
      begin
        tempObject.Left:=pCollisionObject[I].Left;
        tempObject.Right:=pCollisionObject[I].Left+pCollisionObject[I].Width;
        tempObject.Top:=pCollisionObject[I].Top;
        tempObject.Bottom:=pCollisionObject[I].Top+pCollisionObject[I].Height;
        if IntersectRect(CollisionRect,Ball,tempObject) then
          begin
            YCor:= -YCor;
            XCor:= -XCor;
            pCollisionObject[I].Visible:=False;
            pCollisionObject[I].Left:=0-PCollisionObject[I].Width;
            pCollisionObject[I].Top:=0-PCollisionObject[I].Height;
          end;
      end;
end;

hier der Methodenaufruf:

Delphi-Quellcode:

procedure TFormMain.TMoverTimer(Sender: TObject);
begin
  MoveBall([Panel2,Panel3,Panel4,Panel5,Panel6,Panel7,Panel8,Panel9,Panel10,
           Panel11,Panel12,Panel13,Panel14,Panel15,Panel16,Panel17,Panel18,
           Panel19,Panel20,Panel21,Panel22,Panel23,Panel24,Panel25,Panel26,
           Panel27,Panel28,Panel29,Panel30,Panel31,Panel32,Panel33,Panel34,
           Panel35,Panel36,Panel37,Panel38,Panel39,Panel40,Panel41,Panel42,
           Panel43,Panel44,Panel45,Panel46,Panel47,Panel48,Panel49,Panel50,
           Panel51,Panel52,Panel53,Panel54,Panel55,Panel56,Panel57]);
end;

und im anhang mal die pas

Wenn mein Ball jetzt auf einen Stein trifft, woher nehme ich dann den Normalenvektor? Der Normalenvektor beschreibt doch eine im rechten winkel zur fläche stehende gerade, oder?


ich geb es einfach mal auf die formel nachzuvollziehen und sehe sie als gegeben...

Wenn mir jetzt jemand sagen kann woher ich den dusseligen Normalenvektor nehmen soll dann könnte ichs ja programmieren...

Zitat:

Den Normalenvektor der Fläche musst du wissen - wenn der Ball z.B. oben an den Rand gestoßen ist, dann ist der Normalenvektor (0|1) (Y Achse zeigt ja nach unten, daher +1)

... das hat mir irgendwie nicht weitergeholfen...

[Notxor]

ein Normalvektor ist jeder Vektor, der auf die Gerade/Fläche/(Raum) normal steht. 2 Vektoren stehen aufeinander Normal, wenn ihr Skalarprodukt 0 ergibt. Im 2-dimensionalen kann man dies sehr einfach berechnen(wurde aber schon in diesem Thread irgendwo gesagt...)

v = (x,y)

1.Normalvektor auf v = (y,-x)
2.Normalvektor auf v = (-y,x)

es gibt aber unendlich viele davon, da du n1,n2 mit einem beliebigen Skalar multiplizieren kannst (außer 0), ohne dass sich die Richtung ändert.

[jfheins]

Das wird ihm auch nicht weiterhelfen ^^

Das mit den Vektoren hatte ich nur ins Spiel gebracht, weil jemand meinte:

Zitat:

Daraus kannst du dann über den Tangens den Winkel ermitteln...´
Wenn dein Ball nur an horizontalen und Vertikalen Flächen reflektiert ist es sogar noch einfacher...
...dann musst du nur das Vorzeichen einer der Teilgeschwindigkeiten umkehren.

Um zu zeigen: Man kann auf den Tangens verzichten, auch wenn die Geraden schräg im Raum liegen. Die Formel und den Normalenvektor kannst du daher wieder vergessen - du hast ja anscheinend nur vertikale/horizontale Flächen

Zu dem Problem: Du hast ja bereits so eine Art Kollisionserkennung drin. Das Problem ist nur: IntersectRect liefert dir zwar zurück, ob es eine Kollision gab, aber nicht wo. Das musst du selbst herausfinden!

Unter der Annahme dass der übrige Code funktioniert (sieht etwas umständlich aber sonst okay aus...) musst du also in der Schleife feststellen a) ob der Ball kollidiert und b) Wenn ja, wo er kollidiert.
Du musst halt manuell nacheinander die Ober & Unterseite und die linke und die rechte Seite abchecken. Bei Ober/Unterseite die Y Komponente invertieren, Bei links/rechts eben die X-Komponente invertieren.

[Fussel9]

...solangsam gehn mir die Ideen aus... jetz funktionierts nix mehr ^^

Delphi-Quellcode:

procedure TFormMain.MoveBall(pCollisionObject: array of TPanel);
var tempObject,CollisionRect: TRect;
    I,J,a,b,c,d: Integer;
begin
  sball.left:=sball.left+XCor;
  Ball.Left:=SBall.Left;
  Ball.Right:=SBall.Left+SBall.Width;
    if sball.left < (PLinks.Left+PLinks.Width) then
      begin
      sball.left := (PLinks.Left+PLinks.Width);
      Xcor := -Xcor;
      end;
    if sball.left > PRechts.Left - sball.width then
      begin
      sball.left := (PRechts.Left - sball.width);
      XCor := -XCor;
      end;
for J := 0 to SBall.Width - 1 do
  begin
    tempObject.Left:=pCollisionObject[J].Left;
    tempObject.Right:=pCollisionObject[J].Left+pCollisionObject[J].Width;
    tempObject.Top:=pCollisionObject[J].Top;
    tempObject.Bottom:=pCollisionObject[J].Top+pCollisionObject[J].Height;
    if InterSectRect(CollisionRect,Ball,tempObject) then
      begin
        if not (pCollisionObject[J]=nil) then
          begin
            if (sball.Left < (pCollisionObject[J].Left+pCollisionObject[J].Width)) then
              begin
                XCor := -XCor;
                pCollisionObject[J]:=nil;
              end;
            if ((sball.Left+sball.Width)>pCollisionObject[J].Left) then
              begin
                XCor:= -XCor;
                pCollisionObject[J]:=nil;
              end;
          end;
      end;
  end;


  sball.top := sball.top+YCor;
  Ball.Top:=SBall.Top;
  Ball.Bottom:=SBall.Top+SBall.Height;
    if sball.top < (POben.Top+POben.Height) then
      begin
      sball.Top := (POben.Top+POben.Height);
      YCor := -YCor;
      end;
    if sball.top > (self.height - sball.height) then
      begin
      sball.top := (self.height - sball.height);
      YCor := -YCor;
      end;
    if IntersectRect(Collision,Ball,Stick) then
      begin
        sball.top := (PStick.top - sball.height);
        YCor:= -YCor;
        XCor:= XCor-1;
      end;
    if Sball.Top > PStick.Top then
      begin
        SBall.Visible:=False;
        TMover.Enabled:=False;
        MessageDLG('Game Over!',mtWarning,[mbOk],0);
        SpawnBall;
      end;
for I := 0 to SBall.Height - 1 do
  begin
    tempObject.Left:=pCollisionObject[I].Left;
    tempObject.Right:=pCollisionObject[I].Left+pCollisionObject[I].Width;
    tempObject.Top:=pCollisionObject[I].Top;
    tempObject.Bottom:=pCollisionObject[I].Top+pCollisionObject[I].Height;
    if InterSectRect(CollisionRect,Ball,tempObject) then
      begin
        if not (pCollisionObject[I]=nil) then
          begin
            if (sball.Top < (pCollisionObject[I].Top+pCollisionObject[I].Height)) then
              begin
                YCor := -YCor;
                pCollisionObject[I]:=nil;
              end;
            if ((sball.Top+sball.Height)>pCollisionObject[I].Top) then
              begin
                YCor:= -YCor;
                pCollisionObject[I]:=nil;
              end;
          end;
      end;
    end;
end;

[Delphi-Laie]

Zitat von Fussel9:

...solangsam gehn mir die Ideen aus... jetz funktionierts nix mehr ^^

Und, soll das eine Frage sein? Was soll man damit anfangen?

Einfach hingeklatschte Mammutquelltexte.....

Ich muß mal ein wenig deutlicher werden: Du scheinst mathematisch und/oder physikalisch mit der Aufgabe(nstellung) überfordert zu sein. Doch derlei Defizite auszubügeln, dürfte dieses (Programmier-!)Forum nicht der geeignete Ort sein (auch wenn es nicht meine Aufgabe ist, darüber zu wachen und zu befinden). Ich staune über die Geduld der anderen Schreiberlinge und der Moderatoren.

[Fussel9]

Zitat von Delphi-Laie:

Zitat von Fussel9:

...solangsam gehn mir die Ideen aus... jetz funktionierts nix mehr ^^

Und, soll das eine Frage sein? Was soll man damit anfangen?

Einfach hingeklatschte Mammutquelltexte.....

Ich muß mal ein wenig deutlicher werden: Du scheinst mathematisch und/oder physikalisch mit der Aufgabe(nstellung) überfordert zu sein. Doch derlei Defizite auszubügeln, dürfte dieses (Programmier-!)Forum nicht der geeignete Ort sein (auch wenn es nicht meine Aufgabe ist, darüber zu wachen und zu befinden). Ich staune über die Geduld der anderen Schreiberlinge und der Moderatoren.

Niemand zwingt dich hier zu antworten und wenn die anderen freundlicher weise versuchen mir zu helfen und mir darlegen wo meine fehler liegen, dann ist das ihre eigene entscheidung gewesen mir zu helfen.

Und da es hier um Programmierung geht denke ich das dies schon der ort ist so etwas zu lernen/sich so etwas erklären zu lassem.

[Medium]

Da ist der Denkfehler: Es geht hier um mathematische Grundlagen, nicht um die Umsetzung. Zwar kann man die sicherlich auch diskutieren, aber nur schwerlich mit jemandem der diese, und ich fasse dies mal mutwillig in eigenen Worten zusammen: "alles nur doof" findet bzw. sich dagegen sperrt. Von daher bin ich auch über die kritikfreiheit bisher in diesem Thread verwundert, nicht zuletzt weil auch diese Kritik Hilfe sein würde (bzgl. Motivation sich diesen Dingen etwas bereitwilliger gegenüber zu stellen vor allem).

[Delphi-Laie]

Zitat von Fussel9:

Niemand zwingt dich hier zu antworten und wenn die anderen freundlicher weise versuchen mir zu helfen und mir darlegen wo meine fehler liegen, dann ist das ihre eigene entscheidung gewesen mir zu helfen.

Vielen Dank für diese für mich völlig neue Information!

Wenn jemand Defizite hinsichtlich der nötigen Grundlagenkenntnisse und dazu auch noch fehlende Lernbereitschaft ("Vektorgedönz" (es heißt übrigens Gedöns), "nur hab ich cosinus,tangens und sinus schon im Matheunterricht aufs verrecken gehasst...") signalisiert, dann vergeht mir die Hilfelust bei meinen ohnehin nur bescheidenen Hilfevoraussetzungen. Sollte mich wundern, wenn hier noch jemand erhebliches Engagement zeigen sollte.

Dann noch "Ich raffs net", "jetz funktionierts nix mehr" (fehlt nur noch mein Favorit: "proggi funzt net"), was m.E. ebenso die hochgradige Lustlosigkeit und den insgeheimen Wunsch, die anderen mögen es doch bitte für mich erledigen, als Botschaften transportiert.

Ehrlich, von jemandem, der über 300 Beiträge (!) allein in diesem Forum vorzuweisen hat, hätte ich etwas mehr Professionalität im Umgang mit einem Forum und dem Altruismus seiner Mitglieder erwartet (bei Einsteigern ist eine gewisse Unbeholfenheit, Unbedarftheit und Unkenntnis ja unumgänglich). In einem anderen Delphiforum hätte Dich ein gewisser ((Super-)Moderations-)Drachen, der beileibe kein Kind von Traurigkeit und sich für bestimmte Bereinigungsaktionen nicht zu schade ist (der läßt dafür auch und sogar menschlich ab und zu die Fetzen fliegen), längst zur Schnecke gemacht und einen solchen Diskussionsverlauf wie diesen hier finalisiert.