Turtleグラフィックスの例

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

Sub DrawKochCurve()

Dim i, length, N

    N = 4       ' コッホ次数
    length = 60      ' ０次の長さ

    InitializeGraphics
    
    SetViewPort 10, 10, 489, 489
    SetGraphicsWindow 0, 5000, 5000, 0
    
    TGSetPoint 500, 2000
    TGSetAngle 0
   
    For i = 1 To 3
         Koch N, length
         TGTurn -120
    Next i

End Sub

Sub Koch(N, length)

    If N = 0 Then
        TGMoveL length, QBColor(1)     ' 水色
    Else
        Koch N - 1, length
        TGTurn 60
        Koch N - 1, length
        TGTurn -120
        Koch N - 1, length
        TGTurn 60
        Koch N - 1, length
    End If
    
End Sub