Para construir con el compás la perpendicular a una recta d que pasa por un punto A.

Situar dos puntos B y C de la recta d.

Las circunferencias de centros B y C que pasan por A se cortan en un punto en D.

La recta AD es la perpendicular que buscábamos.

Dibujar las circunferencias de centros B y C que pasan por el punto A.

Podéis mover la recta d y el punto A.

A_1 = (-1.075126129916864, 1.6111901645845736)
B_1 = (17.77747244913258, -1.425165856560409)
a = Line(A_1, B_1)
A = (5.903960844058171, 6.4149773025154415)
B = Point(a)
C = Point(a)
c = Circle(B, A)
d = Circle(C, A)
D = Intersect(c, d, 2.0)
b = Line(A, D)
t = 0 (slider from 0 to 5, step 1)
e = Circle(B_1, 1.0)
E, F = Intersect(e, a)
f = OrthogonalLine(B_1, a)
G, H = Intersect(e, f)
u = Vector(B_1, H)
v = Vector(B_1, G)
w = Vector(B_1, F)
z = Vector(B_1, E)
T7: "Etapa n° " + t