Turtleグラフィックスの例

パラメータの値は適当に変更してください。

Sub DrawTree()

Dim myLength, myTurn, myRatio

    myLength = 200     '  ' ０次の枝の長さ
    myTurn = 60         ' 折れ曲がりの角度
    myRatio = 0.6      '  ' 枝の長さの比率
    
    InitializeTurtleGraphics
    
    TreeAll myLength, myTurn, myRatio

End Sub

Sub TreeAll(myLength, myTurn, myRatio)

    If myLength < 5 Then Exit Sub
    
    TGMoveL myLength, vbGreen
    TGRightTurn myTurn
   
    TreeAll myLength * myRatio, myTurn, myRatio
    
    TGTurn myTurn
    TGTurn myTurn
    
    TreeAll myLength * myRatio, myTurn, myRatio
    TGRightTurn myTurn
    
    TGBackward myLength, vbGreen
    
End Sub