N-pointed star

[macalwen]

Code: (Select All)

Code: (Select All)

Screen 12

Const pi = 3.1415926#

a% = 20

b% = 10

Dim deg As Double

Dim Shared As Single x2, y2

Window (-30, 30)-(30, -30)

Circle (0, 0), 2, 10

For theta = 0 To 360 Step 0.5

    deg = theta * pi / 180

    x = a% * Cos(deg)

    y = b% * Sin(deg)

    ' PSet (x, y), 10

    u1 = 30 * pi / 180

    u2 = 90 * pi / 180

    u3 = 150 * pi / 180

    Call rote(x, y, u1)

    PSet (x2, y2), 10

    Call rote(x, y, u2)

    PSet (x2, y2), 10

    Call rote(x, y, u3)

    PSet (x2, y2), 10

Next theta

Sub rote (x1, y1, u)

    x2 = x1 * Cos(u) - y1 * Sin(u)

    y2 = y1 * Cos(u) + x1 * Sin(u)

End Sub