GeometricScene[{{A.,B.,C.,D.,E.,F.,G.,H.},{a.,b.}},{Style[Line[{A.,B.}],Blue],Style[Line[{C.,D.}],Blue],Style[Line[{E.,F.}],Red],Style[Line[{G.,H.}],Red],EuclideanDistance[A.,B.]2EuclideanDistance[C.,D.]2a.,EuclideanDistance[E.,F.]2EuclideanDistance[G.,H.]2b.},{EuclideanDistance[A.,B.]+EuclideanDistance[E.,F.]2(EuclideanDistance[C.,D.]+EuclideanDistance[G.,H.]),2a.+2b.2(a.+b.)}]