I was Working couple weeks ago in a simple script to produce a recursion, I try drawing 3 points and then subdivided every segment for the mid point to find the another triangle inside of the original, the script appear in several minutes, Ididn`t think too much, I just typed very fast.
I learned recursion using C++, but I never used In Rvb, so this is my first experiments in recursion in Rvb. and this time I add The source of the original code, add comments, modify it, share, make differents Calls and send me Images.
Best.
Option Explicit
‘Script written by Carlos de la Barrera’
Call Main()
Sub Main()
Dim pt1, pt2, pt3, trip
pt1 = Rhino.GetPoint(”sel fisrt point”)
If IsNull (pt1) Then Exit Sub
pt2 = Rhino.GetPoint(”sel second point”)
If IsNull (pt2) Then Exit Sub
pt3 = Rhino.GetPoint(”sel third point”)
If IsNull (pt3) Then Exit Sub
trip = Rhino.AddPolyline(Array(pt1, pt2, pt3, pt1))
Call myFractal(trip, pt1, pt2, pt3)
End Sub
Function myFractal(trip, Opt1, Opt2, Opt3)
Dim pt1, pt2, pt3
pt1 = myMidFunction(Opt1, Opt2)
pt2 = myMidFunction(Opt2, Opt3)
pt3 = myMidFunction(Opt3, Opt1)
trip = Rhino.AddPolyline(Array(pt1, pt2, pt3, pt1))
If Rhino.Distance(pt1, pt2) > 0.01 Then
Call myFractal(trip, pt1, pt2, pt3)
Else
Exit Function
End If
End Function
Function myMidFunction(P1, P2)
Dim MidP
MidP = Array((P1(0) + P2(0)) / 2, (P1(1) + P2(1)) / 2, (P1(2) + P2(2)) / 2)
myMidFunction = MidP
End Function
