0. #lang racket
1.  
2. (require 2htdp/image)
3.  
4. (struct mycircle (radius) #:transparent)
5. (struct mysquare (side) #:transparent)
6.  
7. ;; Helper functions
8. (define (half n) (/ n 2))
9. (define (hypotenuse a b) (sqrt (+ (sqr a) (sqr b))))
10. (define (hypotenuse-equal a) (hypotenuse a a))
11.  
12. (define (inner-circle-size frame-size) (half frame-size))
13. (define (inner-square-size frame-size) (hypotenuse-equal (half frame-size)))
14.  
15. ;; Drawing helper functions
16. (define (draw-bordered-shape shape shape-size fill-color)
17.   (underlay (shape shape-size "solid" fill-color)
18.             (shape shape-size "outline" "green")))
19.  
20. (define (draw-bordered-red-circle c)
21.   (draw-bordered-shape circle (mycircle-radius c) "red"))
22.  
23. (define (draw-bordered-white-square s)
24.   (draw-bordered-shape square (mysquare-side s) "white"))
25.  
26. (define (tilt pic) (rotate 45 pic))
27.  
28. ;; Recursive rose drawing function
29. (define (draw-recursive-rose frame-size)
30.   (cond
31.     [(< (inner-square-size frame-size) 1) empty-image]  ; base case: stop when inner square < 1
32.     [else
33.      (underlay (draw-bordered-white-square (mysquare frame-size))
34.                (draw-bordered-red-circle (mycircle (inner-circle-size frame-size)))
35.                (tilt (draw-recursive-rose (inner-square-size frame-size))))]))
36.  
37. ;; Test the recursive rose
38. (define recursive-rose (draw-recursive-rose 100))
39. recursive-rose
40.  
41. ;; Optional: function to count how many layers will be generated
42. (define (count-rose-layers frame-size)
43.   (cond
44.     [(< (inner-square-size frame-size) 1) 0]
45.     [else (+ 1 (count-rose-layers (inner-square-size frame-size)))]))
46.  
47. ;; See how many layers a frame size of 100 will generate
48. (count-rose-layers 100)

=>

13