O = Intersect(xAxis, yAxis)
M = (4.56, 1.32)
k = Circle(O, M)

Tool: h-Priamka (command h)
Bod, Bod, Kružnica
Input: A, B, k
Output: e

A' = Mirror(A, k)
B' = Mirror(B, k)
k' = If(Distance[A, k] ≠ 0, Circle[A', A, B], Circle[A, B, B'])
f = LineBisector(A, B)
g = LineBisector(A', A)
S_{k'} = Intersect(f, g)
K, L = Intersect(k', k)
d = CircleArc(S_{k'}, K, L)
c = CircleArc(S_{k'}, L, K)
e = If(c ≤ d, c, d)