M

k

2 cm

A = (-0.02, -2.68)
B = (6.1, -2.72)
a = Line(A, B)
b = OrthogonalLine(A, a)
C = Point(b)
c = Circle(A, 2)
D, E = Intersect(c, b)
d = Segment(E, A)