Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
N-pointed star
#1
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]
Reply


Messages In This Thread
N-pointed star - by macalwen - 12-09-2024, 05:12 AM
RE: N-pointed star - by macalwen - 12-09-2024, 05:18 AM
RE: N-pointed star - by bplus - 12-09-2024, 12:26 PM
RE: N-pointed star - by bplus - 12-09-2024, 02:09 PM
RE: N-pointed star - by SierraKen - 12-09-2024, 09:44 PM
RE: N-pointed star - by James D Jarvis - 12-09-2024, 10:01 PM
RE: N-pointed star - by NakedApe - 12-10-2024, 12:26 AM
RE: N-pointed star - by macalwen - 12-10-2024, 10:57 AM



Users browsing this thread: 1 Guest(s)