stap = 7 (slider from 0 to 7, step 1)
lengte = 4 (slider from 0 to 5, step 0.1)
hoekbl = 1.3089969389957472 rad (slider from 0 to 178°, step °)
hoekge = 0.6981317007977318 rad (slider from 0° to 179° - hoekbl, step °)
A = (4.486972649413807, 2.2858171745152833)
B = Point(Circle[A, lengte])
f = Segment(A, B)
B' = Rotate(B, (-hoekbl), A)
γ = Angle(B, A, B')
A' = Rotate(A, hoekge, B)
δ = Angle(A', B, A)
g = Ray(B, A')
h = Ray(A, B')
C = Intersect(g, h)
ε = Angle(B, C, A)
j = Segment(C, A)
i = Segment(C, B)
straal = 3 (slider from 0 to 5, step 0.1)
D = (1, 0)
c = Circle(D, straal)
E = Point(c)
k = Segment(D, E)
l = OrthogonalLine(E, k)
F = Point(l)
G = Point(l)
G' = Rotate(G, (-δ), E)
ζ = Angle(G', E, G)
m = Ray(E, G')
F' = Rotate(F, γ, E)
η = Angle(F, E, F')
n = Ray(E, F')
θ = Angle(F', E, G')
H = Intersect(c, m, 2)
I = Intersect(c, n, 2)
veelhoek1, h_1, e, i_1 = Polygon(E, I, H)
ι = Angle(E, H, I)
κ = Angle(E, I, H)
p = Segment(G, F)
λ = Angle(E, I, H)