0. #lang htdp/bsl
1. (require 2htdp/image)
2.  
3. (define pt (right-triangle 100 50 "solid" "purple"))
4. (define pti (right-triangle 100 50 "solid" "white"))
5. (define step1 (rotate 27 pt))
6. (define step2 (flip-vertical step1))
7. (define gap (square 5 "solid" "white"))
8.  
9. (define triangle-assembly (rotate -90 (above step2 gap step1)))
10.  
11. (define base-1 (circle 90 "solid" "lightgreen"))
12. (define words (text "base" 48 "gray"))
13. (define base-2 (overlay words base-1))
14.  
15. (define (crop-top img n)
16.   (crop 0 n (image-width img) (+ (- n) (image-height img)) img))
17.  
18. (define base-3
19.   (crop-top  base-2 15))
20. (define base-4
21.   (rotate 120 (crop-top (rotate -120 base-3)
22.                         15)))
23. (define base-5
24.   (rotate -120 (crop-top (rotate 120 base-4)
25.                          15)))
26.  
27. (define step3
28.   (above triangle-assembly
29.          gap gap gap
30.          base-5))
31.  
32. (define step4a (rotate 120 step3))
33. (define step4b (above triangle-assembly
34.                       gap gap gap
35.                       step4a))
36. (define step5a (rotate 120 step4b))
37. (define step5b (above triangle-assembly
38.                       gap gap gap
39.                       step5a))
40.  
41. "This is a picture of what you could reasonably do."
42. "Notice the triangle placements are not perfect."
43. (rotate 120 step5b)
44.  
45. ;; BOSS method
46. ;; Put the first triangle assembly the way we did in class.
47. ;; but put another invisible shape the same size on the other size of the circle to keep it balanced.
48. ;; Measure the height of that to make an invisible circle to guide the placement of the other parts.
49.  
50. "This method shows what you can do if you really think about it."
51.  
52. (define step1i (rotate 27 pti))
53. (define step2i (flip-vertical step1i))
54. (define invisible-triangle-assembly (rotate 90 (above step2i gap step1i)))
55.  
56. (define step3i
57.   (above triangle-assembly
58.          gap gap gap
59.          base-5
60.          gap gap gap
61.          invisible-triangle-assembly))
62.  
63. (define boss (circle (* 1/2 (image-height step3i)) "solid" "transparent"))
64. (define step3-boss (overlay step3i boss))
65.  
66.  
67. (define b4a (rotate 120 step3-boss))
68. (define b4b (overlay/align "middle" "top" triangle-assembly b4a))
69.  
70. (define b5a (rotate 120 b4b))
71. (define b5b (overlay/align "middle" "top" triangle-assembly b5a))
72.  
73. (rotate 120 b5b)
74.  

=>

"This is a picture of what you could reasonably do."

"Notice the triangle placements are not perfect."

"This method shows what you can do if you really think about it."