戈雅的遮阳伞

GeoGebra 命令及参数

1. If(paso > 0 ∧ paso < 7, 1, 0) → t_1
2. If(paso > 1 ∧ paso < 7, 1, 0) → t_2
3. If(paso > 2 ∧ paso < 7, 1, 0) → t_3
4. If(paso > 3 ∧ paso < 7, 1, 0) → t_4
5. If(paso > 4 ∧ paso < 7, 1, 0) → t_5
6. If(paso > 5 ∧ paso < 7, 1, 0) → t_6
7. Line(H1, H2) → a
8. Line(A, a) → b
9. OrthogonalLine(A, a) → c
10. Point(b) → B
11. Dilate(B, pr, A) → Dil
12. Circle(A, Dil) → d
13. Intersect(d, c) → D5, C
14. OrthogonalLine(C, c) → e
15. OrthogonalLine(B, b) → f
16. Intersect(f, e) → D
17. Polygon(A, B, D, C) → P, a_1, b_1, d_1, c_1
18. OrthogonalLine(B_1, c_1) → g
19. Intersect(g, c_1) → E
20. Segment(E, B) → h
21. Midpoint(D, C) → F
22. Midpoint(A, B) → G
23. Line(F, G) → i
24. OrthogonalLine(B_2, i) → j
25. Point(i) → H
26. Intersect(i, j) → I
27. Segment(H, I) → k
28. Line(B_3, k) → l
29. Mirror(E, l) → E'
30. Mirror(B, l) → B'
31. Segment(E', B') → m
32. Segment(B_4, D) → n
33. Point(n) → J
34. Segment(J, A) → p
35. Segment(C, B_5) → q
36. Point(q) → L
37. Segment(L, B) → r
38. OrthogonalLine(B_6, c_1) → s
39. Intersect(p, s) → N
40. Line(N, r) → t
41. Intersect(t, a_1) → M
42. OrthogonalLine(N, a_1) → e_1
43. Intersect(e_1, a_1) → O
44. Segment(N, M) → f_1
45. Segment(N, O) → g_1