Linie 90° zu schräger Linie

[MiniMax]

Hallo Zusammen,
ich habe schon wieder eine Frage:

ich muss zu einer Schrägen linie, die mit LineTo erstellt wurde eine 90° versetzte Linie Zeichnen, die Vom Mittelpunkt aus 20 Pixel nach links geht, und auf der Ersten Linie anfängt. Geht dass überhaupt?
Falls Fragen sind, einfach Stellen! Ich hoffe ihr könnt mir Helfen?!?
Vielen Dank im Vorraus

[freak4fun]

Das Stichwort ist: Vektoren

[himitsu]

Du errechnest die den Winkel der ersten Linie über die Koordinaten der Endpunkte und je einer senkrechten und wagerechten Linie durch diese Punkte, erhälst du ja ein rechtwinkliges Dreieck.
> die zugehörigen Winkelgesetze kennst du ja bestimmt

dann nur noch 90° zu diesem Winkel dazurechnen
und alles rückwärts gerechnet erhält man die neue Linie.

[Noedel]

noch ein Tipp:
Die Steigung einer Gerade g ist m.
Die Steigung der Orthogonalen O ist -(1/m).

[Medium]

Einen Normalenvektor im R² bilden ist WEIT einfacher als da jetzt mit Trigonometrie oder Steigungsgelümmel um sich zu werfen...

A, B := Punkte auf deiner Strecke

V := B-A

Nv := (Vy, -Vx) falls Vx <> 0, sonst
Nv := (-Vy, Vx)

[MiniMax]

Hallo,
danke für die Antworten. Meint ihr www.gymnasium-eisenstadt.at/Fach/informatik/downloads/delphi/winkelfunktionen.doc+Delphi+90%C2%B0+Winkel+zu+Lin ie&cd=1&hl=de&ct=clnk&gl=de]das hier[/url]?

Nur leider verstehe ich nicht was Y oder X ist bei

Zitat:

AktTan:=y/x;

Das rückwärts Rechnen verstehe ich auch nicht? Ist der Radius bei

Delphi-Quellcode:

y:=Mittelpunkt-sin(AktWinkel)*Radius;
x:=Mittelpunkt+cos(AktWinkel)*Radius;

die Entfernung zu meinem Startpunkt? Und was ist dann bitte Schön der Mittelpunkt??? Ich blicke da net durch???
Vielleicht kann es jemand mir erklären?!?

[MiniMax]

keiner eine Idee?

[jfheins]

1. Pushen (also einen kleinen Beitrag schreiben, damit das Thema wieder oben auf der Portalseite landet) ist erst ab 24h gestattet

2.: Ich vermisse einige Informationen um dir zu helfen. Du möchtest eine Linie, die im 90° Winkel zu einer anderen Linie ist - male einfach einen senkrechten und einen waagerechten Strich
Alternativ: Sage uns, was du bereits zeichnest (ist das ein Kreissegment oder eine gerade Linie? Was weist du über die Linie?) und ein paar Sachen über den Strich (wo soll der hin? Wie lang soll der sein? In welche Richtung soll der gehen?)

[MiniMax]

also ich habe jetzt eine nicht so elegante Lösung genommen:

Delphi-Quellcode:

with Form1.Horizont.canvas do begin
  begin
  brush.color:=$00004080;
  pen.color:=$00004080;
  MoveTo(0,Form1.Horizont.height);
  LineTo(Form1.Horizont.width,Form1.Horizont.height);

  Radius:= Form1.Horizont.width;
  Winkel:= DegToRad(Wert1111);
  yyy:=(Form1.Horizont.height div 2) - sin(Winkel)* Radius;
  xxx:=(Form1.Horizont.width div 2) + cos(Winkel)* Radius;
  MoveTo(Round(XXX),Round(YYY));
  LineTo((Form1.Horizont.width div 2),(Form1.Horizont.width div 2));
  yyy:=(Form1.Horizont.height div 2) - sin(Winkel-degtorad(180))* Radius;
  xxx:=(Form1.Horizont.width div 2) + cos(Winkel-degtorad(180))* Radius;
  LineTo(Round(XXX),Round(YYY));
  FloodFill(5,440,$00004080,fsborder);

  Pen.color:= clblue;
  brush.color:= clblue;
  Radius:= Form1.Horizont.width;
  Winkel:= DegToRad(Wert1111);
  yyy:=(Form1.Horizont.height div 2) - sin(Winkel)* Radius;
  xxx:=(Form1.Horizont.width div 2) + cos(Winkel)* Radius;
  MoveTo(Round(XXX),Round(YYY));
  LineTo((Form1.Horizont.width div 2),(Form1.Horizont.width div 2));
  yyy:=(Form1.Horizont.height div 2) - sin(Winkel-degtorad(180))* Radius;
  xxx:=(Form1.Horizont.width div 2) + cos(Winkel-degtorad(180))* Radius;
  LineTo(Round(XXX),Round(YYY));
  FloodFill(0,0,clblue,fsBorder);

Nur das Floodfill funktioniert net so wie es soll --> Wenn ich einen Winkel = 45° einegbe ist eine Hälfte Braun und die Andere weiß und bei > 45° wird die Braune Hälfte blau - ich weis nicht was los ist ?? Könnt ihr mir einen Tipp geben?

[Medium]

Schau dir die Parameter von FloodFill() nochmal genauer an, und dann überleg, was passiert wenn sich deine Trennlinie dreht.