From dd963f7bc28a0512cfb0c63e5dcd7f891a61df64 Mon Sep 17 00:00:00 2001
From: Valentin Villenave <valentin@localhost.(none)>
Date: Fri, 5 Dec 2008 14:37:21 +0100
Subject: [PATCH] Heavy cosmetic modifications

This commit adds a title page, a license page, and
lots of cool stuff :-)
---
 definitions/functions.ly |  1 +
 definitions/graphics.ly  |  4 +-
 definitions/structure.ly | 33 ++--------------
 full_score.ly            | 16 +++++---
 instruments/alto1.ly     |  2 +-
 instruments/alto2.ly     |  2 +-
 instruments/piano.ly     | 53 +++++++++++++++-----------
 instruments/reduction.ly | 63 +++++++++++++++++++++++++++++++
 instruments/violon1.ly   |  2 +-
 texte/decoupage.ly       | 51 ++++++++++++++++++++++---
 texte/texte.ly           | 10 ++---
 vocal_score.ly           | 97 +++++++++++++++++++++++++++++++++++++++++++++---
 12 files changed, 256 insertions(+), 78 deletions(-)
 mode change 100755 => 100644 instruments/reduction.ly
 mode change 100755 => 100644 vocal_score.ly

diff --git a/definitions/functions.ly b/definitions/functions.ly
index b09c69b..caf5113 100755
--- a/definitions/functions.ly
+++ b/definitions/functions.ly
@@ -435,6 +435,7 @@ mpsostenuto = #(make-dynamic-extra "mp" "sostenuto")
 psubito = #(make-dynamic-extra "p" "subito")
 pdolce = #(make-dynamic-extra "p"  "dolce")
 psubito = #(make-dynamic-extra "p"  "subito")
+ppsubito = #(make-dynamic-extra "pp"  "subito")
 mfleggiero = #(make-dynamic-extra "mf" "leggiero")
 piuf = #(make-extra-dynamic "più" "f")
 pocof = #(make-extra-dynamic "poco" "f")
diff --git a/definitions/graphics.ly b/definitions/graphics.ly
index 96fa81b..350df6f 100644
--- a/definitions/graphics.ly
+++ b/definitions/graphics.ly
@@ -507,10 +507,10 @@ stroke
 grestore
 grestore"
 
-Couronne = \markup \with-dimensions #'(0 . 15) #'(-12 . 8)
+Couronne = \markup \with-dimensions #'(0 . 30) #'(-24 . 16)
 \postscript #"
 0 8 translate
-2 -2 scale
+4 -4 scale
 0 0 0 setrgbcolor
 [] 0 setdash
 1 setlinewidth
diff --git a/definitions/structure.ly b/definitions/structure.ly
index f113f7a..7c4dccd 100755
--- a/definitions/structure.ly
+++ b/definitions/structure.ly
@@ -6,36 +6,9 @@
 %------------------------------------------------------------------%
 
 
-%% TODO: improve indentation, and use a markup function.
-%% Nope -- better: redefine BookTitleMarkup or whatever.
-
-OperaTitre = \markup  {
-\center-column {\fontsize #8.5 \OperaTitreTexte
-\fontsize #5 \OperaSousTitreTexte }
-}
-
-OperaLivret = \markup  {
-\fontsize #5 \OperaLivretTexte 
-}
-
-OperaPartition = \markup  {
-\fontsize #5 \OperaPartitionTexte
-}
-
-OperaNotice = \OperaNoticeTexte
-
-FullScore = "Partitura"
-
-Reduction = "Version avec piano"
-
-Livret = "Paroles et didascalies"
-
+%% TODO: junk this.
 %%%%%%
 
-PrologueTitre = \markup  {
-\fill-line { \center-column {\fontsize #10 \PrologueTitreTexte " "}}
-}
-
 OuvertureTitre = \markup  {
 \fill-line { \center-column {\fontsize #10 "Ouverture" " "}}
 }
@@ -60,7 +33,9 @@ ActeUnSceneQuatreTitre = \markup {
 EntracteTitre = \markup {
   \fill-line {
     \center-column {\fontsize #10 \EntracteTitreTexte " "
-    \Couronne " "}}
+  %  \Couronne " "
+    }
+  }
 }
 
 ActeDeuxSceneUnTitre = \markup {
diff --git a/full_score.ly b/full_score.ly
index 54c9633..a5d530e 100644
--- a/full_score.ly
+++ b/full_score.ly
@@ -55,7 +55,10 @@
 %%%%%%%%%%%%%%%%%% Paper and layout declarations %%%%%%%%%%%%%%%%%%%
 
 \paper {
-  \includePaper
+  \includePaper 
+  bookTitleMarkup = \NiceBookTitleMarkup 
+  oddFooterMarkup = \NiceOddFooterMarkup
+  scoreTitleMarkup = \NiceScoreTitleMarkup
 }
 
 \layout {
@@ -1011,17 +1014,20 @@ ActeDeuxSceneDeux = {
 \book {
   \header {
     title = \OperaTitre
-    subtitle = \FullScore
-    poet = \OperaLivret
+    subtitle = \OperaSousTitre
+    libretto = \OperaLivret
     composer = \OperaPartition
     tagline = \OperaNotice
-  } %{
+    illustration = \Couronne
+    scoretype = \FullScore
+    copyright = \Copyright
+  } %
   \score {
     \Prologue
     \header {
       piece = \PrologueTitre
     }
-  } %
+  } %{
   \score {
     \Ouverture
     \header {
diff --git a/instruments/alto1.ly b/instruments/alto1.ly
index c6bbe49..e2d041b 100755
--- a/instruments/alto1.ly
+++ b/instruments/alto1.ly
@@ -65,7 +65,7 @@ PrologueAltoUn = { \AltoUn
     lab, r lab r sol sol, |
     lab' lab, r sol' sol, r \clef alto
     %%FIXME: grace synchronization bug
-    \acciaccatura s16 sol r4 | R4.
+    \acciaccatura s16 sol8 r4 | R4.
     r4 sol'8\p r do, r |
     r4 sol'8 r do, r |
     r4 sol'8 r re r |
diff --git a/instruments/alto2.ly b/instruments/alto2.ly
index 5efafc0..61ece8c 100644
--- a/instruments/alto2.ly
+++ b/instruments/alto2.ly
@@ -69,7 +69,7 @@ PrologueAltoDeux = { \AltoDeux
     sol, r sol r sol sol, |
     lab' lab, r sol' sol, r \clef alto
     %%FIXME: grace synchronization bug
-    \acciaccatura s16 sol r4 | R4.
+    \acciaccatura s16 sol8 r4 | R4.
     r4 si8\p r red, r |
     r4 si'8 r red, r |
     r4 si'8 r fad r |
diff --git a/instruments/piano.ly b/instruments/piano.ly
index 3757031..587207f 100755
--- a/instruments/piano.ly
+++ b/instruments/piano.ly
@@ -43,23 +43,24 @@ ProloguePiano = { \Piano
     
     %%% Tempo giusto %%%
     re'8\p r re-.\p re-. s2*2 R2*3 s2*2
-    \pl <re re'>4 re''4-. r2 | R2.*2 \clef bass |
-    <sib,,,sib'>2.-. <dod dod'>-. <mi mi'> \clef treble |
-    <lab lab'>2 <mi' do'>8 <sol la> |
-    <la fa'> <do mib> <do lab'> <mib fa> <mib si'> <fa lab> |
-    <re re'>4 r8 <mi sold re'>4.~ <mi sold re'>4 r8 <re fad si re>4. |
-    \ttt {re'16 la fa re do si} \ttt {fad' dod la fad mib reb}
-    \ttt {do sol' re sib \mg sol fa} \tttt {mi re si la sold fad red \md} |
-    s4 \t{<dod''' re>8 dod, <dod'' re>} | <dod,,re dod'>2\laissezVibrer
+    \pl <re re'>4 re''4-- r2 | R2.*2 \clef bass |
+    <sib,,,sib'>2.-- <dod dod'>-- <mi mi'>-- \clef treble |
+    <lab lab'>2-- <mi' do'>8( <sol la>) |
+    <la fa'>(\< <do mib>) <do lab'>( <mib fa>) <mib si'>( <fa lab>) |
+    <re re'>4\f r8 <mi sold re'>4.->~ <mi sold re'>4 r8 <re fad si re>4.-> |
+    \ttt {re'16(\ff la fa re do si)} \ttt {fad'( dod la fad mib reb}
+    \ttt {do) sol'( re sib \mg sol fa} \tttt {mi re si la sold fad red) \md} |
+    s4 \t{<dod''' re>8\> dod, <dod'' re>} | <dod,,re dod'>2\pp\laissezVibrer
     R2-\fermataMarkup
     
     %%% Solo ténor %%%
-    R1*2 R2. R1 R2. r2 sol~|
+    R1*2 R2. R1 R2. r2 sol\p~|
     sol~ sol~ sol R2 R2.*6
     <sol lab sol'>2.\arpeggio \laissezVibrer R2.*4 R4.
     
     %%% Andantino %%%
-    <lab sol'>8 \mg sol, \md r |
+    \st {
+    <lab sol'>8\pp \mg sol, \md r |
     <lab'sol'> \mg sol, \md r |
     <lab'sol'> <lab'sol'lab> r | <sib dob sib'> r <si do si'> |
     <lab,sol'> \mg sol, \md r |
@@ -70,12 +71,10 @@ ProloguePiano = { \Piano
     r4 <lab, sol'>8 r <si? sol' lab> r |
     R4. <mi do'>8 r4 | R4. <mi do'>8 r4 |
     R4. <re sib'>8 r4 R4. <re sib'>8 r4 |
-    R4. <do sold'>8 r4 R4. <dod la'>8 r4 |
-    R4.*2 <dod fad>8 <red sold> <fad la> <red sol> <fad la> <sold si> |
-    <la re>4.\laissezVibrer <la, re>8 <do fa> <re sol> |
-    <fa lab> <sol sib> <lab reb> <sib mib> <dod mi> <red fad> |
-    <mi la>4.\laissezVibrer <do, mib>8 <re fa> <mib lab>
-    <fa sib> <sold si> <lad dod> <si mi> <dod fad> <mi sol> |
+    R4. <do sold'>8 r4 R4. <dod la'>8} r4 |
+    R4.*2 s4.*2 |
+    <la' re>4.\laissezVibrer s4.*3 |
+    <mi la>4.\laissezVibrer s4.*3 |
     
     %%% A tempo %%%
     \ottava #1
@@ -192,16 +191,26 @@ ProloguePiano = { \Piano
     red8 r4 fad8 r4 |
     red8 r4 fad8 r4 |
     mi8 r4 mi8 r4 | re8 r4 re8 r4 |
-    \pl {do4.\laissezVibrer R4.}
-    {r8 <mi'sol>8 <fa sib> <sol reb'> <sib do> <sib mib>}
-    R4.*2
-    \pl do,,4.\laissezVibrer {r8 <mi' la> <fad do'>} R4.*3
-    \pl do,4.\laissezVibrer {r8 <sol'' do> <la re>} R4.*3
+    \pl {do4.\laissezVibrer R4. \oneVoice R4.*2}
+    {r8 <mi'sol>8( <fa sib>
+    <sol reb'> <sib do> <sib mib> \md
+    <dod fad> <red sold> <fad la>
+    <red sol> <fad la> <sold si>) \mg}
+    \pl {do,,,4.\laissezVibrer \oneVoice R4.*3}
+    {r8 <mi' la>( <fad do'> \md
+    <la re> <do fa> <re sol>
+    <fa lab> <sol sib> <lab reb>
+    <sib mib> <dod mi> <red fad>) \mg}
+    \pl {do,,,4.\laissezVibrer \oneVoice R4.*3}
+    {r8 <sol'' do>( <la re> \md
+    <do mib> <re fa> <mib lab>
+    <fa sib> <sold si> <lad dod>
+    <si mi> <dod fad> <mi sol>) \mg}
     
     %%% A tempo %%%
     
     %% FIXME: Issue #705
-    \stemUp re,,8 \md \stemDown re'' \mg \stemDown re, \stemNeutral
+    \stemUp re,,,8 \md \stemDown re'' \mg \stemDown re, \stemNeutral
     <sold, sold'> <si si'> <dod dod'> |
     \stemUp re, \md \stemDown re'' \mg \stemDown re, \stemNeutral
     <sold, sold'> <si si'> <dod dod'> |
diff --git a/instruments/reduction.ly b/instruments/reduction.ly
old mode 100755
new mode 100644
index 87a0ad9..56604b1
--- a/instruments/reduction.ly
+++ b/instruments/reduction.ly
@@ -1947,6 +1947,69 @@ ActeUnSceneTroisTerMainGauche = {
   }
 }
 
+InterludeTroisMainDroite = {
+  \relative {
+    \clef bass
+    r8 <re, mib> r <re mib> r <re mib> <do' reb> <re, mib> |
+    r <re mib> r <re mib> <do' reb> <re, mib> |
+    r4 <re mib>2.\laissezVibrer R2.
+    <do mib si'>8 <do mib si'>4 <do mib si'> <do mib si'> <do mib si'>8~|
+    <do mib si'> <do mib si'>4 <do mib si'> <do mib si'>8 |
+    <mi! sol do mib> <mi sol do mib>4 <mi sol do mib> <mi sol do mib> <mi sol do mib>8 |
+    <mi sol do mib> <mi sol do mib>4 <mi sol do mib> <mi sol do mib>8 \clef treble |
+    <lad dod fad la!>16 <lad dod fad la>8 <lad dod fad la> <lad dod fad la>
+    <lad dod fad la> <lad dod fad la> <lad dod fad la> <la do fa lab> <si re sol sib>16 |
+    <lad dod fad la> <lad dod fad la>8 <lad dod fad la> <lad dod fad la> <la do fa lab>
+    <sol! sib reb solb> <lad dod fad la>16 |
+    <fad' la do fa!> <fad la do fa>8 <fad la do fa> <fad la do fa>
+    <la do fa lab> <sol sib mib solb> <lad dod fad la>16 |
+    <fad la do fa> <fad la do fa>8 <fad la do fa> <fad la do fa> <fad la do fa>16 |
+    <si mi sol do> <si mi sol do>8 <si mi sol do> <si mi sol do> <si mi sol do>
+    <la re fa sib> <re? fa sib reb>16 |
+    <si mi sol do> <si mi sol do>8 <si mi sol do> <si mi sol do> <si mi sol do>16 |
+    <mi? sol do mib> <mi sol do mib>8 <mi sol do mib>16
+    <mi sol do mib> <mi sol do mib>8 <mi sol do mib>16 |
+    <sol do mib lab>16 <sol do mib lab>8 <sol do mib lab>16
+    <do mib lab si> <do mib lab si>8 <do mib lab si>16 \clef bass
+    s2*2 \clef treble s2 <fad, la do fa!>16 r r8 r4 |
+  }
+}
+
+InterludeTroisMainGauche = {
+  \relative { \clef bass
+    sol,4 mi8 r r2 sol4 mi8 r r4 |
+    sol8 mi sol mi sol mi sol lab sol mi sol mi sol lab |
+    sol mi sol mi sol mi sol lab sol mi sol mi sol lab |
+    <sol si> <mi sold> <sol si> <mi sold> <sol si> <mi sold> <sol si> <lab do> |
+    <sol si> <mi sold> <sol si> <mi sold> <sol si> <lab do> |
+    <sol si dod fa> <mi sold re'> <sol si dod fa> <mi sold re'>
+    <sol si dod fa> <mi sold re'> <sol si dod fa> <lab do re solb> |
+    <sol si dod fa> <mi sold re'> <sol si dod fa> <mi sold re'>
+    <sol si dod fa> <lab do re solb> |
+    <dod fa sol si> <sib re lab'> <dod fa sol si> <sib re lab'>
+    <dod fa sol si> <re solb lab do> |
+    <dod fa sol si> <sib re lab'> <dod fa sol si> <re solb lab do> |
+    <sold si do red sol> <mi, sol mi'> <sold' si do red sol> <mi, sol mi'>
+    <sold' si do red sol> <la sold'> |
+    <sold si do red sol> <mi, sol mi'> <sold' si do red sol> <la sold'> \clef treble |
+    <si! re mi sib'> <sold sol'!> <si! re mi sib'> <do si'> |
+    <mib solb lab re> <do si'> <mib solb lab re> <mi! mib'> \clef bass |
+    \stemUp <sol,,, sol'>32 \md \stemDown <sol' sol'> \mg \stemUp <mi, mi'> \md \stemDown <mi' mi'>
+    \mg \stemUp <sol, sol'> \md \stemDown <sol' sol'> \mg \stemUp <sold, sold'> \md \stemDown <sold' sold'>
+    \mg \stemUp <si, si'> \md \stemDown <si' si'> \mg \stemUp <sold, sold'> \md \stemDown <sold' sold'>
+    \mg \stemUp <si, si'> \md \stemDown <si' si'> \mg \stemUp <do, do'> \md \stemDown <do' do'> |
+    \mg \stemUp <mib, mib'> \md \stemDown <mib' mib'> \mg \stemUp <do, do'> \md \stemDown <do' do'>
+    \mg \stemUp <mib, mib'> \md \stemDown <mib' mib'> \mg \stemUp <mi, mi'> \md \stemDown <mi' mi'>
+    \mg \stemUp <sol, sol'> \md \stemDown <sol' sol'> \mg \stemUp <mi, mi'> \md \stemDown <mi' mi'>
+    \mg \stemUp <sol, sol'> \md \stemDown <sol' sol'> \mg \stemUp <sold, sold'> \md \stemDown <sold' sold'> |
+    \mg \stemUp <si, si'> \md \stemDown <sol' sol'> <si si'> \mg \stemUp <sib, sib'>
+    \md \stemDown <sib' sib'> <re re'> \mg \stemUp <dod, dod'> \md \stemDown <dod' dod'>
+    <fa fa'> \mg \stemUp \clef treble <mi, mi'> \md \stemDown <sold' sold'> \mg \stemUp <sol, sol'>
+    \md \stemDown <si' si'> \mg \stemUp <sib, sib'> \md \stemDown <re' re'> \mg \stemUp <dod, dod'> |
+    \mg \stemNeutral <sol' sib>16 \clef bass <la,, la'> r8 r4 |
+  }
+}
+
 ActeUnSceneQuatreMainDroite = {
   \relative {
     \partial 4 r16 la'' la la <fa la re>4 <mi la do> <fa la re>8 |
diff --git a/instruments/violon1.ly b/instruments/violon1.ly
index a07c785..f84c1da 100644
--- a/instruments/violon1.ly
+++ b/instruments/violon1.ly
@@ -129,7 +129,7 @@ ActeUnSceneUnViolonUn = { \ViolonUn
     R2*2 fad4:32~ fad8 r r4 |
     \ttt {si,16\pp( mib, la,) la( mib' si')}
     \ttt {si( mib, la,) la( mib' si')}
-    \ttt {\similesi mib, la, la mib' si'}
+    \ttt {\simile si mib, la, la mib' si'}
     \ttt {si mib, la, la mib' si'} |
     \ttt {si mib, la, la mib' si'}
     \ttt {si mib, la, la mib' si'} si8 r |
diff --git a/texte/decoupage.ly b/texte/decoupage.ly
index fd71346..bedf3b2 100755
--- a/texte/decoupage.ly
+++ b/texte/decoupage.ly
@@ -6,15 +6,54 @@
 %------------------------------------------------------------------%
 
 
-OperaTitreTexte= "Affaire Étrangère"
-OperaSousTitreTexte= "Opéra en deux actes"
-OperaLivretTexte= "Lewis Trondheim"
-OperaPartitionTexte= "Valentin Villenave"
-OperaNoticeTexte= "Gravure réalisée au moyen du logiciel libre GNU LilyPond (www.lilypond.org)."
+OperaTitre= "Affaire Étrangère"
+OperaSousTitre= "Opéra en deux actes"
+OperaLivret= "Lewis Trondheim"
+OperaPartition= "Valentin Villenave"
+OperaNotice= "Gravure réalisée au moyen du logiciel libre GNU LilyPond (www.lilypond.org)."
+Copyright = "Lewis Trondheim et Valentin Villenave, 2008."
+
+BigNotice = \markup { 
+  \override #'(box-padding . 1.0)
+  \translate #'(-4 . -160)  \fill-line {
+    \box \center-column {
+      \justify {
+        © Lewis Trondheim et Valentin Villenave, 2008,
+        d'après une oeuvre de Lewis Trondheim et Jochen Gerner,
+        L'Association, 2001.
+      }
+      \vspace #.5
+      \justify {
+        Cette partition est publiée suivant les termes de la 
+        \with-url #"http://valentin.villenave.net/opera"
+        \line { Licence Opéra Libre,}
+        version 0.2 ou ultérieure. Vous pouvez la copier,
+        la modifier et la jouer
+        librement ; dans sa version actuelle,
+        cette licence n'autorise aucun
+        usage commercial de l'histoire ou des personnages. Veuillez contacter
+        l'un des auteurs si vous souhaitez en faire un tel usage.
+      }
+      \vspace #.5
+      \line {
+        Gravure réalisée au moyen du logiciel libre
+        \with-url #"http://www.LilyPond.org" 
+        \bold {GNU LilyPond}.
+        \concat { #(ly:export (string-append "version " (lilypond-version))) } .
+      }
+    }
+  }
+}
+
+
+FullScore = "Partitura"
+VocalScore = "Version avec piano"
+Livret = "Paroles et didascalies"
+
 
 %%%%
 
-PrologueTitreTexte= "Prologue"
+PrologueTitre= "Prologue"
 InterludeTitreTexte= "Interlude"
 EntracteTitreTexte= "Entr'acte"
 FinaleTitreTexte= "Finale"
diff --git a/texte/texte.ly b/texte/texte.ly
index cdf3740..9f9b6fc 100755
--- a/texte/texte.ly
+++ b/texte/texte.ly
@@ -802,7 +802,7 @@ EntracteSopranoDeuxTexte = \lyricmode {
   j'ai -- me cette es -- thé -- ti -- que_;
   ma -- gni -- fi -- que, ma -- gni -- fi -- que,
   ces pierres sont ma -- gni -- fi -- ques,
-  au -- the -- ti -- ques, au -- then -- ti -- ques,
+  au -- then -- ti -- ques, au -- then -- ti -- ques,
   des dia -- mants au -- then -- ti -- ques.
   
   En -- nuy -- eux, très en -- nuy -- eux_;
@@ -832,8 +832,8 @@ EntracteTenorTexte = \lyricmode {
   
   Hé -- mo -- rra -- gi -- que, hé -- mo -- rra -- gi -- _ que,
   une mort hé -- mo -- rra -- gi -- que_;
-  é -- lec -- tri -- que, é -- lec -- tri -- que,
-  ou la chaise é -- lec -- tri -- _ que.
+  é -- lec -- tri -- _ que, é -- lec -- tri -- que,
+  ou la chaise é -- lec -- tri -- que.
   En -- nuy -- eux, très en -- nuy -- eux_;
   ex -- trê -- me -- ment en -- nuy -- eux_!
   Le fai -- re tom -- ber…
@@ -863,13 +863,13 @@ EntracteBarytonUnTexte = \lyricmode {
   A -- mné -- si -- que, a -- mné -- si -- que,
   pour -- quoi suis_-_je a -- mné -- si -- que_;
   sym -- pa -- thi -- que, sym -- pa -- thi -- _ que,
-  per -- sonne n'est sym -- pa -- thi --que_;
+  per -- sonne n'est sym -- pa -- thi -- que_;
   dra -- ma -- ti -- que, dra -- ma -- ti -- _ que,
   en cette heure dra -- ma -- ti -- que_;
   fa -- ti -- di -- que, fa -- ti -- di -- _ que,
   ce mo -- ment fa -- ti -- di -- que_;
   lu -- na -- ti -- que, lu -- na -- ti -- _ que,
-  car ce Roi lu -- na -- ti --que_;
+  car ce Roi lu -- na -- ti -- que_;
   ty -- ra -- nni -- que, ty -- ra -- nni -- _ que,
   m'a l'air bien ty -- ra -- nni -- que.
   
diff --git a/vocal_score.ly b/vocal_score.ly
old mode 100755
new mode 100644
index 11244eb..67d86e4
--- a/vocal_score.ly
+++ b/vocal_score.ly
@@ -42,6 +42,67 @@
 
 \paper {
   \includePaper
+  bookTitleMarkup = \markup {
+  \vspace #20
+    \override #'(baseline-skip . 3.5)
+    \column {
+      \combine
+      \column {
+        \fill-line {
+          \fontsize #5 \sans \fromproperty #'header:libretto
+          \null
+        }
+        \vspace #4
+        \line { \fontsize #15 " " }
+        \vspace #4
+        \fill-line {
+          \null
+          \fontsize #5 \sans \fromproperty #'header:composer
+        }
+      }
+      \column {
+        \line { \fontsize #5 " " }
+        \vspace #4
+        \fill-line {
+          \fontsize #15 \sans \italic \fromproperty #'header:title
+        }
+        \fill-line {
+          \fontsize #2 \sans \fromproperty #'header:subtitle
+        }
+      }
+      \vspace #4
+      \fill-line {
+        \fromproperty #'header:illustration
+      }
+    }
+  }
+  oddFooterMarkup = \markup {
+  \column {
+    \fill-line {
+      %% Copyright header field only on first page.
+      \on-the-fly #first-page
+      \fontsize #2 \sans \rounded-box\fromproperty #'header:scoretype
+    }
+    \vspace #1
+    \fill-line {
+      \on-the-fly #first-page
+      \fontsize #1 \sans \fromproperty #'header:copyright
+    }
+    
+    \fill-line {
+      %% Tagline header field only on last page.
+      \on-the-fly #last-page \fromproperty #'header:tagline
+    }
+  }
+}
+  scoreTitleMarkup = \markup { \column {
+  \on-the-fly #print-all-headers { \bookTitleMarkup \hspace #1 }
+  \fill-line {
+    \fontsize #6 \fromproperty #'header:piece
+  }
+  }
+}
+
   %% FIXME : a bug to be reported.
   systemSeparatorMarkup = ""
 }
@@ -225,6 +286,17 @@ ActeUnSceneTroisTer = {
   >>
 }
 
+InterludeTrois = {
+  <<
+    \new TopLine \InterludeTroisMesures
+    \new PianoStaff { \Accompagnement <<
+        \new StaffPiano = "md" \InterludeTroisMainDroite
+        \new StaffPiano = "mg" \InterludeTroisMainGauche
+      >>
+    }
+  >>
+}
+
 ActeUnSceneQuatre = {
   <<
     \new TopLine \ActeUnSceneQuatreMesures
@@ -383,11 +455,18 @@ ActeDeuxSceneTrois = {
 \book {
   \header {
     title = \OperaTitre
-    subtitle = \Reduction
-    poet = \OperaLivret
-    composer =  \OperaPartition
+    subtitle = \OperaSousTitre
+    libretto = \OperaLivret
+    composer = \OperaPartition
     tagline = \OperaNotice
-  } %{
+    illustration = \Couronne
+    scoretype = \VocalScore
+    copyright = \Copyright
+  }
+  \pageBreak
+  \markup \BigNotice
+  \pageBreak
+  %{
   \score {
     \Prologue
     \header {
@@ -441,13 +520,19 @@ ActeDeuxSceneTrois = {
     \header {
       piece = \Separateur
     }
-  } %
+  } %}
+  \score {
+    \InterludeTrois
+    \header {
+      piece = \Interlude
+    }
+  } %{
   \score {
     \ActeUnSceneQuatre
     \header {
       piece = \ActeUnSceneQuatreTitre
     }
-  } %}
+  } %
   \score {
     \Entracte
     \header {
-- 
2.11.4.GIT