A = (0.36, -0.10000000000000454)
B = (3.7600000000000002, -0.24000000000000454)
C = (4, -3.380000000000005)
D = (-0.24, -3.400000000000005)
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]]}

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]]}