A = Intersect(xAxis, yAxis)
B = Point(yAxis)
a = Ray(A, B)
H = Point(a)
C: (0, y(H) / 2)
r: y(C)
D: (2 * 3.141592653589793 r, r)
b = Segment(C, D)
E = Point(b)
c = Circle(E, r)
F: (x(E), 0)
G = Rotate(F, -x(E) / r, E)
d = Segment(A, F)
e = CircleArc(E, F, G)
g = If(x(E) > 0, Circle[100 C, 0], Circle[C, H])
f = Segment(E, G)
I: (x(F), -0.25)
u = Vector(I, F)
T1: "" + (x(F))