O = (-1, -1)
A = (10, -4)
B: (x(A), y(A) - 0.5)
G: (x(B) - 5, y(B))
k = Segment(B, G)
F = Point(k)
p = Segment(B, F)
E: (x(A) - 5, y(A))
j = Segment(A, E)
R = Point(j)
i = Segment(A, R)
P: (x(O) + i, y(O))
V = Point(Circle[P, p])
C: (x(A), y(A) - 1)
H: (x(C) - 5, y(C))
g = Segment(C, H)
N = Point(g)
q = Segment(C, N)
r = Segment(O, P)
Q = Point(Circle[O, q])
t = Segment(O, Q)
f_1 = Segment(P, V)
c_1 = Circle(P, V)
d_1 = Circle(O, Q)
W = Intersect(c_1, d_1, 2)
g_1 = Segment(P, W)
h_1 = Segment(W, O)
stap = 5 (slider from 0 to 5, step 1)
D = (-5.0619405000342566, -5.6586311872184405)