Mängi

Lõpeta

A = Intersect(xAxis, yAxis)
c = Circle(A, 5)
B = Intersect(c, yAxis, 2)
C = Intersect(c, yAxis, 1)
D = Intersect(c, xAxis, 2)
E = Intersect(c, xAxis, 1)
F = Midpoint(E, B)
G = Midpoint(B, D)
H = Midpoint(D, C)
I = Midpoint(C, E)
f = Line(A, G)
g = Line(A, F)
J = Intersect(c, g, 2)
K = Intersect(c, f, 2)
L = Intersect(c, g, 1)
M = Intersect(c, f, 1)
h = Segment(A, B)
i = Segment(A, K)
j = Segment(A, D)
k = Segment(A, L)
l = Segment(A, C)
m = Segment(A, M)
t = Segment(A, E)
p = Segment(A, J)
n = 19 (slider from 1 to 45, step 1)
l1 = Sequence(A + (h / n * (B - A)), h, 1, n)
l2 = Sequence(A + (i / n * (K - A)), i, 1, n)
l3 = Sequence(A + (j / n * (D - A)), j, 1, n)
l4 = Sequence(A + (k / n * (L - A)), k, 1, n)
l5 = Sequence(A + (l / n * (C - A)), l, 1, n)
l6 = Sequence(A + (m / n * (M - A)), m, 1, n)
l7 = Sequence(A + (t / n * (E - A)), t, 1, n)
l8 = Sequence(A + (p / n * (J - A)), p, 1, n)
l9 = Sequence(Segment[Element[l1, h], Element[l2, n - h]], h, 1, n)
l10 = Sequence(Segment[Element[l2, i], Element[l3, n - i]], i, 1, n)
l11 = Sequence(Segment[Element[l3, j], Element[l4, n - j]], j, 1, n)
l12 = Sequence(Segment[Element[l4, k], Element[l5, n - k]], k, 1, n)
l13 = Sequence(Segment[Element[l5, h], Element[l6, n - h]], h, 1, n)
l14 = Sequence(Segment[Element[l6, h], Element[l7, n - h]], h, 1, n)
l15 = Sequence(Segment[Element[l7, h], Element[l8, n - h]], h, 1, n)
l16 = Sequence(Segment[Element[l8, h], Element[l1, n - h]], h, 1, n)