lengte = 6 (slider from 0 to 10, step 0.1)
stap = 14 (slider from 0 to 14, step 1)
A = (-1, -4)
B = Point(Circle[A, lengte])
f = Segment(A, B)
veelhoek1, g, h, i, j, C, D = Polygon(A, B, 4)
E = Midpoint(D, A)
c = Circle(E, B)
k = Ray(D, A)
F = Intersect(c, k, 1)
d = Circle(A, F)
G = Intersect(d, f, 1)
l = Segment(A, G)
m = Segment(G, B)
e = Circle(A, B)
p = Circle(B, l)
H = Intersect(e, p, 1)
n = Segment(B, H)
q = Segment(H, A)
r = Segment(G, H)
s = LineBisector(H, A)
t = LineBisector(H, G)
I = Intersect(s, t)
c_1 = Circle(I, G)
α = Angle(G, A, H)
β = Angle(H, B, G)
γ = Angle(G, H, B)
δ = Angle(B, G, H)
ε = Angle(A, H, G)
ζ = Angle(B, A, H)