Hier ist der Code:
Delphi-Quellcode:
{aX = Die aktuelle X-Koordinate, vom Programm gemerkt, auf einem TImage}
{aY = Die aktuelle Y-Koordinate, vom Programm gemerkt, auf einem TImage}
procedure TMainForm.Vor(la: Integer);
var
x, y: Extended;
begin
x := aX + la * cos(Kurs);
y := aY - la * sin(Kurs);
Draw(x,y)
end;
Und hier die Erklärung:
Also, an die Prozedur wird wie man sehen kann, der Paramter "la" übergeben. "la" soll die Länge der zuzeichnenden, neuen Linien angeben. Kurs, gibt die Richtung der zuzeichnenden Linie in Grad an (Bogenmaß). Es soll nun der neue Punkt (x,y) berechnet werden. Da man sich das ganze wie ein Steigungsdreieck vorstellen muss, hab ich natürlich nur eine Seite, nämlich "la". Aber ich benötige ja noch die anderen beiden Seiten, um die Verschiebung auf der X- bzw. Y-Achse rauszubekommen. Und das geht ja nur über den Cosinus, bzw. den Sinus.
Achso, mit "Draw(x,y)" wird dann nur eine Linie zum neuen Punkt gezeichnet.
Jetzt wär natürlich eine Möglichkeit, die Linie einfach dicker zuzeichnen. Aber wie stell ich dass am Besten an?