.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