DGL • Thema anzeigen - Koordinaten eines Punktes nach dem Render

Koordinaten eines Punktes nach dem Render

Moderator: DGL-Team

Seite 2 von 2

[ 17 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Flash

Betreff des Beitrags:

Verfasst: Mi Sep 01, 2004 00:33

Guitar Hero

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

Nö...du brauchst den Winkel zwischen z.B. Y-Achse und der Geraden P3P4. Den entgegengesetzten Winkel benutzt du dann um deine Rot.Matrix zu bauen. Das bedeutet dann im Kalrtext die Matrex dreht deine Welt so, dass die Gerade P3P4 = der Y-Achse ist.
Anschließent wirfst du P1 und P2 nacheinander durch die Matrix und erhälst ihre gedrehten Bilder. Bei denen brauchst du nur noch gucken ob die x Koordinate ein Vorzeichen haben bzw. net.

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

Nach oben

Flo

Betreff des Beitrags:

Verfasst: Mi Sep 01, 2004 09:52

DGL Member

Registriert: Do Jun 19, 2003 10:44
Beiträge: 991
Wohnort: Karlsfeld (nahe München)

Also ich brauchte dazu keinen Winkel, zumindest nicht als Wert.

Hier mal mein Quelltext:

Code:

 
//Dieser Code darf unter den Bedinugen der MPL verwendet werden.
//(Zu finden etwa unter http://www.mozilla.org/MPL/MPL-1.1.html)
type
  TRealPoint=record X,Y:Real; end;
  TWegChecker=class
  protected
    XAchse:TRealPoint;
    YAchse:TRealPoint;
    PosVektor:TRealPoint;
    AbstandAB:Real;
  public
    procedure SetData(const A,B:TRealPoint);
    function AufunterschiedlicherSeite(const A1,B1:TRealPoint;const A2,B2:TRealPoint):Boolean;
    function PunktUmrechnen(P:TRealPoint):TRealPoint;
  end;
 
implementation
 
procedure TWegChecker.SetData(const A,B:TRealPoint);
begin
    //XAchse zeigt von A nach B
    XAchse.X := B.X-A.X;
    XAchse.Y := B.Y-A.Y;
 
    //Länge von X und Y-Achse
    AbstandAB := Sqrt(XAchse.X*XAchse.X + XAchse.Y*XAchse.Y);
 
    //XAchse in Einheits Vektor verwandeln.
    XAchse.X := XAchse.X/AbstandAB;
    XAchse.Y := XAchse.Y/AbstandAB;
 
    //Die Achse von dem Koordianten System welches entgegenwirkt.
    XAchse.Y := -XAchse.Y;//XAchse wird an der richtigen XAchse gespiegelt.
 
    //Einen senkrechten Vektor zur X-Achse als Y-Achse verwenden.
    YAchse.X := -XAchse.Y;
    YAchse.Y := XAchse.X;
 
    //A als Koordianten Ursprung
    PosVektor := A;
end;
 
function TWegChecker.PunktUmrechnen(P:TRealPoint):TRealPoint;
begin
     // a) Neuer Koordianten Ursprung
    P.X := P.X-PosVektor.X;;
    P.Y := P.Y-PosVektor.Y;;
    // b) Koordianten auf das neue KoordiantenSystem umstellen.
    //    Vektoren addieren: KX * XAchse (+) KY*YAchse
    result.X := P.X*XAchse.X + P.Y*YAchse.X;//Erhaltene X Werte zusammenzählen
    result.Y := P.X*XAchse.Y + P.Y*YAchse.Y;//Erhaltene Y Werte zusammenzählen
end;
 
function TWegChecker.AufunterschiedlicherSeite(const A1,B1:TRealPoint;const A2,B2:TRealPoint):Boolean;
var
  NeuA,NeuB:TRealPoint;
begin
  SetData(A1,B1);//Koordinaten System festlegen
  NeuA := PunktUmrechnen(A2);//Position von A2 im neuen Koordinaten System
  NeuB := PunktUmrechnen(B2);//Position von B2 im neuen Koordinaten System
  result := (NeuA.y < 0) xor (NeuB.y < 0); //Unterschiedliche Vorzeichen?
end;
 

_________________
Danke an alle, die mir (und anderen) geholfen haben.
So weit... ...so gut

Nach oben

Seite 2 von 2

[ 17 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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