Étoile mince

EtoileMince[ <Point>, <Point>, <Nombre> ]

Étoile large

EtoileLarge[ <Point>, <Point>, <Nombre> ]

n: 7
M: (A + B) / 2
O: M + (OrthogonalVector[Vector[M, B]] * cot(pi / n))
k = Max(floor((n - 3) / 2), 1)
A_k = Rotate(B, ((2 * k) * pi / n), O)
B_k = Rotate(A, ((-2 * k) * pi / n), O)
C_k = Intersect(Segment[A, A_k], Segment[B, B_k])
liste_k = Flatten(Sequence[{Rotate[C_k, ((2 * pi) * i / n), O], Rotate[B, ((2 * pi) * i / n), O]}, i, 0, n - 1])
étoile_k = Polygon(liste_k)
n: 7
M: (A + B) / 2
O: M + (OrthogonalVector[Vector[M, B]] * cot(pi / n))
A_1 = Rotate(B, (2 * pi / n), O)
B_1 = Rotate(A, (-2 * pi / n), O)
C_1 = Intersect(Segment[A, A_1], Segment[B, B_1])
liste_1 = Flatten(Sequence[{Rotate[C_1, ((2 * pi) * i / n), O], Rotate[B, ((2 * pi) * i / n), O]}, i, 0, n - 1])
étoile_1 = Polygon(liste_1)