Animation tracer une perpendiculaire

Comment tracer une droite perpendiculaire à une autre passant par un point.

animation

RAZ

Tracer le triangle ABC tel que AB=5cm, AC=4cm et BC=6cm.

5cm

6cm

4cm

a = Line(A_1, B_1)
step:0
nbstep:12
A = (-1.9782956995854208, 3.2232363170593388)
B = Point(Circle[A, 5])
b = Segment(A, B)
E = (6.369376401858689, 5.506495044659837)
F = (37.608094309249694, 5.456930389055349)
G = (6.864618364655243, 7.906563636030358)
c = Segment(G, A)
C_1 = Point(c)
d = Circle(A, 4)
H = Point(d)
I = (11.026334225123582, 8.008127724208684)
e = Segment(H, I)
f = Circle(C_1, 4)
D, D_2 = Intersect(f, e)
g = Circle(B, 6)
h = Circle(A, H)
L = Point(h)
k = CircleArc(A, H, L)
M = Point(k)
p = CircleArc(A, H, M)
J = (13.024495267197638, 7.936615876203465)
i = Segment(G, B)
q = Circle(B, 6)
O = Point(q)
j = Segment(J, O)
P = Point(i)
r = Circle(P, 6)
Q = Intersect(r, j, 1)
R = Point(q)
s = CircleArc(B, O, R)
S = Point(s)
t = CircleArc(B, O, S)
C = Intersect(p, t, 1)
l = Segment(C, A)
m = Segment(C, B)