*** empty log message ***

[lilypond.git] / input / test / title-markup.ly

diff --git a/input/test/title-markup.ly b/input/test/title-markup.ly
index 5caa3076dc73dc793b316e7ef7c0250a8e2528cc..5cca51435df6e1adab85571ddba635d9bade74ce 100644 (file)
--- a/input/test/title-markup.ly
+++ b/input/test/title-markup.ly
@@ -1,14 +1,35 @@
-\version "2.1.30"
+\version "2.3.8"
+
 %{
-   Experimental markup titles are available in direct PostScript output:
+   Markup titles also available for direct PostScript output:
 
    export GS_LIB=$(pwd)/mf/out:/usr/share/texmf/fonts/type1/bluesky/cm
    lilypond-bin -fps input/title/title-markup.ly
 
+  PostScript fonts: WIP.
+
+  * Nonstandardised install directory / how to locate a ps font?
+  * Nonstandardised filenames?
+
+
+For century schoolbook font:
+
+  Debian:
+    cp -pv /usr/share/fonts/type1/gsfonts/c*.{afm,pfb} mf/out
+
+  Red Hat (untested):
+
+    cp -pv /usr/share/fonts/afms/adobe/c*.{afm,pfb} mf/out/
+
+    cp -pv /usr/share/fonts/default/Type1/c*.{pfb,afm} mf/out
+
 %}
 
 \paper{
     #(define page-breaking ly:optimal-page-breaks)
+    %% Ughr, this breaks TeX output...
+    %% fonts = #(make-century-schoolbook-tree 1.0)
+    inputencoding = #"latin1"
 }
 
 latinTest = \markup { \latin-i "Hellö" }
@@ -64,30 +85,40 @@ spaceTest = \markup { "two space chars" }
     %% bookTitle = \markup { \fill-line < \huge\bold \title > > }
 }
 
-\score {
-    \context Staff \notes \relative c' {
-       c2-\sizeTest c2-\spaceTest
+%% suggest harder :-)
+%% noPagebreak = #(make-event-chord (list (make-penalty-music 0 1e9)))
+
+\book {
+    
+    \score {
+       \context Staff  \relative c' {
+           c2-\sizeTest c2-\spaceTest
+       }
+       \paper {
+           #(paper-set-staff-size (* 11.0 pt)) 
+       }
     }
-    \paper {
-%      #(paper-set-staff-size (* 11.0 pt)) 
+    
+    \score {
+       \context Staff  \relative c' {
+           %% stress page breaking:
+           %% 35 keep on 3 pages
+           %% 36 spread evenly over 4 pages
+           \repeat unfold 6 { a b c d \break }
+           
+           %% FIXME: TODO factor \pagebreak \noPagebreak into regtest
+           %% Without this, page breaks are better, after measure: 12
+           \noPagebreak
+           \repeat unfold 30 { a b c d \break }
+           c1
+       }
+       \header {
+           %% Override automatic score title
+           %% scoreTitle = \markup { "Tweetje" }
+           opus = "opus 1"
+           piece = "Second"
+       }
+       \paper {
        }
-}
-
-\header {
-    %% Override automatic score title
-    %% scoreTitle = \markup { "Tweetje" }
-    opus = "opus 1"
-    piece = "Second"
-}
-
-\score {
-    \context Staff \notes \relative c' {
-       %% stress page breaking: keep on 3 pages
-       %% 35 looks very good: 3 pages
-       %% Hmmm.
-       %% 36 seems to show a bug:
-       %% 4 pages, first two half full, last two full
-       \repeat unfold 35 { a b c d \break }
-       c1
     }
 }