vgl1 = Segment((-1, 0), (-1, -4))
F = Point(vgl1)
B: (4, 2)
k = Segment((x(B), y(F) - 1), (x(B), y(F) - 3))
l: y = y(F)
U = Point(k)
c = Circle(B, U)
H, I = Intersect(c, l)
g_1 = Circle(H, I)
e_1 = Circle(I, H)
O = Intersect(e_1, g_1, 1)
R = Intersect(e_1, g_1, 2)
stap = 9 (slider from 0 to 9, step 1)
h_1 = Segment(O, R)
S = Intersect(h_1, l)
e = Segment(B, S)
d = CircleArc(B, H, I)
f = Segment(H, B)
g = Segment(B, I)
h = Segment(H, S)
γ = Angle(B, S, H)
i = Segment(S, I)
δ = Angle(B, S, I)
p = Circle(I, 1)
q = Circle(H, 1)
A, C = Intersect(q, l)
J, K = Intersect(p, l)
b = Segment(I, K)
s = Segment(H, A)
r = Circle(H, 1.5)
t = Circle(I, 1.5)
L, N = Intersect(c, r)
Q, T = Intersect(c, t)
d_1 = CircleArc(B, I, Q)
c_1 = CircleArc(B, N, H)
P = (-1.0598358043618585, -3.7571795888155046)
j = Segment(A, K)