a = 1 (slider from 1 to 4, step 1)
A1 = (4.04, -4.0600000000000005)
A2 = (8.92, -2.7800000000000002)
n: 4.0 + 2.0 * round(a)
α: 2.0 * 3.141592653589793 / n
A3 = Rotate(A2 + Vector[A1, A2], α, A2)
A4 = Rotate(A3 + Vector[A2, A3], α, A3)
A5 = Rotate(A4 + Vector[A3, A4], α, A4)
A6 = Rotate(A5 + Vector[A4, A5], α, A5)
A7 = Rotate(A6 + Vector[A5, A6], α, A6)
A8 = Rotate(A7 + Vector[A6, A7], α, A7)
A9 = Rotate(A8 + Vector[A7, A8], α, A8)
A10 = Rotate(A9 + Vector[A8, A9], α, A9)
A11 = Rotate(A10 + Vector[A9, A10], α, A10)
B1 = 1
B2 = 2
B3: 2.0 * B2 - B1
B4: 2.0 * B3 - B2
B5: 2.0 * B4 - B3
B6: 2.0 * B5 - B4
B7: 2.0 * B6 - B5
B8: 2.0 * B7 - B6
B9: 2.0 * B8 - B7
B10: 2.0 * B9 - B8
B11: 2.0 * B10 - B9
B12: 2.0 * B11 - B10
A12 = Rotate(A11 + Vector[A10, A11], α, A11)
C2 = Segment(A1, A2)
C3 = Segment(A2, A3)
C4 = Segment(A3, A4)
C5 = Segment(A4, A5)
A13 = Rotate(A12 + Vector[A11, A12], α, A12)
B13 = 13
C6 = Segment(A5, A6)
C7 = Segment(A6, A7)
C8 = Segment(A7, A8)
C9 = Segment(A8, A9)
C10 = Segment(A9, A10)
C11 = Segment(A10, A11)
C12 = Segment(A11, A12)
C13 = Segment(A12, A13)
texto1: "n = " + n