N-pointed star

[macalwen]

Code: (Select All)

Code: (Select All)

Screen 12

Window (-160, 120)-(160, -120)

Const pi = 3.1415926# / 180

Dim x(100) As Double, y(100) As Double, Nx(100) As Single, Ny(100) As Single, r1 As Double

Dim r As Integer, n As Integer, i As Integer, j As Integer, m As Integer

Input "number of N angles of N-pointed star:", n

If n < 3 Or n > 100 Then End

r = 100

m = 0

r1 = r * Sin(((360 / n) * (1 / 4)) * pi) / Cos((360 / (2 * n)) * pi)

For i = 0 To 360 Step 360 / n

    x(m) = r * Cos((i + 90) * pi)

    y(m) = r * Sin((i + 90) * pi)

    Nx(m) = r1 * Cos((126 + i) * pi)

    Ny(m) = r1 * Sin((126 + i) * pi)

    m = m + 1

Next i

If 360 Mod n <> 0 Then x(n) = x(0): y(n) = y(0)

For j = 0 To n - 1

    Line (x(j), y(j))-(Nx(j), Ny(j)), 4

    Line (Nx(j), Ny(j))-(x(j + 1), y(j + 1)), 4

Next j