杜勒《启示录》木刻几何分析：多边形构建与三角函数应用

GeoGebra 命令及参数

1. Line(A, T) → a
2. Point(a) → B
3. Distance(A, B) → dx
4. OrthogonalLine(A, a) → b
5. Line(A, B) → c
6. Line(A, C) → d
7. OrthogonalLine(C, d) → e
8. OrthogonalLine(B, c) → f
9. Intersect(e, f) → D
10. Distance(A, C) → dy
11. Segment(C, Aφ1) → s
12. Segment(C, Aφ2) → a1
13. Segment(Bφ1, C) → c1
14. Segment(Bφ2, C) → d1
15. Segment(D, Cφ2) → t
16. Segment(D, Cφ1) → e1
17. Segment(D, Aφ1) → g1
18. Segment(D, Aφ2) → h1
19. Segment(A, Dφ1) → i1
20. Segment(A, Dφ2) → j1
21. Segment(A, Bφ2) → k1
22. Segment(A, Bφ1) → l1
23. Segment(B, Cφ1) → m1
24. Segment(B, Cφ2) → n1
25. Segment(B, Dφ1) → p1
26. Segment(B, Dφ2) → q1
27. Intersect(l1, m1) → E
28. Intersect(k1, n1) → F
29. Point(f) → G
30. Intersect(d1, j1) → H
31. Point(f) → J
32. OrthogonalLine(J, f) → r1
33. OrthogonalLine(F, f) → a2
34. OrthogonalLine(E, f) → b2
35. Intersect(s, a2) → R
36. OrthogonalLine(G, f) → t1
37. Intersect(j1, t1) → N
38. Midpoint(A, C) → U
39. Midpoint(D, B) → V
40. Midpoint(C, D) → W
41. Midpoint(B, A) → Z
42. Intersect(c1, e1) → I
43. Intersect(j1, p1) → O
44. Ray(Cφ2, I) → b1
45. Ray(Bφ2, I) → f1
46. Ray(Cφ1, F) → s1
47. Ray(Bφ1, F) → c2
48. Ray(Bφ1, F) → n
49. Polygon(A, C, D, B) → poly1, a_1, c_1, d_1, b_1
50. Intersect(n, a_1) → K
51. Midpoint(A, D) → M
52. Mirror(K, U) → K'
53. Mirror(K, M) → K'_1
54. Mirror(K', M) → K''
55. Segment(K, Bφ1) → p
56. Segment(Cφ1, K'') → q
57. Segment(Bφ2, K') → r
58. Segment(Cφ2, K'_1) → d2
59. Intersect(n1, e1) → L
60. Intersect(a1, j1) → P
61. Intersect(g1, p1) → Q
62. Intersect(k1, q1) → S