%{_bindir}/convert-ly
%{_bindir}/etf2ly
%{_bindir}/lilypond
-%{_bindir}/lilypond-bin
+%{_bindir}/lilypond-latex
%{_bindir}/midi2ly
%{_bindir}/lilypond-book
%{_bindir}/mup2ly
%{_mandir}/man1/abc2ly.1.gz
%{_mandir}/man1/convert-ly.1.gz
%{_mandir}/man1/etf2ly.1.gz
-%{_mandir}/man1/lilypond-bin.1.gz
+%{_mandir}/man1/lilypond-latex.1.gz
%{_mandir}/man1/lilypond.1.gz
%{_mandir}/man1/midi2ly.1.gz
%{_mandir}/man1/lilypond-book.1.gz
%{_prefix}/bin/abc2ly
%{_prefix}/bin/convert-ly
%{_prefix}/bin/etf2ly
-%{_prefix}/bin/lilypond-bin
+%{_prefix}/bin/lilypond-latex
%{_prefix}/bin/lilypond
%{_prefix}/bin/midi2ly
%{_prefix}/bin/lilypond-book
%{_prefix}/man/man1/abc2ly.1.gz
%{_prefix}/man/man1/convert-ly.1.gz
%{_prefix}/man/man1/etf2ly.1.gz
-%{_prefix}/man/man1/lilypond-bin.1.gz
+%{_prefix}/man/man1/lilypond-latex.1.gz
%{_prefix}/man/man1/lilypond.1.gz
%{_prefix}/man/man1/midi2ly.1.gz
%{_prefix}/man/man1/lilypond-book.1.gz
plain " " coding-vector " /" command " reencode-font\n"
"/" command "{ /" command " findfont 1 scalefont } bind def\n")))
- (define (guess-ps-fontname basename)
-
- "We do not have the FontName, try to guess is from basename."
- (cond
- (#t basename)
- ((tex-font? basename)
- ;; FIXME: we need proper Fontmap for the bluesky CM*, EC* fonts.
- ;; Only the fonts that we trace in mf/ are in our own FontMap.
- (string-append basename ".pfb"))
- (else (string-append basename ".pfa"))))
-
+
(define (font-load-command font)
(let* ((specced-font-name (ly:font-name font))
(fontname (if specced-font-name
specced-font-name
- (guess-ps-fontname (ly:font-filename font))))
+ (ly:font-filename font)))
(coding-alist (ly:font-encoding-alist font))
(input-encoding (assoc-get 'input-name coding-alist))
(map ly:paper-system-stencil
(append titles (list non-title)))))
(xext (ly:stencil-extent dump-me X))
- (yext (ly:stencil-extent dump-me Y))
- )
+ (yext (ly:stencil-extent dump-me Y)))
(for-each
(lambda (x)