Merge branch 'lilypond/translation' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / input / regression / font-postscript.ly

diff --git a/input/regression/font-postscript.ly b/input/regression/font-postscript.ly
index 795d360660333ca1ff4b0df358d97d3c704d4f62..2b67c5a95815aa11636bb05ca685c53c7a45cdc3 100644 (file)
--- a/input/regression/font-postscript.ly
+++ b/input/regression/font-postscript.ly
@@ -2,13 +2,16 @@
 
     texidoc = "This file demonstrates how to load different
     (postscript) fonts. The file @file{font.scm} shows how to define
-    the scheme-function called."
+    the scheme-function @code{make-century-schoolbook-tree}.
+
+    This file should be run with the TeX and extra options should be
+    passed to LaTeX and dvips to help it find the uncb font."
 
 }
+\version "2.10.0"
 
-\bookpaper
+\paper
 {
-
     #(define text-font-defaults
       '((font-encoding . latin1)
        (baseline-skip . 2)
@@ -17,16 +20,28 @@
     #(set! fonts (make-century-schoolbook-tree 1.0))
 }
 
-\paper {
-    linewidth = 160 \mm - 2.0 * 9.0 \mm
+%ugh.
+% do this here so we don't forget the connection with
+% this file.
+#(system "afm2tfm `kpsewhich uncb8a.afm` uncb8a.tfm") 
+
+\layout {
+    line-width = 160 \mm - 2.0 * 9.0 \mm
 
     
     indent = 0.0\mm
-    raggedright = ##t
+    ragged-right = ##t
 }
 
-    {
-        \key a \major
-\time 6/8
-cis''8. d''16 cis''8 e''4 e''8
-    }
+{
+    \key a \major
+    \time 6/8
+    cis''8.
+
+%% uncomment to test postscript fonts. 
+% ^"test!"
+
+    
+    
+    d''16 cis''8 e''4 e''8
+}