0. #lang htdp/bsl
1. (require 2htdp/image)
2.  
3. (define pt (right-triangle 100 50 "solid" "purple"))
4. pt
5. (define pti (right-triangle 100 50 "solid" "pink"))
6. pti
7. (define step1 (rotate 27 pt))
8. step1
9. (define step2 (flip-vertical step1))
10. step2
11. (define gap (square 5 "solid" "pink"))
12.  
13. (define triangle-assembly (rotate -90 (above step2 gap step1)))
14. triangle-assembly
15.  
16. (define base-1 (circle 90 "solid" "lightgreen"))
17. base-1
18. (define words (rectangle 50 20 "solid" "lightblue")); (text "base" 48 "gray"))
19. words
20. (define base-2 (overlay words base-1))
21. base-2
22.  
23. (define base-3
24.   (crop-top base-2 15))
25. (define base-4
26.   (rotate 120 (crop-top (rotate -120 base-3)
27.                         15)))
28. (define base-5
29.   (rotate -120 (crop-top (rotate 120 base-4)
30.                          15)))
31.  
32. (define step3
33.   (above triangle-assembly
34.          gap gap gap
35.          base-5))
36.  
37. (define step4a (rotate 120 step3))
38. (define step4b (above triangle-assembly
39.                       gap gap gap
40.                       step4a))
41. (define step5a (rotate 120 step4b))
42. (define step5b (above triangle-assembly
43.                       gap gap gap
44.                       step5a))
45.  
46. "This is a picture of what you could reasonably do."
47. "Notice the triangle placements are not perfect."
48. (rotate 120 step5b)
49.  
50. ;; BOSS method
51. ;; Put the first triangle assembly the way we did in class.
52. ;; but put another invisible shape the same size on the other size of the circle to keep it balanced.
53. ;; Measure the height of that to make an invisible circle to guide the placement of the other parts.

=>