ReflejaMedio

Cuatro vértices ordenados

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