stap = 8 (slider from 0 to 8, step 1)
A: (-1, -3)
B = Point(Segment[A, (x(A) + 10, y(A))])
f = Segment(A, B)
C: (1.43 + 3, 4.47)
i = Segment(B, C)
j = Segment(C, A)
k = AngularBisector(A, B, C)
l = AngularBisector(C, A, B)
D = Intersect(k, l)
m = OrthogonalLine(D, f)
G = Intersect(m, f)
n = Segment(B, D)
q = Segment(A, D)
p = Segment(D, G)
r = OrthogonalLine(D, j)
s = OrthogonalLine(D, i)
E = Intersect(r, j)
F = Intersect(s, i)
ε = Angle(D, E, A)
ζ = Angle(D, G, A)
η = Angle(D, A, G)
θ = Angle(D, A, E)
ι = Angle(D, B, G)
κ = Angle(F, B, D)
t = Segment(D, F)
a = Segment(D, E)
λ = Angle(G, D, E)
c = Circle(D, E)
H = (-5.054696871625527, -3.5308156355801796)