編程模擬自然(三)：更好的靜態(tài)樹算法

Imports System.Numerics
Imports EDGameEngine.Core.Utilities
''' <summary>
''' 樹節(jié)點(diǎn)
''' </summary>
Public Class TreeNode
    ''' <summary>
    ''' 相對位置
    ''' </summary>
    Public Property Location As Vector2
    ''' <summary>
    ''' 絕對位置
    ''' </summary>
    Public Property RealLocation As Vector2
    ''' <summary>
    ''' 長度
    ''' </summary>
    Public Property Length As Single
    ''' <summary>
    ''' 層級
    ''' </summary>
    Public Property Rank As Integer
    ''' <summary>
    ''' 父級
    ''' </summary>
    Public Property Parent As TreeNode
    ''' <summary>
    ''' 子集
    ''' </summary>
    Public Property Children As New List(Of TreeNode)
    ''' <summary>
    ''' 花集
    ''' </summary>
    Public Property Flowers As New List(Of Flower)
    ''' <summary>
    ''' 中折角度
    ''' </summary>
    Public Property MidRotateAngle As Single
    ''' <summary>
    ''' 生長比例
    ''' </summary>
    Public Property Percent As Single
    ''' <summary>
    ''' 凋零比例
    ''' </summary>
    Public Property DiePercent As Single

    Public Shared Property Rnd As New Random

    ''' <summary>
    ''' 創(chuàng)建并初始化一個實(shí)例
    ''' </summary>
    Public Sub New(location As Vector2, length As Single, rank As Integer)
        Me.Location = location
        Me.Location.SetMag(length)
        Me.Length = length
        Me.Rank = rank
        Me.MidRotateAngle = CSng(Rnd.NextDouble)
    End Sub
End Class