I’ve 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

Posted: April 16th, 2009 under Parametric Design.
Comments: none