GeometricScene[{{A.,B.,C.,D.,E.,F.,G.,H.,I.,J.,K.,L.},{a.,b.,c.,d.}},{Style[Line[{A.,B.}],Red],Style[Line[{C.,D.}],Red],Style[Line[{E.,F.}],Blue],Style[Line[{G.,H.}],Blue],Style[Line[{I.,J.}],Red],Style[Line[{K.,L.}],Blue],EuclideanDistance[A.,B.]a.3EuclideanDistance[C.,D.]3b.,EuclideanDistance[E.,F.]c.3EuclideanDistance[G.,H.]3d.,EuclideanDistance[I.,J.]2EuclideanDistance[A.,B.]2a.,EuclideanDistance[K.,L.]2EuclideanDistance[E.,F.]2c.},{EuclideanDistance[I.,J.]6EuclideanDistance[C.,D.],EuclideanDistance[K.,L.]6EuclideanDistance[G.,H.],2(3b.)(23)b.,2(3d.)(23)d.}]