A = (7, 2)
D = Point(Segment[A, (x(A), y(A) - 7)])
E = Point(Segment[D, (x(D) + 8, y(D))])
stap = 14 (slider from 0 to 14, step 1)
g = Segment(D, E)
h = Segment(A, D)
f = Segment(A, E)
α = Angle(A, D, E)
j = Line(D, E)
k = Circle(D, E)
G, H = Intersect(k, j)
t = Segment(H, D)
β = Angle(H, D, A)
s = Segment(A, H)
I = (-0.9873995202772771, -5.457620526595588)
e = Circle(A, D)
p = Circle(A, (Distance[A, D]^(2) + Distance[D, E]^(2))^(0.5))