A = (-0.54, -4.6)
B = (13.82, -4.66)
a = Segment(A, B)
C = Point(a)
c, k_a, k_b, M, M_a, M_b = arbelos2(A, B, C)
b = OrthogonalLine(C, a)
D = Intersect(c, b, 1)
f = OrthogonalLine(M_b, a)
F = Intersect(k_b, f, 1)
g = Segment(M_a, F)
G = Intersect(b, g)
h = Circle(G, C)
H = Intersect(k_a, h, 1)
I = Intersect(k_b, h, 2)
i = Ray(M_a, H)
j = Ray(M_b, I)
M_i = Intersect(i, j)
k = Circle(M_i, I)

Tool: arbelos2
input:endpoints, then intermediate point  output: arbelos
Input: A, B, C
Output: e, c, d, D, E, F

a = Segment(A, B)
c = Semicircle(A, C)
d = Semicircle(C, B)
e = Semicircle(A, B)
D = Center(e)
E = Center(c)
F = Center(d)

Tool: arbelos
input: two points   output:three semicircles with center for arbelos
Input: A, B
Output: a, C, c, d, e, D, F, E

a = Segment(A, B)
C = Point(a)
c = Semicircle(A, C)
d = Semicircle(C, B)
e = Semicircle(A, B)
E = Center(d)
F = Center(e)
D = Center(c)