lista1 = Sequence(Segment[(-5, k), (18, k)], k, -7, 7)
lista2 = Sequence(Segment[(k, -7), (k, 7)], k, -5, 18)
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°, 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)) + " }" + (If[Distance[A, B] ≟ floor(Distance[A, B]), "=" + (Distance[A, B]), ""])