T: (8, 0)
U: (9, 0)
U' = Mirror(U, T)
T'_{1} = Mirror(T, U)
c = Semicircle(T, T'_{1})
T' = Point(c)
U'_{1} = Mirror(U, T')
Q: (0, -2)
A = Point(Segment[Q, (x(Q) + 10, y(Q))])
N = Midpoint(Q, A)
f_1 = Segment(Q, N)
P: (3, 2)
m = Segment(Q, P)
α = Angle(U', U, U'_{1})
g: y = y(P)
Q' = If(y(P) < y(Q), Rotate[Q, α, N], Rotate[Q, (-α), N])
h = Ray(N, Q')
W = Intersect(g, h)
D: (x(W) - Distance[Q, N], y(P))
q = Segment(W, N)
E = Intersect(m, q)
veelhoek2, g_1, h_1, i_1 = Polygon(N, Q, E)
stap = 7 (slider from 0 to 7, step 1)
veelhoek3, s, t, a, b = Polygon(Q, E, W, D)
veelhoek1, i, j, k = Polygon(N, A, P)
β = Angle(Q, N, Q')
n = Segment(N, E)
p = Segment(E, W)
veelhoek4, p_1, n_1, e_1 = Polygon(N, E, P)
j_1 = Segment(Q, A)
G = (-3.010676637093969, -3.7160220182179233)
r = Segment(P, D)