球拍/绘制：获取字体名称列表？

Question

是否可以在Racket中获得可用字体名称的列表？

我希望所有x的值都使(text "Kimkoh" x)返回具有唯一字体的pict。

Answer 1

是的，(get-face-list)返回您想要的列表。

在DrRacket 6.12（或更高版本）中尝试一下：

#lang racket/base

(require racket/draw pict)

(table 2
       (for/fold ([acc '()]
                  #:result (reverse acc))
                 ([face (in-list (get-face-list))]
                  [i (in-range 10)])
         (list* (text "Kimkoh" face) (text face) acc))
       lb-superimpose lb-superimpose 20 5)