12-09-2024, 05:12 AM
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
![[Image: star.jpg]](https://i.ibb.co/1fh5gVF/star.jpg)