' Helix
' Zeichnet eine Helix mit einzugebenen Parametern
' r = Radius der Helix
' a = anzahl der Windungen
Input "Radius der Helix" , r
Input "Hoehe/Laenge der Helix", h
Input "Anzahl der Windungen", a
Input " Anzahl der Segmente", s
pi = 3.1415926536
w = a * 360'Umlaufwinkel
sw = w/s
>Curve
{
for i = 0 to w step w/s
x = r*cos(i)
y = r*sin(i)
z = h * i/w
<Pointxyz [x, y, z]
next i
}
end
Das funzt!!Statistik: Verfasst von ClaFra — Sonntag 12. Juli 2020, 18:36
]]>