Squaring the Circle by E. Gregori (1947)

GeoGebra Commands & Parameters

1. Intersect(xAxis, yAxis) → M
2. Point(xAxis) → B_{1}
3. Circle(M, B_{1}) → c
4. Point(c) → H_{1}
5. Point(c) → I_{1}
6. CircleArc(M, H_{1}, I_{1}) → r
7. OrthogonalLine(B_{1}, xAxis) → f
8. Intersect(c, xAxis, 2) → A_{1}
9. Line(A_{1}, f) → g
10. Intersect(c, yAxis, 2) → C_{1}
11. Line(C_{1}, xAxis) → h
12. Point(c) → D_{1}
13. Line(D_{1}, xAxis) → i
14. Intersect(f, h) → A
15. Intersect(g, h) → B
16. Segment(A, B) → j
17. Intersect(g, i) → C
18. Segment(B, C) → k
19. Intersect(f, i) → D
20. Segment(C, D) → l
21. Segment(D, A) → m
22. Segment(A, C) → n
23. Segment(B, D) → p
24. Intersect(c, n, 1) → E
25. Circle(A, Segment[A, E]) → d
26. Intersect(d, m, 1) → F
27. CircleArc(A, F, E) → e
28. Circle(F, Radius[c]) → q
29. Point(q) → J
30. Point(q) → L
31. CircleArc(F, L, J) → c_1
32. Intersect(q, j) → G,
33. Segment(A, G) → s
34. Circle(A, s / 4) → t
35. Intersect(t, j, 1) → H
36. Line(H, m) → a_{1}
37. Intersect(a_{1}, p) → K
38. Line(K, l) → b
39. Segment(H, K) → a
40. Intersect(b, k) → I
41. Segment(K, I) → g_1
42. Polygon(H, B, I, K) → v1, h_1, b_1, k_1, j_1