T: (0.5, -0.94)
P = (3, 2)
N = (-1, 2)
h = Segment(N, T)
p = Circle(P, h)
n = Line(P, h)
C, D = Intersect(p, n)
O: (-4.01, -1.99)
α = Angle(O, N, T)
i = Line(N, P)
U'_{1} = Rotate(If[y(D) < y(C), D, C], (-α), P)
q = CircleArc(P, U'_{1}, If[y(D) < y(C), D, C])
U' = Point(q)
l = Ray(P, U')
f = Segment(N, O)
e = Circle(P, f)
Q = Intersect(e, l)
g = Segment(P, Q)
s = Segment(P, If[y(D) < y(C), D, C])
r = Segment(O, T)
B = (-5.0800495710553895, -4.390996390497763)
t = Segment(Q, If[y(D) < y(C), D, C])
β = Angle(If[y(D) < y(C), D, C], P, U')