Merry Christmas

GeoGebra Commands & Parameters

1. Intersect(xAxis, yAxis) → A
2. Circle(A, a) → c
3. Point(c) → B
4. Circle(B, a) → d
5. Intersect(c, d, 1) → C
6. Polygon(B, C, 6) → wielokąt1, f, G, g, h, i, j, k, D, E, F
7. Polygon(D, C, 3) → wielokąt2, l, m, n_{1}, H
8. Polygon(E, D, 3) → wielokąt3, p, q, r, I
9. Polygon(F, E, 3) → wielokąt4, s, t, b, J
10. Polygon(G, F, 3) → wielokąt5, e, f_1, g_1, K
11. Polygon(B, G, 3) → wielokąt6, h_1, i_1, j_1, L
12. Polygon(C, B, 3) → wielokąt7, k_1, l_1, m_1, M
13. Sequence(E + (i / n * (J - E)), i, 1, n) → l1
14. Sequence(F + (i / n * (J - F)), i, 1, n) → l2
15. Sequence(K + (i / n * (F - K)), i, 1, n) → l3
16. Sequence(K + (i / n * (G - K)), i, 1, n) → l4
17. Sequence(G + (i / n * (L - G)), i, 1, n) → l5
18. Sequence(B + (i / n * (L - B)), i, 1, n) → l6
19. Sequence(M + (i / n * (B - M)), i, 1, n) → l7
20. Sequence(M + (i / n * (C - M)), i, 1, n) → l8
21. Sequence(C + (i / n * (H - C)), i, 1, n) → l9
22. Sequence(D + (i / n * (H - D)), i, 1, n) → l10
23. Sequence(E + (i / n * (I - E)), i, 1, n) → l11
24. Sequence(D + (i / n * (I - D)), i, 1, n) → l12
25. Sequence(Segment[Element[l1, i], Element[l2, n - i]], i, 1, n) → l13
26. Sequence(Segment[Element[l3, i], Element[l4, n - i]], i, 1, n) → l14
27. Sequence(Segment[Element[l5, i], Element[l6, n - i]], i, 1, n) → l15
28. Sequence(Segment[Element[l8, i], Element[l7, n - i]], i, 1, n) → l16
29. Sequence(Segment[Element[l9, i], Element[l10, n - i]], i, 1, n) → l17
30. Sequence(Segment[Element[l11, i], Element[l12, n - i]], i, 1, n) → l18