长啊长的树

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

panhao1

6# odys
不是共同语言..

panhao1

23# jasonbb88

你转一下格式就变小了 大概1M左右