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