

From Wikipedia "In botany, phyllotaxis or phyllotaxy is the arrangement of the leaves on the stem of a plant.
I'm working on phyllotaxis system in order to construct vertical spiral variations with a rhinoscript code:
-plot an array of points by x,y,z coordinates follwing mathematical logic with several variations
-draws 2 lines in order to draw first petal profile
-divide profile in one array of points defined by the user
-draw circle with previous array points as centerpoint and curvature value of profile petal as radius
-create loft surfaces
-make a polar array to realize final system

"hot" code:
----------------------
'Script copyrighted by www.madeincalifornia.blogspot.com
'Script version Thursday, 16 April 2009 17:43:39
Call phyllotaxis_system()
Sub phyllotaxis_system()
Dim x,y,z,theta
Dim n:n=0
Dim dbla,dblb,dble,strobjects,strtxt,strline,ArrCurves3,p
'Call Rhino.EnableRedraw(False)
For n=0 To 50 Step 0.5
ReDim Preserve arrPts(n),arrPts1(n)
ReDim Preserve arrcircle(n),arrcone(n)
Dim arrplane
theta=(n/100)*rhino.pi
dbla=1
dblb=2
dble= 2.7182818284590
x=dbla*(dble*(dblb*theta))*cos(theta)
y= -dbla*(dble*(dblb*theta))*sin(theta)
z=log10(n)*10/2
arrPts(n) = array(x,y,z)
rhino.AddPoint arrpts(n)
Next
End Sub
----------------------