X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Ftitle-markup.ly;h=ed473415803bd2283835200d409201aac1a1f79a;hb=868ca15a2445e5e5c1873650433dc886416610fa;hp=65ae2dad7459e21ecaed63d624971be8d9e8de36;hpb=fd5f1d06eab36c296f9baa0fab71e43753d9a434;p=lilypond.git

diff --git a/input/test/title-markup.ly b/input/test/title-markup.ly
index 65ae2dad74..ed47341580 100644
--- a/input/test/title-markup.ly
+++ b/input/test/title-markup.ly
@@ -1,60 +1,127 @@
-\version "2.1.28"
+\version "2.5.13"
+
 %{
-   \markup in titles is WIP, only available in direct PostScript output
-   process and view this file doing:
+   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.
 
-     lilypond-bin -fps title-markup.ly
-     export GS_LIB=$(pwd)/mf/out:/usr/share/texmf/fonts/type1/bluesky/cm
-     gs title-markup.ps
+  * Nonstandardised install directory / how to locate a ps font?
+  * Nonstandardised filenames?
 
 
-FIXME: use conditionals in  \makeTitle:
+For century schoolbook font:
 
-#(define (my-ly-version)
-    (list-head (ly:version) 3))
+  Debian:
+    cp -pv /usr/share/fonts/type1/gsfonts/c*.{afm,pfb} mf/out
 
-#(if (not (defined? 'pieceTagLine))
-    (define pieceTagLine (string-append "Jeremie " (numbers->string (my-ly-version)) " was here")))
+  Red Hat (untested):
 
-\header{
-tagline = \pieceTagLine
-texidoc = "
+    cp -pv /usr/share/fonts/afms/adobe/c*.{afm,pfb} mf/out/
+
+    cp -pv /usr/share/fonts/default/Type1/c*.{pfb,afm} mf/out
 
 %}
 
+\layout{
+    #(define page-breaking ly:optimal-page-breaks)
+    %% Ughr, this breaks TeX output...
+    %% fonts = #(make-century-schoolbook-tree 1.0)
+    inputencoding = #"latin1"
+}
+
+latinTest = \markup {
+    "Hellö"
+}
+    
+sizeTest = \markup {
+	\column {
+            { \normalsize "normalsize"
+              \hspace #5
+              \smaller "smaller"
+              \hspace #5
+              \smaller \smaller "smaller"
+              \hspace #5
+              \smaller \smaller \smaller "smaller"
+            }
+            " " 
+            { \normalsize "normalsize"
+              \hspace #5
+              \bigger "bigger"
+              \hspace #5
+              \bigger \bigger "bigger"
+              \hspace #5
+              \bigger \bigger \bigger "bigger"
+            }
+       }
+}
+
+
+spaceTest = \markup { "two space chars" }
 \header {
-    texidoc = "Make titles using markup (WIP)."
+    texidoc = "Make titles using markup.  Only in direct PostScript output."
+
+    tagline = "my tagline for "
+    
+    %dedication = "För my dør Lily"
+    % ugh: encoding char-size
+    %dedication = "For my öòóôõø so dear Lily"
+    dedication = \markup { "For my "
+%			   "öòóôõø"
+			   " so dear Lily" }
+    title = "Title"
+    subtitle = "(and (the) subtitle)"
+    subsubtitle = "Sub sub title"
+    poet = "Poet"
+    composer = "Composer"
+    texttranslator = "Text Translator"
+    opus = "opus 0"
+    meter = "Meter (huh?)"
+    arranger = "Arranger"
+    instrument = "Instrument"
+    piece = "Piece"
 
+    %% Override automatic book title
+    %% bookTitle = \markup { \fill-line { \huge\bold \title } }
+}
 
-    % FIXME
-    fonts = #'((font-family . roman)
- 		  (word-space . 1)
- 		  (baseline-skip . 2)
- 		  (font-series . medium)
- 		  (font-style . roman)
- 		  (font-shape . upright)
- 		  (font-size . 0))
+\book {
     
-    title = "Title String"
-    subtitle = "and the subtitle"
-    poet = "poetstring"
-    composer = "compozeur"
-    instrument = "instrum"
-    piece = "stukkie"
+    \score {
+	\context Staff  \relative c' {
+	    c2-\sizeTest c2-\spaceTest
+	}
+	\layout {
+	    #(layout-set-staff-size (* 11.0 pt)) 
+	}
+    }
     
-    makeTitle = \markup {
-	\column <
-	    { \large \bold \title } " " { \large \bold \subtitle }
-	    { " " }
-            % FIXME: 60: linewidth / flushleft/flushright (hfill?))
-	    { { \smaller \upright \instrument } \hspace #60 \upright \composer }
-	    { { \smaller \caps \piece } \hspace #60 \upright \poet }
-	 >
+    \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"
+	}
+	\layout {
+	}
     }
 }
 
-\score {
-    \context Staff \notes \relative c' {
-	c-\markup { \center < \roman \caps "foe" > }
-    }
-}
+%% Local Variables:
+%% coding: utf-8
+%% End: