lilypond-1.5.46

diff --git a/Documentation/topdocs/INSTALL.texi b/Documentation/topdocs/INSTALL.texi
index 91cf161cce0880166c3d5befec5df888b5d3967a..67ad977ab9c38acb3ae7d21f06bee33ad79b7e64 100644 (file)
--- a/Documentation/topdocs/INSTALL.texi
+++ b/Documentation/topdocs/INSTALL.texi
@@ -172,7 +172,7 @@ configure something like:
 @end example
 
 
-@item pktrace, [OPTIONAL], needed for generating PostScript Type1
+@item pktrace 1.0 or newer, [OPTIONAL], needed for generating PostScript Type1
 fonts. Get it from  @uref{http://www.cs.uu.nl/~hanwen/pktrace/}.  You
 will need to install some additional packages to get pktrace to work.
 

diff --git a/Documentation/user/appendices.itely b/Documentation/user/appendices.itely
index dd424a003b26726d9314c1a907fcf65242800d62..f09c9738e1bc2806fe0ee046c235147e2184b1c7 100644 (file)
--- a/Documentation/user/appendices.itely
+++ b/Documentation/user/appendices.itely
@@ -208,5 +208,5 @@ The following symbols are available in the Feta font and may be
 accessed directly using text markup such as 
 @code{g^#'(music "scripts-segno")}, see @ref{Text markup}.
 
-@lilypondfile{feta16.ly}
+@lilypondfile{feta16list.ly}
 

diff --git a/buildscripts/lilypond-login.sh b/buildscripts/lilypond-login.sh
index 67a8f346715a1b9e4bc3aa81427a7069ee81e945..9e7278f6817ef07bf83fc821320295acb04721cd 100644 (file)
--- a/buildscripts/lilypond-login.sh
+++ b/buildscripts/lilypond-login.sh
@@ -12,11 +12,6 @@
 # strange shell, this C
 set datadir="@datadir@"
 
-if ( $?GS_FONTPATH ) then
-       setenv GS_FONTPATH "$datadir/fonts/afm:$datadir/fonts/type1:$GS_FONTPATH"
- else
-       setenv GS_FONTPATH "$datadir/fonts/afm:$datadir/fonts/type1"
- endif
  if ( $?GS_LIB ) then
        setenv GS_LIB "$datadir/ps:$GS_LIB"
  else
@@ -36,5 +31,11 @@ set noglob
 setenv TEXMF "{$datadir,"`kpsexpand  \$TEXMF`"}"
 unset noglob
 
+# Add all available TeX Type1 fonts (including Feta) to Ghostscript:
+if ( $?GS_FONTPATH ) then
+       setenv GS_FONTPATH `kpsewhich -expand-path=\$T1FONTS`:$GS_FONTPATH"
+ else
+       setenv GS_FONTPATH `kpsewhich -expand-path=\$T1FONTS`
+ endif
 
 

diff --git a/buildscripts/lilypond-profile.sh b/buildscripts/lilypond-profile.sh
index 11464f2ba51b121368b1bd0be6bd2852e09c29e9..1e03ea439a024d72d408d3dea040a44b2276d1b7 100644 (file)
--- a/buildscripts/lilypond-profile.sh
+++ b/buildscripts/lilypond-profile.sh
@@ -9,9 +9,6 @@
 
 datadir=`echo "@datadir@" | sed 's!//!/!g'`
 
-# For direct ps output fonts
-GS_FONTPATH="$datadir/fonts/afm:$datadir/fonts/type1:"${GS_FONTPATH:=""}
-
 # For direct ps output: ps/lilyponddefs.ps
 GS_LIB="$datadir/ps:"${GS_LIB:=""}
 
@@ -28,6 +25,11 @@ TEXMF="{$datadir,"`kpsexpand  \\$TEXMF`"}"
 # LILYPONDPREFIX="$datadir"
 # export LILYPONDPREFIX
 
+# For direct ps output fonts. Add all available TeX Type1 fonts
+GS_FONTPATH=`kpsewhich -expand-path=\$T1FONTS`:${GS_FONTPATH:=""}
+
+
+
 export GS_LIB GS_FONTPATH TEXMF
 
        

diff --git a/mf/GNUmakefile b/mf/GNUmakefile
index ab77ff12b919fc6e825aa5048ad5c1b7809f9f13..5a667fe1f8fb3b0a207c2b06602e7175de19c81a 100644 (file)
--- a/mf/GNUmakefile
+++ b/mf/GNUmakefile
@@ -75,7 +75,7 @@ $(outdir)/lilypond.map:
 ##
 ## todo: this also depends on .tfm, FIXME.
 $(outdir)/%.afm  $(outdir)/%.tex $(outdir)/%.dep: $(outdir)/%.log 
-       $(PYTHON) $(buildscript-dir)/mf-to-table.py --package=$(topdir) --outdir=$(outdir) --dep $(outdir)/$(<F:.log=.dep)  --afm $(outdir)/$(<F:.log=.afm) --tex $(outdir)/$(<F:.log=.tex) --ly $(outdir)/$(<F:.log=.ly) $<
+       $(PYTHON) $(buildscript-dir)/mf-to-table.py --package=$(topdir) --outdir=$(outdir) --dep $(outdir)/$(<F:.log=.dep)  --afm $(outdir)/$(<F:.log=.afm) --tex $(outdir)/$(<F:.log=.tex) --ly $(outdir)/$(<F:.log=list.ly) $<
 
 local-clean:
        rm -f mfplain.mem mfplain.log 

diff --git a/scm/ps.scm b/scm/ps.scm
index b7c1072b8fca2704e77c24c13536c95a76bba9d1..dbc58a79c29611015a3c1bdb4fcb15f0a2448a35 100644 (file)
--- a/scm/ps.scm
+++ b/scm/ps.scm
@@ -90,12 +90,19 @@
   (string-append
    "/" command
    " { /"
-   (car name-mag)
+   (capitalize-font-name (car name-mag))
    " findfont "
    "20 " (ly-number->string (cdr name-mag)) " mul "
    "output-scale div scalefont setfont } bind def "
    "\n"))
 
+;; Ugh, the Bluesky type1 fonts for computer modern use capitalized 
+;; postscript font names.
+(define (capitalize-font-name name)
+  (if (equal? (substring name 0 2) "cm")
+      (string-upcase name)
+      name))
+
 (define (beam width slope thick)
   (string-append
    (numbers->string (list slope width thick)) " draw_beam" ))