A = (0, 0)
I = Point(Segment[A, (x(A) + 8, y(A))])
stap = 14 (slider from 0 to 14, step 1)
c = Circle(A, I)
B = Point(c)
d = Circle(B, A)
C = Intersect(c, d, 1)
g = Ray(C, A)
D = Intersect(c, d, 2)
h = Ray(D, A)
E = Intersect(c, h, 2)
G = Intersect(c, g, 2)
f = Line(A, B)
F = Intersect(c, f, 2)
H = Intersect(d, f, 2)
veelhoek1, d_1, b, c_1, e, f_1, g_1 = Polygon(D, B, C, E, F, G)
i = Segment(H, B)
j = Segment(B, F)
k = Segment(E, D)
l = Segment(C, G)
α = Angle(E, A, D)
β = Angle(E, A, C)
γ = Angle(C, A, B)
δ = Angle(B, A, D)
J = (-5.949284980069916, -4.7260147548804285)