N = (-1, 2)
P = (3, 2)
i = Line(N, P)
A = Point(i)
hellingbl = 1.0995574287564276 rad (slider from 0 to 89°, step °)
A' = Rotate(A, (-hellingbl), P)
m = Ray(P, A')
P' = Rotate(P, (-hellingbl), N)
j = Ray(N, P')
lengtebl = 3.3 (slider from 0 to 8, step 0.1)
d = Circle(N, lengtebl)
T = Intersect(d, j)
h = Segment(N, T)
p = Circle(P, h)
hoekzwart = 0.5934119456780721 rad (slider from 0 to hoekgeel, step °)
U = Intersect(p, m)
U' = Rotate(U, (-hoekzwart), P)
l = Ray(P, U')
hoekgeel = 1.117010721276371 rad (slider from 0 to 179°, step °)
P'' = Rotate(P', (-hoekgeel), N)
k = Ray(N, P'')
lengtero = 5 (slider from 0 to 8, step 0.1)
c = Circle(N, lengtero)
O = Intersect(c, k)
f = Segment(N, O)
e = Circle(P, f)
Q = Intersect(e, l)
g = Segment(P, Q)
r = Segment(O, T)
α = Angle(O, N, T)
s = Segment(P, U)
t = Segment(Q, U)
β = Angle(Q, P, U)