A = (-1.9, 4.12)
a_2 = 3
B = Point(Circle[A, 3])
a = Segment(A, B)
b = LineBisector(a)
C = Intersect(b, a)
c = Circle(C, 6)
D = Intersect(c, b, 1)
poly1, b_1, a_1, d = Polygon(A, D, B)
e = Segment(C, D)
E = Point(e)
f = OrthogonalLine(E, e)
F = Intersect(f, b_1)
G = Intersect(f, a_1)
poly2, d_1, f_1, g = Polygon(F, G, D)
ED = Distance(E, D)
M: (ED, poly2)
R: (ED, (1.5 * ED))