我正在尝试使用 Racket 创建图像。我想尝试做华夫饼,但我似乎做不出来。这是我的代码:
#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-superimpose 解决了它!我的代码现在看起来像这样:
#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")))
关于lisp - Racket 幻灯片 2Htdp Pict,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/57647555/