DGL • Thema anzeigen - Kollision mit schrägen flächen

Kollision mit schrägen flächen

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

AndY92

Betreff des Beitrags: Kollision mit schrägen flächen

Verfasst: Di Okt 30, 2007 20:47

DGL Member

Registriert: Di Mär 27, 2007 18:47
Beiträge: 19

Ich arbeite gerade (wie so viele andere Auch) an einer eigenen 3D Engine.
Bis jetzt lief auch alles so zimlich wie geplant aber bei der Kollision mit schrägen flächen ist das ganze zimlich kompliziert geworden.
Da ich nicht genau weiß wie man einen 3D schnittpunkt ausrechnet wollte ich es so machen dass ich erst an den beiden enden der X achse den schnittpunkt suche und dann zwichen diesen beiden den schnittpunkt an der Y Achse.. Leider hat das nicht wirklich funktioniert wie es sollte....

ich hab das so gemacht:

Hier schaut das programm ob man sich über der fläche befindet (es gibt für alle 6 richtungen so einen programmschnipsel)

Code:

 
    //Y(Boden)
    if SideX[i][1] <= PosX then
    if SideZ[i][1] <= PosZ then///
    if SideX[i][2] <= PosX then
    if SideZ[i][2] >= PosZ then///
    if SideX[i][3] >= PosX then
    if SideZ[i][3] >= PosZ then///
    if SideX[i][4] >= PosX then
    if SideZ[i][4] <= PosZ then///Wenn die seite unter der Eigenen Position ist
    begin
      NSY := i;
      GetColPoint3DY(i,Col.Y);
    end;
 

Das NSY := i hat hierfür nichts zu bedeuten ^^

Dann der Teil der diesen 3D Schnittpunkt finden soll:

Code:

procedure GetColPoint3DY(Side: Integer; out Y: Real);
var
  X1,Y1,X2,Y2,X3,Y3: Real;
begin
GetColPoint(PosX,PosY,PosX,0,
            SideZ[Side][1],SideY[Side][1],
            SideZ[Side][2],SideY[Side][2],X1,Y1);
GetColPoint(PosX,PosY,PosX,0,
            SideZ[Side][3],SideY[Side][3],
            SideZ[Side][4],SideY[Side][4],X2,Y2);
 
GetColPoint(PosX,PosY,PosX,0,
            X1,Y1,X2,Y2,X3,Y);
end;

Und Der Teil der den 2D schnittpunkt Finden Soll (Funktioniert)

Code:

 
procedure GetColPoint(X1,Y1,X2,Y2,X3,Y3,X4,Y4: Real; out SX,SY: Real);
var
  A1,B1,C1,
  A2,B2,C2: Real;
begin
if X1 = X2 then X1 := 0;
if Y1 = Y2 then Y1 := 0;
 
A1 := -(1/(X2-X1));
B1 :=  (1/(Y2-Y1));
C1 :=  (X1/(X2-X1)) - (Y1/(Y2-Y1));
 
A2 := -(1/(X4-X3));
B2 :=  (1/(Y4-Y3));
C2 :=  (X3/(X4-X3)) - (Y3/(Y4-Y3));
 
SX := (B1*C2-C1*B2) / (A1*B2-A2*B1);
SY := (C1*A2-C2*A1) / (A1*B2-A2*B1);
end;

und in diesem teil wird die kollision dann swchließlich angewendet

Code:

 
...
 
  if PosY - 0.1 > Col.Y then SpeedY := SpeedY - 0.01 else
  begin
    SpeedY := 0;
    PosY := Col.Y;
  end;
 
...
 
end;
 

(vllt hab ich es ein bisschen unverständlich erklärt; einfach fragen wenn was unklar ist)
vllt hat jemand eine bessere lösung ODER zu viel zeit und kann sich das mal angucken?

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Di Okt 30, 2007 21:03

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Schau mal bei den Links das CompGeo-Mathescript an. Dort steht wie man Schnittpunktberechnug macht.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

AndY92

Betreff des Beitrags:

Verfasst: Di Okt 30, 2007 21:09

DGL Member

Registriert: Di Mär 27, 2007 18:47
Beiträge: 19

hmm vllt bin ich einfach zu blöd aber iwie find ich da nix brauchbares

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Di Okt 30, 2007 21:16

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Deine "schräge Fläche" ist eine Ebene. Du kennst mindestens 3 Punkte der Ebene. Damit kannst du sie in so ne Formel überführen.

Hier im Forum wurden auch schon diverse Kollisionsfasetten diskutiert. Such nochmal im Forum. da findest du bistimmt auch noch was.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

AndY92

Betreff des Beitrags:

Verfasst: Mi Okt 31, 2007 08:04

DGL Member

Registriert: Di Mär 27, 2007 18:47
Beiträge: 19

Code:

procedure GetColPoint3DY(Side: Integer; out Y: Real);
var
  x,z,X1,Z1,X2,Z2,X3,Z3: Real;
  alpha,beta,gamma: Real;
begin
x := PosX;
z := PosZ;
X1 := SideX[Side][1];
Z1 := SideZ[Side][1];
X2 := SideX[Side][2];
Z2 := SideZ[Side][2];
X3 := SideX[Side][3];
Z3 := SideZ[Side][3];
 
alpha:= ((z3-z1)*x+(x1-x3)*Z) /
        ((x2-x1)*(z3-z1)-(x3-x1)*(z2-z1));
 
beta := ((z1-z2)*x+(x2-x1)*z) /
        ((x2-x1)*(z3-z1)-(x3-x1)*(z2-z1));
 
gamma:= alpha*(z2-z2)+beta*(z3-z1);
 
Y := Gamma;
end;
 

das funktioniert jetzt soweit aber iwie is das ergebnis nicht ganz das was es sein soll...
anstadt auf der ebene runter zu laufen lauf ich hoch...

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 6 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.