[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
subfonts
From: |
Knut Petersen |
Subject: |
subfonts |
Date: |
Thu, 1 Jul 2021 12:57:19 +0200 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101 Thunderbird/78.10.2 |
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
- subfonts,
Knut Petersen <=