.RVB Curlicue Fractal – Rhino Scripting

.RVB Curlicue Fractal

[Elif Erdine] recently started using Rhino Scripting as a design tool in my research. I will be documenting here my learning process through the .rvb scripts.

This study shows the Curlicue Fractal, which generates quite intricate patterns. (http://mathworld.wolfram.com/CurlicueFractal.html)

 

Call Curlicue()

Sub Curlicue()

Dim f

Dim i

Dim j

Dim pi

pi = Rhino.Pi

Dim sqtwo

sqtwo = 1.4142135623730950488016887

Dim eulers

eulers = 0.577215664901532860606512

Dim golden

golden = 1.618033988749894848204586

Dim lntwo

lntwo = 0.69314718055994530941

Dim e

e= 2.71828182845904523536028747

Dim p(2)

Dim ptCur()

  For j=0 To 50000*pi Step sqtwo*pi*2

f = f + j

p(0)= p(0) + Cos(f)

p(1)= p(1)+ Sin(f)

p(2)=p(2) + Cos(f)*Sin(f)

‘Rhino.AddPoint(p)

ReDim Preserve ptCur(i)

ptCur(i) = p

i=i+1

Next

Call Rhino.addcurve(ptCur, 3)

End Sub

source: Elif Erdine