Lisp 球拍幻灯片2Htdp图片

我试图用球拍创造一个形象。我想试着做一个华夫饼，但我似乎想不出来。这是我的代码：

#lang slideshow

(require 2htdp/image)

(define (waffle img)

    (define two-p (hc-append img (rectangle 10 10 "solid" "white") img (rectangle 10 10 "solid" "white") img))

    (vc-append two-p (rectangle 10 10 "solid" "white") two-p (rectangle 10 10 "solid" "white") two-p))

(circle 35 "solid" "yellow")

(waffle (rectangle 10 10 "solid" "brown"))

---

我想把矩形叠加在圆上。我该怎么做？我使用的是正确的库还是应该使用不同的库？

我通过使用cc Supplicate解决了这个问题！我的代码现在如下所示：

#lang slideshow

(require 2htdp/image)

(define (waffle img)

  (define two-p (hc-append img (rectangle 10 10 "solid" "yellow") img (rectangle 10 10 "solid" "yellow") img))

  (vc-append two-p (rectangle 10 10 "solid" "yellow") two-p (rectangle 10 10 "solid" "yellow") two-p))

(cc-superimpose

 (circle 37 "solid" "yellow")

 (waffle (rectangle 10 10 "solid" "brown")))

---

你看过像这样的pict组合器吗？