distance un point à une droite

A = (-12.47830439286904, -2.5068223342068117)
B_{1} = (5.4596196003243875, 7.299242782072255)
d = Line(A, B_{1})
B = (1.154517841957965, -8.831601460695747)
H = Point(d)
f = Segment(B, H)
distanceHB = Distance(H, B)
TexteHB: Name[H] + (Name[B]) + " = " + distanceHB
C = Point(d)
α = Angle(C, H, B)