subfonts

[Knut Petersen]

Hi everybody!

In framework-ps we have this code at lines 501+

(define (load-fonts paper)
    (let* ((fonts (ly:paper-fonts paper))

           ;; todo - doc format of list.
           (all-font-names
            (map
             (lambda (font)
               (cond ((string? (ly:font-file-name font))
                      (list (list font
                                  (ly:font-name font)
                                  (ly:font-file-name font)
                                  #f)))
                     ((ly:pango-font? font)
                      (map (lambda (psname-filename-fontindex)
                             (list #f
                                   (list-ref psname-filename-fontindex 0)
                                   (list-ref psname-filename-fontindex 1)
                                   (list-ref psname-filename-fontindex 2)))
                           (ly:pango-font-physical-fonts font)))
*(else**
**                      (ly:font-sub-fonts font))*))
             fonts))
           (font-names (uniq-list
                        (sort (concatenate all-font-names)
                              (lambda (x y) (string<? (cadr x) (cadr y))))))

Clause 1 and 2 of the cond expression are heavily used and tested.

The 'else' clause is different. A diagnostic patch showed that it is never 
executed during 'make doc'.

Does anybody know a font/example that triggers usage of the code in the 'else' 
clause?

Knut