Punkte auf prozentualen Streckenabschnitten malen - von ShadowTurtle

Mit dieser Funktion wird ein Punkt in einer Linie gezeichnet. Percent# bestimmt wo. 100 (also 100%) ist das Ende der Linie, daher ist 0% also der Anfang der Linie.

Function LineWay(X1#, Y1#, X2#, Y2#, Percent#) While (Percent# > 100) Percent# = Percent# - 100 Wend Percent# = Percent# / 100 WA# = X1+((X2-X1)*Percent#) WB# = Y1+((Y2-Y1)*Percent#) Plot WA#, WB# End Function Und hier mal ein kleines Beispiel dazu: Percent# = 0 AppTitle "Speedy Line Move Demo" SetBuffer BackBuffer() While Not KeyHit(28) Cls Percent# = Percent# + 1 LineWay 10, 10, 110, 110 , Percent# Text 0, 0, "Nun wird der Einzelne Punkt bewegt. Drücke Enter für weiter ..." Flip Delay 40 Wend Cls While Not KeyHit(28) ; Cls Percent# = Percent# + 1 LineWay 150, 10, 110, 110 , Percent# Text 0, 0, "Nun wird Eine Linie gezeichnet. Drücke Enter für weiter ..." Flip Delay 40 Wend Cls While Not KeyHit(1) Percent# = Percent# + 1 If Percent# > 100 Then a = Rnd(300) b = Rnd(300) c = Rnd(300) d = Rnd(300) Color Rand(125,255), Rand(125,255), Rand(125,255) Percent# = 0 End If For hh = 0 To 100 dj# = hh / 1000 LineWay a, b, c, d , Percent# + dj# Next Text 0, 0, "Nun werden Bunte Linien gezeichnet." Text 0, 15, "Und zwar Gleich-Schnell! Drücke ESC für Exit." Flip Wend End