Ringi \; sisse \; ämblikuvõrgu \; loomine

A = (5.92, 5.26)
B = (9.46, 2.94)
c = Circle(A, B)
C = Rotate(B, 45°, A)
α = Angle(B, A, C)
D = Rotate(C, 45°, A)
β = Angle(C, A, D)
E = Rotate(D, 45°, A)
γ = Angle(D, A, E)
F = Rotate(E, 45°, A)
δ = Angle(E, A, F)
G = Rotate(F, 45°, A)
ε = Angle(F, A, G)
H = Rotate(G, 45°, A)
ζ = Angle(G, A, H)
I = Rotate(H, 45°, A)
η = Angle(H, A, I)
f = Segment(D, A)
g = Segment(C, A)
h = Segment(B, A)
i = Segment(I, A)
j = Segment(H, A)
k = Segment(G, A)
l = Segment(F, A)
m = Segment(E, A)
n = 5 (slider from 1 to 45, step 1)
l1 = Sequence(A + (f / n * (D - A)), f, 1, n)
l2 = Sequence(A + (g / n * (C - A)), g, 1, n)
l3 = Sequence(A + (h / n * (B - A)), h, 1, n)
l4 = Sequence(A + (i / n * (I - A)), i, 1, n)
l5 = Sequence(A + (j / n * (H - A)), j, 1, n)
l6 = Sequence(A + (k / n * (G - A)), k, 1, n)
l7 = Sequence(A + (l / n * (F - A)), l, 1, n)
l8 = Sequence(A + (m / n * (E - A)), m, 1, n)
l9 = Sequence(Segment[Element[l1, f], Element[l2, n - f]], f, 1, n)
l10 = Sequence(Segment[Element[l2, g], Element[l3, n - g]], g, 1, n)
l11 = Sequence(Segment[Element[l3, h], Element[l4, n - h]], h, 1, n)
l12 = Sequence(Segment[Element[l4, i], Element[l5, n - i]], i, 1, n)
l13 = Sequence(Segment[Element[l5, j], Element[l6, n - j]], j, 1, n)
l14 = Sequence(Segment[Element[l6, k], Element[l7, n - k]], k, 1, n)
l15 = Sequence(Segment[Element[l7, l], Element[l8, n - l]], l, 1, n)
l16 = Sequence(Segment[Element[l8, m], Element[l1, n - m]], m, 1, n)