Q = (-1, -1)
T = (6, -1)
r = Ray(Q, T)
P = (-4, 0)
g = Segment(P, Q)
V = Point(r)
afstand = 2 (slider from -5 to 5, step 0.1)
i = OrthogonalLine(T, r)
c = Circle(T, abs(afstand))
A, B = Intersect(c, i)
j = Line(B, r)
k = Line(A, r)
C = Point(j)
D = Point(k)
l = Ray(C, B)
m = Ray(D, A)
n = Segment(P, C)
p = Segment(P, D)
hellingderde = -0.4537856055185257 rad (slider from -80° to 80°, step °)
T' = Rotate(T, 90° - hellingderde, V)
s = Line(T', V)
E = Intersect(s, l)
F = Intersect(s, m)
α = Angle(V, E, B)
δ = Angle(C, E, V)
β = Angle(E, V, Q)
γ = Angle(E, V, T)
ε = Angle(Q, V, F)
ζ = Angle(F, V, T)
η = Angle(A, F, V)
θ = Angle(V, F, D)