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

=>