F = (-3, 3)
k = Circle(F, 1)
A = (0.14, -0.5)
n = 3 (slider from 1 to 10, step 1)
C: A + (1, 0)
polígono1, a, b, c, B = Polygon(A, C, 3)
u = Vector(A, C)
v = Vector(A, B)
D: A + (n, 0)
polígono2, d, e, f, E = Polygon(A, D, 3)
G = Point(k)
polígono3, g, h, i, H = Polygon(F, G, 3)
lista1 = Sequence(Segment[A + (k * v), A + (k * v) + ((n - k) * u)], k, 1, n - 1)
lista2 = Sequence(Segment[A + (k * v), A + (k * v) + (k * (u - v))], k, 1, n - 1)
lista3 = Sequence(Segment[A + (k * u), A + (k * u) + ((n - k) * v)], k, 1, n - 1)