A = (-1.36, 1.5599999999999954)
B = (2.46, 1.3199999999999954)
C = (1.1400000000000001, -0.5600000000000046)
D = (-0.22, -0.9200000000000046)
E, F, lista1, lista2 = ReflejaMedio(A, B, C, D)
G, H, lista3, lista4 = ReflejaMedio(B, C, D, A)
I, J, lista5, lista6 = ReflejaMedio(C, B, G, H)
K, L, lista7, lista8 = ReflejaMedio(B, G, H, C)
M, N, lista9, lista10 = ReflejaMedio(E, K, B, A)
O, P, lista11, lista12 = ReflejaMedio(K, L, G, B)
Q, R, lista13, lista14 = ReflejaMedio(C, D, A, B)
S, T, lista15, lista16 = ReflejaMedio(H, C, B, G)
U, V, lista17, lista18 = ReflejaMedio(R, D, C, T)
W, Z, lista19, lista20 = ReflejaMedio(D, A, B, C)
A_1, B_1, lista21, lista22 = ReflejaMedio(A, E, K, B)
C_1, D_1, lista23, lista24 = ReflejaMedio(E, M, O, K)
E_1, F_1, lista25, lista26 = ReflejaMedio(H, S, T, C)
G_1, H_1, lista27, lista28 = ReflejaMedio(G, H, C, B)
I_1, J_1, lista29, lista30 = ReflejaMedio(L, G, B, K)
K_1, L_1, lista31, lista32 = ReflejaMedio(P, L, K, O)

Tool: ReflejaMedio
Cuatro vértices ordenados
Input: A, B, C, D
Output: C', D', lista1, lista2

C'_1 = Mirror(C, Midpoint[A, B])
C' = Mirror(C, Midpoint[A, B])
D' = Mirror(D, Midpoint[A, B])
lista1: {Segment[A, B], Segment[B, D'], Segment[D', C'], Segment[C', A]}
lista2: {Polygon[Midpoint[A, B], Midpoint[B, D'], Midpoint[D', C'], Midpoint[C', A]]}