长啊长的树

panhao1

原来是rs（参见《101》）脚本 后来被我改写为gh脚本（当然是原创的啦）

为了说明gh脚本能取代rs（理论上的）
我做了个对比 （两颗树都是gh输出） 第二个加了实时bake脚本（我以前帖子中提到过关键性代码）  看起来像rs吧


还有视屏 大家看看吧

好了先看图

panhao1

《101》中的rs代码
Call Main()
Sub Main()
        Dim ptStart: ptStart = Array(0,0,0)
        Dim vecDir: vecDir = Array(0,0,1)
        Dim Props: Props = Array(3,4,6,5,0.8,30,0.7)
        Dim Generation: Generation = 2
        Call RecursiveGrowth(ptStart, vecDir, Props, Generation)
End Sub


Sub RecursiveGrowth(ByVal ptStart, ByVal vecDir, ByVal Props(), ByVal Generation)
        If Generation > Props(2) Then Exit Sub
        Dim ptGrow, vecGrow, newTwig
        Dim newProps : newProps = Props
        newProps(3) = Props(3) * Props(4)
        newProps(5) = Props(5) * Props(6)
        If newProps(5) > 90 Then newProps(5) = 90
        Dim N, maxN
        maxN = CInt(Props(0) + Rnd() * (Props(1) - Props(0)))
        For N = 1 To maxN
                ptGrow = RandomPointInCone(ptStart, vecDir, 0.25*Props(3), Props(3), Props(5))
                newTwig = AddArcDir(ptStart, ptGrow, vecDir)
                If Not IsNull(newTwig) Then
                        vecGrow = CurveTangent(newTwig, CurveDomain(newTwig)(1))
                        Call RecursiveGrowth(ptGrow, vecGrow, newProps, Generation+1)
                End If
        Next
End Sub

panhao1

我的关键性代码

If isnothing(pt) Then Exit Sub
    Dim Svector As New On3dPoint(0, 0, 1)
    Dim props2 As Integer = 0
    Dim arcs As New List(Of OnArc)
    Call Start(pt, svector, props0, props1, props2, gen, max1, min1, max2, min2, arcs)
    a = arcs

Public  Sub start(ByVal pt As On3dPoint, ByVal dir As on3dvector, ByVal  props0 As Integer, ByVal props1 As Integer, ByVal props2 As Integer, ByVal gen As Integer, ByVal max1 As Double, ByVal min1 As Double, ByVal max2 As Double, ByVal min2 As Double, ByRef arcs As list(Of onarc))
    If props2 >gen Then Exit Sub
    'randomize
    For i As int32=1 To (rnd() * props1 + props0)
      Dim randpt As New on3dpoint
      randpt = randompoint(pt, max1, min1, max2, min2, dir)
      Dim wing As New OnArc
      wing = addarc(pt, randpt, dir)
      If isnothing(wing) Then Exit Sub
      Dim direction As New on3dvector
      direction = wing.TangentAt(wing.Domain(1))
      arcs.add(wing)
      Call Start(randpt, direction, props0, props1, props2 + 1, gen, max1, min1, max2, min2, arcs)
    Next
  End Sub

yl0110

编程流的啊·······

odys

晕，GH里不还得用VB嘛。。其实差不多的

panhao1

6# odys
不是共同语言..

casshern

哇。。。。很厉害噢。。。和那个L SYS是不是有关联的吖？？？

skywoolf

前几天在Rabbit的练习里看了几个树的脚本，不知道路子是不是一样的，不过看起来这个形态更自由一些～

rreeff

这个是有代码的啊

aiko_3at

很强大~~学习了~~

董羽天

学习学习 O(∩_∩)O哈哈~

城市边缘工厂

多看看，多学学。学习了

rockband620

学习学习`````` 谢谢哦`````

wanghan06

其实一直不知道树能来做什么，见人做个人流分析的。

咖啡屋

学习学习`````` 谢谢哦`````

sfancys

赞一个~！！！！！！
希望GH完全取代RS的一天早点到来
省了学习RS的时间
哈哈~！！！！！

richo

希望人工智能的时代早点到来！！

unicorn003

想做个有意思的vb不可缺少，可是对我来说太难了啊

skyvsapple1

顶一下先~~~

miniorange

樓主太強大