A = (4, -1)
B = (4.873272582491957, -0.9774997569152168)
polígono1, a0, b0, c0, d0, e0, C, D, E = Polygon(A, B, 5.0)
AA: A
BB: B
DD = Intersect(Line[A, C], Line[B, E])
polígono3, a, b, c, d, e = Polygon(A, B, C, DD, E)
A' = Rotate(A, 36.0*°, C)
B' = Rotate(B, 36.0*°, C)
C' = Rotate(C, 36.0*°, C)
DD' = Rotate(DD, 36.0*°, C)
E' = Rotate(E, 36.0*°, C)
polígono3', a', b', c', dd', e' = Polygon(A', B', C', DD', E')

Tool: Pentágono Regular (command PentágonoRegular)
Clic en dos vértices consecutivos
Input: H, I
Output: poly3, J, K, L, h, i, j, k, l

poly3, h, i, j, k, l, J, K, L = Polygon(H, I, 5.0)