ракетка / рисовать: получить список имен шрифтов?

Question

Можно ли получить список доступных имен шрифтов в Racket?

Я хочу, чтобы все значения x были такими, чтобы (text "Kimkoh" x) возвращал пикт с уникальным шрифтом face.

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)