0

我必须创建上面的图像带文字的圆圈

里面的文字是可变的。我的意思是我想将 2 个值传递给它以进行显示,并且这些值不断变化。我正在尝试这个:

(define (circle-text vx vy) (underlay/align "center" "center" (circle 40 "outline" "blue") (text "("vx", "vy")" 14 "blue")))

但这显然行不通。请建议我任何更好的语法或任何东西。

4

1 回答 1

2

尝试这个:

(text (string-append "(" vx ", " vy ")") 14 "blue")

上面的工作假设vx并且vy已经是字符串。如果没有,请使用:

(text (string-append "(" (number->string vx) ", " (number->string vy) ")") 14 "blue")

鉴于您使用的是 Racket,这就更简单了:

(text (format "(~a, ~a)" vx vy) 14 "blue")
于 2016-09-29T19:25:54.657 回答