2015-04-28 10:16 GMT+02:00 Urs Liska <u...@openlilylib.org>:
>
>
> Am 28.04.2015 um 10:12 schrieb Thomas Morley:
>>
>> 2015-04-28 9:48 GMT+02:00 Urs Liska <u...@openlilylib.org>:
>>>
>>>
>>> Am 28.04.2015 um 09:38 schrieb Werner LEMBERG:
>>>
>>> Is there a function to retrieve the "font name" from a given file
>>> name? It would be a viable approach if I could compare the result
>>> of that request with the original font name.
>>>
>>> For TTFs and TTCs (either with TrueType outlines or embedded CFFs) you
>>> can use `ly:ttf-ps-name'.
>>>
>>>
>>> Thanks that seems to work perfectly. Try
>>>
>>> \version "2.19.19"
>>>
>>> fontExists =
>>> #(define-void-function (parser location font-name)(string?)
>>> (let* ((font-file (ly:font-config-get-font-file font-name))
>>> (reverse-font-name (ly:ttf-ps-name font-file))
>>> (font-exists (string=? font-name reverse-font-name)))
>>> (ly:message (format "\nGiven font name: ~a" font-name))
>>> (ly:message (format "Determined font file: ~a" font-file))
>>> (ly:message (format "Actual font in that file: ~a"
>>> reverse-font-name))
>>> (ly:message (format "Given font is present: ~a" font-exists))))
>>>
>>> \fontExists "Emmentaler-13"
>>> \fontExists "Fancy-Font"
>>>
>> For me this returns:
>>
>> Given font name: Emmentaler-13
>> Determined font file: /home/harm/.fonts/wds052801.ttf
>> Actual font in that file: WaltDisneyScript
>> Given font is present: #f
>>
>> Given font name: Fancy-Font
>> Determined font file: /home/harm/.fonts/wds052801.ttf
>> Actual font in that file: WaltDisneyScript
>> Given font is present: #f
>
>
> OMG!
>
>>
>> Again, on an outdated Ubuntu.
>
>
> But that shouldn't make a difference. At least we can't accept that it makes
> a difference.
>
> What is the result of ly:ttf-ps-name when you pass it the full path to a
> real emmentaler file (I can't see where they are on your system of course)?
#(display
(ly:font-config-get-font-file
"/home/harm/lilydevel/usr/share/lilypond/current/fonts/otf/emmentaler-13.otf"))
->/home/harm/.fonts/wds052801.ttf
#(display
(ly:ttf-ps-name
(ly:font-config-get-font-file
"/home/harm/lilydevel/usr/share/lilypond/current/fonts/otf/emmentaler-13.otf")))
->WaltDisneyScript
...
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
