SyntaxBomb - Indie Coders

'_Title "Globe-5 branching" 'b+ 2021-11-29 trans to sb 2023-02-25
Const ss = 730
aFix = Pi * (3 / 2)
top = (5 ^ 5 - 1) / 4
Dim xp(1 To top), yp(1 To top)
For l = 0 To 4
    r = l * 90
    n = 5 ^ l
    stepper = Pi * (2 / n)
    ao = stepper / 2
    For a = 0 To Pi * (2) - .000001 Step stepper
        i = i + 1
        xp(i) = ss / 2 + r * Cos(a + ao + aFix)
        yp(i) = ss / 2 + r * Sin(a + ao + aFix)
    Next
Next
For i = 1 To 156
    Line xp(i), yp(i), xp(5 * i - 3), yp(5 * i - 3)
    Line xp(i), yp(i), xp(5 * i - 2), yp(5 * i - 2)
    Line xp(i), yp(i), xp(5 * i - 1), yp(5 * i - 1)
    Line xp(i), yp(i), xp(5 * i), yp(5 * i)
    Line xp(i), yp(i), xp(5 * i + 1), yp(5 * i + 1)
Next

This is cool. You have a good math brain. I'm jealous.