27 April 2009

Phyllotaxis system01

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
----------------------

2 commenti:

pegz said...

hi there
the drawings look amazing
just wonder if I can do this phyllotaxis system using grasshopper only instead of the script?

I just started learning rhino for a week.
thanks

DAVIDE DEL GIUDICE said...

Hi pegz,

if can do it following this post:

http://madeincalifornia.blogspot.com/2009/08/phyllotaxis-system-04.html

cheers,

D