extrahoek = 0.3665191429188092 rad (slider from 0 to 40°, step °)
lengtero = 4.5 (slider from 0 to 8, step 0.1)
tophoek = 0.8028514559173916 rad (slider from 0 to 179°, step °)
N = (5, 2)
p = Circle(N, lengtero)
P = (0, 2)
i = Line(P, N)
A = Point(i)
hellingbl = 1.2217304763960306 rad (slider from 0 to 89°, step °)
A' = Rotate(A, (-hellingbl), N)
A'' = Rotate(A', (-tophoek), N)
l = Ray(N, A'')
T = Intersect(p, l)
h = Segment(N, T)
c = Circle(P, h)
α = Angle(A'', N, A')
j = Ray(N, A')
lengtebl = 3.2 (slider from 0 to 8, step 0.1)
k = Circle(N, lengtebl)
O = Intersect(k, j)
f = Segment(N, O)
Q = Point(Circle[P, f])
Q' = Rotate(Q, (-α), P)
t = Ray(P, Q')
V = Intersect(c, t, 1)
V' = Rotate(V, (-extrahoek), P)
m = Ray(P, V')
Z = (-1, -3)
g = Segment(P, Q)
r = Segment(O, T)
U = Intersect(c, m)
s = Segment(P, U)
β = Angle(Q', P, Q)
a = Segment(V, P)
b = Segment(U, V)
d = Segment(V, Q)
e = Segment(Q, U)
γ = Angle(V, U, Q)
δ = Angle(Q, U, P)
ε = Angle(P, V, U)
ζ = Angle(P, V, Q)
η = Angle(V, P, U)
θ = Angle(A', N, A)