lista1 = Sequence(Segment[(-(5.0), k), (18.0, k)], k, -7.0, 7.0)
lista2 = Sequence(Segment[(k, -(7.0)), (k, 7.0)], k, -5.0, 18.0)
A = (5, 1)

Tool: Segmento, dados 2 puntos (command Segmento)
Señala origen y extremo
Input: A, B
Output: b

b = Segment(A, B)

Tool: Espiral de raices (command Espiralderaices)
Señala dos puntos
Input: A, B
Output: C, b, a

C = Rotate(B + (B - A) / Distance[A, B], 90.0*°, B)
a = Segment(B, C)
b = Segment(A, C)

Tool: Medida exacta (command Medidaexacta)
Clic en los dos extremos
Input: A, B
Output: texto1

texto1: " \sqrt{ " + (Distance[A, B]^(2.0)) + " }" + (If[Distance[A, B] ≟ floor(Distance[A, B]), "=" + (Distance[A, B]), ""])