lengtebasis = 3.8 (slider from 0 to 8, step 0.1)
t: y = -3
P = Point(t)
hoogte = 3 (slider from 0 to 8, step 0.1)
hoekzwart = 0.9773843811168246 rad (slider from 0 to 179°, step °)
d = Circle(P, hoogte)
j = OrthogonalLine(P, t)
A, B = Intersect(d, j)
k = Line(B, t)
c = Circle(P, lengtebasis)
T, U = Intersect(c, t)
P' = Rotate(P, (-hoekzwart), U)
i = Ray(U, P')
C = Intersect(i, k)
g = Segment(P, U)
δ = Angle(U, C, P)
α = Angle(P, U, C)
h = Segment(C, P)
l = Line(U, h)
D = Intersect(k, l)
r = Segment(D, U)
β = Angle(C, U, D)
γ = Angle(D, C, U)
f = Segment(C, D)
s = Segment(U, C)