Red invisible

Paralelogramos

ver1 = false
ver2 = false
ver3 = false
ver4 = false
verRed = false
mosaico = false
P = (-3.52, 5.4)
inc = 0.5
dis = 1
n: 3
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))
r = CircleSector(P - (0, (3 * dis)), P + (inc, ((-3) * dis)), P + (inc, inc - (3 * dis)))
A = (2.18, 2.38)
B = (2.2800000000000002, 0.02)
C = (6.4, -0.3)
D = (5.2, 3.36)
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'_1 = Mirror(A, J)
B' = Mirror(B, J)
C'_2 = Mirror(C, J)
D' = Mirror(D, J)
polígono1', a'_1, b'_1, c'_1, d'_1 = Polygon(A'_1, B', C'_2, 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)
w = Vector(A, B'1)
z = Vector(A, D')
lista1: {Sequence[Sequence[CircleSector[A + (s * w) + (t * z), A + ((B - A) / abs(B - A) * 0.5) + (s * w) + (t * z), A + ((D - A) / abs(D - A) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[C + (s * w) + (t * z), C + ((A'_1 - C) / abs(A'_1 - C) * 0.5) + (s * w) + (t * z), C + ((A'1 - C) / abs(A'1 - C) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[A'1 + (s * w) + (t * z), A'1 + ((B'1 - A'1) / abs(B'1 - A'1) * 0.5) + (s * w) + (t * z), A'1 + ((C - A'1) / abs(C - A'1) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[A'_1 + (s * w) + (t * z), A'_1 + ((C - A'_1) / abs(C - A'_1) * 0.5) + (s * w) + (t * z), A'_1 + ((D' - A'_1) / abs(D' - A'_1) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n]}
lista2: {Sequence[Sequence[CircleSector[B + (s * w) + (t * z), B + ((C - B) / abs(C - B) * 0.5) + (s * w) + (t * z), B + ((A - B) / abs(A - B) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[C + (s * w) + (t * z), C + ((B - C) / abs(B - C) * 0.5) + (s * w) + (t * z), C + ((A'_1 - C) / abs(A'_1 - C) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[B'1 + (s * w) + (t * z), B'1 + ((D - B'1) / abs(D - B'1) * 0.5) + (s * w) + (t * z), B'1 + ((A'1 - B'1) / abs(A'1 - B'1) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[A'_1 + (s * w) + (t * z), A'_1 + ((N - A'_1) / abs(N - A'_1) * 0.5) + (s * w) + (t * z), A'_1 + ((C - A'_1) / abs(C - A'_1) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n]}
lista3: {Sequence[Sequence[CircleSector[C + (s * w) + (t * z), C + ((D - C) / abs(D - C) * 0.5) + (s * w) + (t * z), C + ((B - C) / abs(B - C) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[B + (s * w) + (t * z), B + ((D' - B) / abs(D' - B) * 0.5) + (s * w) + (t * z), B + ((C - B) / abs(C - B) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[D + (s * w) + (t * z), D + ((C - D) / abs(C - D) * 0.5) + (s * w) + (t * z), D + ((B'1 - D) / abs(B'1 - D) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[N + (s * w) + (t * z), N + ((A'1 - N) / abs(A'1 - N) * 0.5) + (s * w) + (t * z), N + ((A'_1 - N) / abs(A'_1 - N) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n]}
lista4: {Sequence[Sequence[CircleSector[D + (s * w) + (t * z), D + ((A - D) / abs(A - D) * 0.5) + (s * w) + (t * z), D + ((C - D) / abs(C - D) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[C + (s * w) + (t * z), C + ((A'1 - C) / abs(A'1 - C) * 0.5) + (s * w) + (t * z), C + ((D - C) / abs(D - C) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[D' + (s * w) + (t * z), D' + ((A'_1 - D') / abs(A'_1 - D') * 0.5) + (s * w) + (t * z), D' + ((B - D') / abs(B - D') * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n], Sequence[Sequence[CircleSector[A'1 + (s * w) + (t * z), A'1 + ((C - A'1) / abs(C - A'1) * 0.5) + (s * w) + (t * z), A'1 + ((N - A'1) / abs(N - A'1) * 0.5) + (s * w) + (t * z)], s, (-n), n], t, (-n), n]}
lista5 = Sequence(Sequence[Polygon[E + (s * u) + (t * v), F + (s * u) + (t * v), G + (s * u) + (t * v), H + (s * u) + (t * v)], s, -10, 10], t, (-n), n)
AA: A
BB: B
CC: C
DD: D
e = Vector(B, D)
f = Vector(B, Mirror[A, Midpoint[c]])
lista6: {Sequence[Line[Midpoint[c] - f / 2 - e / 2 + (t * f), Midpoint[c] - f / 2 - e / 2 + (t * f) + e], t, -5, 5], Sequence[Line[Midpoint[c] - f / 2 - e / 2 + (t * e), Midpoint[c] - f / 2 - e / 2 + f + (t * e)], t, -5, 5]}