I want to put n equally spaced points on a circle and automatically draw chords from all points to a fixed point preferably P(0,0).
I have managed to draw the points and the circle so far with
func[n_] := Graphics[{Orange, Thickness[0.001],
{Circle[{0, 0}, 1], {Darker[Blue], PointSize@0.02,
Point[Table[{Cos[a], Sin[a]}, {a, 0, 2 \[Pi] - (2 \[Pi])/n, (
2 \[Pi])/n}]]}}}];
Manipulate[func[n], {n, 3, 50}]
For n=6 it should somehow look like this
func[n_] := Graphics[{Orange, Thickness[0.001],
{{Circle[{0, 0}, 1], {Darker[Blue], PointSize@0.02,
Point[Table[{Cos[a], Sin[a]}, {a, 0, 2 \[Pi] - (2 \[Pi])/n, (
2 \[Pi])/n}]]}},
Line[{
{Cos[(2 \[Pi])/6], Sin[(2 \[Pi])/6]}, {Cos[0],
Sin[0]}, {Cos[2 (2 \[Pi])/6], Sin[2 (2 \[Pi])/6]}, {Cos[0],
Sin[0]}, {Cos[3 (2 \[Pi])/6], Sin[3 (2 \[Pi])/6]}, {Cos[0],
Sin[0]}, {Cos[4 (2 \[Pi])/6], Sin[4 (2 \[Pi])/6]}, {Cos[0],
Sin[0]}, {Cos[5 (2 \[Pi])/6], Sin[5 (2 \[Pi])/6]}, {Cos[0],
Sin[0]}
}]}}];
Manipulate[func[n], {n, 3, 50}]
Help is very much appreciated.