A = (-3, -3)
lengte = 8 (slider from (2 * veelhoek1^(0.5)) to 10, step 0.05)
B = Point(Circle[A, lengte])
E = Midpoint(A, B)
i = Segment(E, A)
F = (9, -3)
hoogtevb = 1.25 (slider from 0 to 2, step 0.05)
D = (10, 6)
C = (11, 3)
B_1 = (6, 2)
A_1 = (7, 5)
veelhoek1, a, b, c, d = Polygon(A_1, B_1, C, D)
f = Segment(A, B)
g = Line(F, f)
Z = Point(g)
r = Circle(Z, 1)
C_1, L = Intersect(r, g)
g_2 = Segment(Z, L)
H = (17, -3)
q = OrthogonalLine(F, g)
k = Circle(F, (((i^(2) * hoogtevb) - veelhoek1) / hoogtevb)^(0.5))
hoek = 1.9198621771937625 rad (slider from 0 to 179°, step °)
c_1 = Circle(F, (hoogtevb * (((i^(2) * hoogtevb) - veelhoek1) / hoogtevb)^(0.5)))
K = Intersect(k, g, 1)
M = Intersect(c_1, q, 2)
f_1 = OrthogonalLine(M, q)
D_1 = Rotate(L, hoek, Z)
h_2 = Ray(Z, D_1)
j_2 = OrthogonalLine(Z, g_2)
c_2 = Circle(Z, hoogtevb)
E_1, F_1 = Intersect(c_2, j_2)
k_2 = OrthogonalLine(F_1, j_2)
G_1 = Intersect(k_2, h_2)
l_2 = Line(L, h_2)
H_1 = Intersect(k_2, l_2)
veelhoek8, s, m_2, n_2, p_2 = Polygon(Z, L, H_1, G_1)
N = (13, -3)
I_1 = (14, -3)
J_1 = (15, -3)
d_2 = Segment(I_1, J_1)
K_1 = (16, -3)
e_2 = Segment(J_1, K_1)
f_3 = Segment(I_1, N)
N_1 = (13, -4)
I_2: (14.5, -4)
J_2: (16, -4)
d_3 = Segment(I_2, J_2)
f_4 = Segment(I_2, N_1)
N_2: (13, -5)
I_3: (14.5, -5)
J_3: (16, -5)
d_4 = Segment(I_3, J_3)
f_5 = Segment(I_3, N_2)
N_3: (13, -6)
I_4: (16, -6)
f_6 = Segment(I_4, N_3)
N_4: (13, -7)
I_5: (16, -7)
f_7 = Segment(I_5, N_4)
N_5: (13, -8)
I_6: (14.5, -8)
J_4: (16, -8)
d_5 = Segment(I_6, J_4)
f_8 = Segment(I_6, N_5)
r_2 = Segment(N_5, J_4)
stap = 9 (slider from 0 to 9, step 1)
a_2 = Segment(A, B)
b_2 = Segment(E, B)
h = Line(E, p_2)
e = Circle(E, (i * hoogtevb))
j = OrthogonalLine(E, g)
G, I = Intersect(e, j)
l = OrthogonalLine(I, j)
J = Intersect(h, l)
m = Line(B, h)
O = Intersect(l, m)
P = Intersect(k, g, 2)
n = Line(F, p_2)
p = Line(P, n)
Q = Intersect(f_1, n)
R = Intersect(p, f_1)
veelhoek2, f_2, p_1, r_1, q_1 = Polygon(F, P, R, Q)
g_1 = Segment(J, O)
i_1 = Line(A, h)
t = Segment(J, E)
S = Intersect(l, i_1)
j_1 = Segment(A, S)
k_1 = Segment(J, S)
l_1 = Segment(J, E)
d_1 = Circle(J, q_1)
U = Intersect(d_1, l_1)
m_1 = Line(U, l)
e_1 = Circle(U, f_2)
V, W = Intersect(e_1, m_1)
n_1 = Segment(U, V)
s_1 = Segment(J, U)
t_1 = Segment(U, E)
a_1 = Line(V, h)
L_1 = Intersect(a_1, g_1)
veelhoek3, u, v, l_3, j_3 = Polygon(U, V, L_1, J)
i_2 = Segment(J, B)
b_1 = Segment(B, V)
h_1 = Segment(O, B)
T = Intersect(a_1, b_2)
M_1 = Intersect(m_1, h_1)
veelhoek4, t_2, b_3, m_3, v_1 = Polygon(T, B, M_1, V)
veelhoek5, v_2, m_4, o, l_4 = Polygon(V, M_1, O, L_1)
veelhoek6, e_3, t_3, v_3, u_1 = Polygon(E, T, V, U)
q_2 = Segment(T, B)
O_1 = Intersect(m_1, j_1)
s_2 = Segment(S, O_1)
g_3 = Segment(O_1, A)
h_3 = Segment(O_1, U)