R

r

a

A = (1.74, -0.46)
B = (1.72, 4.06)
C = (-0.54, -0.16)
D = (-0.58, 3.76)
f = Line(D, C)
E = Midpoint(D, C)
g = OrthogonalLine(E, f)
F = (1.04, 2.96)
h = OrthogonalLine(F, g)
G = Intersect(g, h)
i = Segment(F, E)
j = Segment(E, G)
k = Segment(G, F)