Paralelogramos

C = (9.24, 0.48)
B = (4.62, 1.22)
A = (2.98, 3.88)
Q = Midpoint(A, C)
ver1 = false
ver2 = false
ver3 = false
verRed = false
P = (-3.52, 5.4)
inc = 0.5
dis = 1
n: 4
q = CircleSector(P - (0, (2 * dis)), P + (inc, ((-2) * dis)), P + (inc, inc - (2 * dis)))
k = CircleSector(P, P + (inc, 0), P + (inc, inc))
p = CircleSector(P - (0, dis), P + (inc, (-dis)), P + (inc, inc - dis))
D = Mirror(B, Q)
polígono1, a, b, c, d = Polygon(A, B, C, D)
E = Midpoint(d)
F = Midpoint(a)
G = Midpoint(b)
H = Midpoint(c)
I = Midpoint(c)
A'1 = Mirror(A, I)
B'1 = Mirror(B, I)
C'_1 = Mirror(C, I)
D'_1 = Mirror(D, I)
polígono1'_1, a', b', c', d' = Polygon(A'1, B'1, C'_1, D'_1)
J = Midpoint(b)
A' = Mirror(A, J)
B'_1 = Mirror(B, J)
C' = Mirror(C, J)
D' = Mirror(D, J)
polígono1', a'_1, b'_1, c'_1, d'_1 = Polygon(A', B'_1, C', D')
K = Midpoint(d')
L = Mirror(A'1, K)
M = Mirror(B'1, K)
N = Mirror(C'_1, K)
O = Mirror(D'_1, K)
polígono2, l, m, n1, o = Polygon(L, M, N, O)
u = Vector(F, H)
v = Vector(E, G)
AA: A
BB: B
CC: C
lista1: {Sequence[Sequence[CircleSector[A + (s * u) + (t * v), A + ((B - A) / abs(B - A) * 0.5) + (s * u) + (t * v), A + ((C - A) / abs(C - A) * 0.5) + (s * u) + (t * v)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[C + (s * u) + (t * v), C + ((D - C) / abs(D - C) * 0.5) + (s * u) + (t * v), C + ((A - C) / abs(A - C) * 0.5) + (s * u) + (t * v)], s, (-n), n], t, (-n), n]}
lista2: {Sequence[Sequence[CircleSector[B + (s * u) + (t * v), B + ((C - B) / abs(C - B) * 0.5) + (s * u) + (t * v), B + ((A - B) / abs(A - B) * 0.5) + (s * u) + (t * v)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[D + (s * u) + (t * v), D + ((A - D) / abs(A - D) * 0.5) + (s * u) + (t * v), D + ((C - D) / abs(C - D) * 0.5) + (s * u) + (t * v)], s, (-n), n], t, (-n), n]}
lista3: {Sequence[Sequence[CircleSector[C + (s * u) + (t * v), C + ((A - C) / abs(A - C) * 0.5) + (s * u) + (t * v), C + ((B - C) / abs(B - C) * 0.5) + (s * u) + (t * v)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[A + (s * u) + (t * v), A + ((C - A) / abs(C - A) * 0.5) + (s * u) + (t * v), A + ((D - A) / abs(D - A) * 0.5) + (s * u) + (t * v)], s, (-n), n], t, (-n), n]}
poly1, c_1, a_1, b_1 = Polygon(A, B, C)
lista4 = Sequence(Sequence[{Line[A + (s * u) + (t * v), B + (s * u) + (t * v)], Line[A + (s * u) + (t * v), D + (s * u) + (t * v)]}, s, -10, 10], t, (-n), n)