stap = 14 (slider from 0 to 14, step 1)
A = (-2, -4)
B = Point(Segment[A, (x(A) + 8, y(A))])
f = Segment(A, B)
veelhoek1, g, h, i, j, k, C, D, E = Polygon(A, B, 5)
l = AngularBisector(B, A, E)
m = AngularBisector(A, B, C)
F = Intersect(l, i)
G = Intersect(l, m)
c = Circle(G, F)
H = Intersect(c, m, 2)
I = Intersect(c, k, 1)
J = Intersect(c, h, 1)
K = Intersect(c, f, 1)
n = Segment(G, D)
p = Segment(G, F)
q = Segment(G, C)
r = Segment(G, J)
s = Segment(G, B)
t = Segment(G, K)
a = Segment(G, A)
b = Segment(G, I)
d = Segment(G, E)
e = Segment(G, H)
β = Angle(G, K, A)
δ = Angle(A, I, G)
ε = Angle(B, C, D)
f_1 = Segment(A, I)
g_1 = Segment(I, E)
h_1 = Segment(B, K)
i_1 = Segment(K, A)
α = Angle(K, A, G)
γ = Angle(G, A, I)
ζ = Angle(K, B, G)
η = Angle(G, B, J)
L = (7, 5)
M: (8.5, 5)
N = (10, 5)
O = (10, 4)
P: (8.5, 4)
Q = (7, 4)
j_1 = Segment(L, M)
k_1 = Segment(M, N)
l_1 = Segment(O, P)
m_1 = Segment(P, Q)
θ = Angle(I, E, G)
ι = Angle(H, E, G)
κ = Angle(F, C, G)
λ = Angle(G, C, J)
μ = Angle(F, C, G)
ν = Angle(G, C, J)
R = (-5.949284980069921, -4.200851170989674)