2015-12-09 15:10 GMT+02:00 tisimst <tisimst.lilyp...@gmail.com>:
> Dmytro,
>
> Sorry for my delayed comment. I don't know what is causing this, but I've
> seen this come up before from other users. I'm excited to see you like
> Improviso! I hope we can get this figured out.
Abraham,
yes, I like it very much, THANK you :)
When I insert some (display ...)'s into framework-ps.scm I can see
that ly:find-file fails to find font-file with --pdf option for some
reason.
Ok, as you can see, I can be wrong! Don't mind, please :)
Now I've simply added "fallback" workaround:
--- framework-ps.scm.orig 2015-12-08 10:44:54.293262621 +0200
+++ framework-ps.scm 2015-12-08 12:07:52.786888984 +0200
@@ -237,16 +237,18 @@
(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))))
+ (ps-load-file font-file-name))
((string? bare-file-name)
(ps-load-file file-name))
+ ((string? font-file-name)
+ (ps-load-file font-file-name))
(else
(ly:warning (_ "cannot embed ~S=~S") name file-name)
""))))))
--
Dmytro O. Redchuk
_______________________________________________
bug-lilypond mailing list
bug-lilypond@gnu.org
https://lists.gnu.org/mailman/listinfo/bug-lilypond
