With this patch it looks like "it works for me".
I will check more. What would I check besides of a "regular"
(lilypond's and lilypond-book's) output generation?
Please, anyone knowledgeable, review this diff and give your feedback,
because, as usually, I don't know what I am doing.
Thank you!
2015-12-08 9:57 GMT+02:00 Dmytro O. Redchuk <brownian....@gmail.com>:
> 2015-12-08 9:55 GMT+02:00 Dmytro O. Redchuk <brownian....@gmail.com>:
>> Hello,
>>
>> to avoid any misunderstanding with any "include"'s I've tested this
>> issue with this source:
> And the command was (no -I...), of course:
>
> $ lilypond-book --out=out [--pdf] test.lytex
>
>>
>> % ---- 8< ----------------------
>> \documentclass{article}
>> \begin{document}
>> \begin{lilypond}
>> { c''4 }
>> \paper {
>> #(define fonts
>> (set-global-fonts
>> #:music "improviso"
>> #:factor (/ staff-height pt 20)
>> ))
>> }
>> \end{lilypond}
>> \end{document}
>> % ---- 8< ----------------------
>>
>> And I have the same result, attached.
>>
>> 2015-12-07 22:00 GMT+02:00 Dmytro O. Redchuk <brownian....@gmail.com>:
>>> 2015-12-07 19:55 GMT+02:00 James <p...@gnu.org>:
>>>> Hello Dmytro,
>>> Hello James :)
>>>
>>>>>> I want lilypond to engrave it with "improviso" font,
>>>>>> https://fonts.openlilylib.org/improviso/ --- I have set it up, it's
>>>>>> ok.
>>> ... and the subject of this thread is: "lilypond-book: 'external'
>>> fonts and --pdf option problem" .)
>>>
>>> I have no any problem with lilypond-book and Emmentaler (lilypond's
>>> default) font. With or without --pdf, really.
>>>
>>> I am sorry to be unclear. That \include imports the stylesheet for
>>> improviso font (https://fonts.openlilylib.org/improviso/, an alternate
>>> font for lilypond).
>>>
>>> So, without --pdf I have nice result, with --pdf I have a score(s)
>>> with "improviso-related" objects missed.
>
> --
> Dmytro O. Redchuk
--
Dmytro O. Redchuk
--- framework-ps.scm.orig 2015-12-08 10:44:54.293262621 +0200
+++ framework-ps.scm 2015-12-08 11:14:49.600462497 +0200
@@ -237,16 +237,16 @@
(let* ((font (car font-name-filename))
(name (cadr font-name-filename))
(file-name (caddr font-name-filename))
- (bare-file-name (ly:find-file file-name)))
+ (bare-file-name (ly:find-file file-name))
+ (font-file-name (ly:find-file (format #f "~a.otf" file-name))))
(cons name
(if (mac-font? bare-file-name)
(handle-mac-font name bare-file-name)
(cond
((internal-font? file-name)
- (ps-load-file (ly:find-file
- (format #f "~a.otf" file-name))))
- ((string? bare-file-name)
- (ps-load-file file-name))
+ (ps-load-file font-file-name))
+ ((string? font-file-name)
+ (ps-load-file font-file-name))
(else
(ly:warning (_ "cannot embed ~S=~S") name file-name)
""))))))
_______________________________________________
bug-lilypond mailing list
bug-lilypond@gnu.org
https://lists.gnu.org/mailman/listinfo/bug-lilypond
