stap = 14 (slider from 0 to 14, step 1)
hoogte = 4 (slider from 0 to 7, step 0.1)
A = (5, 2)
B = (5, -7)
i = Line(A, B)
e = Circle(A, hoogte)
C, D = Intersect(e, i)
breedte = 3 (slider from 0 to 5, step 0.1)
k = Circle(D, breedte)
p = Circle(A, (hoogte^(2) + breedte^(2))^(0.5))
E, F = Intersect(p, k)
g = Segment(D, E)
h = Segment(A, D)
f = Segment(A, E)
α = Angle(A, D, E)
j = Line(D, E)
G, H = Intersect(k, j)
t = Segment(H, D)
β = Angle(H, D, A)
s = Segment(A, H)