Fonts 球拍/抽签：获取字体名称列表？

可以在Racket中获得可用字体名称的列表吗

我希望

x

的所有值都能

（text“Kimkoh”x）

返回具有唯一字体的pict。

是，返回所需的列表

在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)