|
Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: Strecke zeichnen
6. Jul 2007, 13:40
Nehmen wir mal an, du hast den Startpunkt (x1|y1) und die x-Koordinate des Endpunktes x2.
Dann berechnest du die y-Koordinate des Endpunkts y2 so: (du brauchst nicht mal sin und cos)
Delphi-Quellcode:
y2:=y1+round(sqrt(10000-sqr(x2-x1)));
oder
y2:=y1-round(sqrt(10000-sqr(x2-x1)));
(Satz des Pythagoras)
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|