提香《维纳斯与管风琴师》的几何构图分析

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. OrthogonalLine(B_1, d_1) → h
20. OrthogonalLine(B_2, a_1) → i
21. OrthogonalLine(V_4, i) → j
22. OrthogonalLine(V_6, i) → k
23. OrthogonalLine(B_3, b_1) → l
24. OrthogonalLine(H_4, l) → m
25. OrthogonalLine(H_6, l) → n
26. Intersect(j, i) → E
27. Intersect(k, i) → F
28. Intersect(l, n) → G
29. Intersect(m, l) → H
30. Intersect(m, a_1) → I
31. Intersect(n, a_1) → J
32. Intersect(j, b_1) → K
33. Intersect(k, b_1) → L
34. Segment(F, L) → p
35. Segment(K, E) → q
36. Segment(G, J) → r
37. Segment(I, H) → s
38. Segment(B_4, A) → t
39. Intersect(t, b_1) → M
40. Segment(E, B_5) → e_1
41. OrthogonalLine(B_6, b_1) → f_1
42. Intersect(f_1, s) → N
43. Intersect(r, t) → O
44. Circle(N, O) → g_1
45. Intersect(g_1, d_1) → Q, R
46. Intersect(g_1, d_1, 2) → S
47. CircleArc(N, S, Q) → h_1
48. Intersect(b_1, e_1) → T
49. Segment(T, E) → i_1
50. Segment(M, A) → j_1
51. Segment(H_9, H_0) → k_1
52. Segment(V_9, V_0) → l_1