C = (-1.44, 2.2)
B = (6.48, 1.66)
a = Segment(C, B)
A = Midpoint(a)
c = Circle(A, B)
b = OrthogonalLine(A, a)
E = Intersect(c, b, 2)
D = Intersect(c, b, 1)
d = Segment(C, E)
e = Segment(E, B)
f = Segment(B, D)
g = Segment(D, C)
h = CircleArc(D, B, C)
k = CircleArc(E, C, B)
p = CircleArc(B, E, D)
q = CircleArc(C, D, E)
F = Intersect(q, a, 1)
r = Circle(A, F)