A = (-2.3487603305785125, 0.8323966942148757)
B = (4.990082644628107, 0.8819834710743804)
a = Segment(A, B)
k = 1.618033988749895
c: a / k
d = Circle(A, c)
I = Intersect(d, a, 1.0)
b = OrthogonalLine(B, a)
C_1 = Midpoint(a)
e = Circle(B, C_1)
C = Intersect(e, b, 2.0)
f = Segment(C, B)
g = Segment(C, A)
h = Circle(C, B)
E = Intersect(h, g, 1.0)
p = CircleArc(C, E, B)
q = CircleArc(A, I, E)