分形模块化探索（万花筒）

yesmely

数学不好，题目名称可能不合适，意思是多边形中点连线后的多边形中点连线后的多边形中点连线......
以下为rhino.python代码，跟二叉树有点不同：

1. import rhinoscriptsyntax as rs
   
2. def tr(geo):
   
3.     lines=rs.ExplodeCurves(geo,True)
   
4.     list=[]
   
5.     for x in lines:
   
6.         list.append(rs.DivideCurve(x,2,False,True)[1])
   
7.     list.append(list[0])
   
8.     return rs.AddPolyline(list)
   
9. def trs(geo,deg):
   
10.     if deg==1:
    
11.         return tr(geo)
    
12.     else:
    
13.         return tr(trs(geo,deg-1))
    
14. geo=rs.GetObject("Select a Polygon:")
    
15. deg=rs.GetInteger("degree=")
    
16. trs(geo,deg)

复制代码

分享一段VB的， 是 Rajaa 在 PanelingTools 中分享的原代码

1. 
   
2. Call Main()
   
3. Sub Main()
   
4. 
   
5.     Dim arrCrvObject, strSrfObject, arrPanels, PTObj
   
6.     Const intMethod = 0 'Method = 0=all, 1=subs only, 2=mains only
   
7.     Const intDegree = 4 'Degree = Levels of sub paneling
   
8.     Const bPull = true  'Pull panels to surface
   
9. 
   
10.     On Error Resume Next
    
11.     'Get PanelingTools Object
    
12.     Set PTObj = Rhino.GetPluginObject("PanelingTools")
    
13. 
    
14.     If Err Then
    
15.         MsgBox Err.Description
    
16.         Exit Sub
    
17.     End If
    
18. 
    
19.     'Select a surface
    
20.     strSrfObject = Rhino.GetObject("Select a surface",8)
    
21. 
    
22.     If Rhino.IsSurface(strSrfObject) Then
    
23. 
    
24.         'Get any number of polylines to Sub Panel surface with
    
25.         arrCrvObject = Rhino.GetObjects("Select polylines",4)
    
26. 
    
27.         If IsArray(arrCrvObject) Then
    
28. 
    
29.             'Call Sub Paneling Method
    
30.             arrPanels = PTObj.SubPaneling( strSrfObject, arrCrvObject, intMethod, intDegree, bPull )
    
31.         End If
    
32.     End If
    
33. 
    
34.     Set PTObj = Nothing
    
35. End Sub
    
36. 
    

复制代码

跟帖补个GH版本的