Headers for all pages in bookpart
In every page of a bookpart except the first, show a header with the subtitle centered and the page number alternating left for even pages, right for odd pages.
\version "2.24.0"
%% http://lsr.di.unimi.it/LSR/Item?id=655
odbolTagline = \markup {
Music engraving by \italic { Score Your Music } (url.example.net)
using LilyPond (www.lilypond.org)
}
%LSR The part to cut and paste follows
#(define (part-not-first-page layout props arg)
(if (not (= (chain-assoc-get 'page:page-number props -1)
(ly:output-def-lookup layout 'first-page-number)))
(interpret-markup layout props arg)
empty-stencil))
\paper {
oddHeaderMarkup = \markup
\fill-line {
" "
\on-the-fly #part-not-first-page \fontsize #-4.0 \fromproperty #'header:subtitle
\if \should-print-page-number \fromproperty #'page:page-number-string
}
evenHeaderMarkup = \markup
\fill-line {
\if \should-print-page-number \fromproperty #'page:page-number-string
\on-the-fly #part-not-first-page \fontsize #-4.0 \fromproperty #'header:subtitle
" "
}
}
%LSR End of the part to cut and paste follows
bNC = % Abbreviation for barNumberCheck to reduce typing
#(define-music-function (barNumber) (integer?)
#{
\barNumberCheck #barNumber
#}
)
timeKey = {
\key e \minor
\time 3/4
}
firstPart = {
r8 b'8 e'' fis'' g''4 ~ |
g''8 fis'' a'' g'' fis'' e'' |
dis''16 cis'' b' cis'' d''8 e'' fis''4 ~ |
fis''8 e'' g'' fis'' e'' d'' |
cis''8 cis'' fis'' g'' a''4 ~ |
a''8 fis'' a'' g'' fis'' e'' |
dis''8 fis'' g'' a'' b'' g'' |
e''4 ~ e''8 e'' fis'' g'' |
a''4 g''2 ~ |
g''8 e'' g'' fis'' e'' d'' |
cis''4. d''8 e'' fis'' |
g''4 fis''8 e'' d''4 ~ |
d''8 cis'' e'' d'' cis'' b' |
b'4 r4 r4 |
R2. | \bNC #16
r8 fis'8 b' cis'' d''4 ~ |
d''8 cis'' e'' d'' cis'' b' |
ais'16 fis'' e'' d'' cis'' fis'' cis'' b' ais' cis'' ais' gis' |
fis'4 r4 fis''4 ~ |
fis''16 b'' g'' fis'' e'' g'' e'' d'' cis'' g'' cis'' b' |
a'4 r4 e''4 ~ |
e''16 a'' fis'' e'' d'' fis'' d'' cis'' b' fis'' b' a' |
g'2. ~ |
g'2. |
fis'8 a' d'' e'' fis''4 ~ |
fis''8 e'' g'' fis'' e'' d'' |
c''16 e'' a'' g'' fis'' a'' fis'' e'' d'' a'' d'' cis'' |
b'16 d'' g'' fis'' e'' g'' e'' d'' cis'' g'' cis'' b' |
a'2 ~ a'16 a' g' fis' |
g'16 e' ais' b' cis'' fis' cis'' d'' e'' fis'' g'' e'' |
fis''16 g'' fis'' e'' d'' fis'' d'' cis'' b' fis'' b' a' | \bNC #32
gis'16 fis' gis' a' b' gis' b' c'' d'' gis' d'' e'' |
f''16 b'' e'' d'' c'' e'' c'' b' a' e'' a' g' |
fis'16 e' fis' g' a' fis' a' b' c'' fis' c'' d'' |
ees''16 a'' ees'' d'' c'' ees'' c'' bes' a' c'' a' g' |
fis'16 e' dis' e' fis' dis' fis' g' a' dis' a' b' |
c''8 b' e'' fis'' g''4 ~ |
g''8 fis'' a'' g'' fis'' e'' |
dis''4 d''2 ~ |
d''8 gis' a' b' c''4 ~ |
c''8 e'' a'' b'' c'''4 ~ |
c'''16 b'' a'' g'' fis'' a'' dis'' e'' fis''4 ~ |
fis''16 b'' dis'' e'' e''4 dis''4 | \bNC #44
e''2. |
}
secondPart = {
R2. |
R2. |
r8 fis'8 b' cis'' d''4 ~ |
d''8 cis'' e'' d'' cis'' b' |
ais'16 gis' fis' gis' a'8 b' c''4 ~ |
c''8 a' c'' b' a' g' |
fis'4 r8 b'8 e'' dis'' |
cis''4 ~ cis''8 cis'' dis'' e'' |
fis''4. b'8 e'' d'' |
cis''4. d''8 cis'' b' |
ais'4. b'8 cis'' d'' |
e''8 d'' cis''4. fis'8 |
ais'2 ais'4 |
b'8 b e' fis' g'4 ~ |
g'8 fis' a' g' fis' e' | \bNC #16
dis'4 r8 fis'8 b'16 a' g' fis' |
e'4. fis'8 g' e' |
cis'8 fis cis' d' e'4 ~ |
e'16 g' fis' e' d' fis' d' cis' b fis' b a |
g4 r4 g'4 ~ |
g'16 g' e' d' cis' e' cis' b a e' a g |
fis4 r4 fis'4 ~ |
fis'8 e'16 d' cis' e' cis' b a8 b |
cis'8 a16 b cis'8 e' a cis' |
d'8 d16 e fis d fis g a d a b |
cis'16 a cis' d' e' a e' fis' g' a' b' g' |
a'2. |
g'2. ~ |
g'16 g' fis' e' d' fis' d' cis' b4 ~ |
b8 r8 r4 r4 |
r8 fis8 b cis' d'4 ~ | \bNC #32
d'8 b d' c' b a |
gis8 e a b c'4 ~ |
c'8 a c' b a g |
fis4. g8 a4 ~ |
a8 g c' b a g |
fis4 r4 r8 b'8 |
e''8 d'' c'' b' a' g' |
fis'8 c'' b' a' gis' b' |
e'4 fis'8 gis' a' e' |
a' b' c'' e'' a'' g'' |
fis''4 r4 r16 c''16 b' a' |
g'4 fis'8 g' a'4 | \bNC #44
gis'2. |
}
thirdPart = {
e8 e, r8 b8 e' d' |
c'4. b8 a c' |
b4. a8 g fis |
e4. fis8 g e |
fis4 ~ fis16 g a g fis e dis e |
dis4 r8 e8 c a, |
b,8 b e' fis' g'4 ~ |
g'8 fis' a' g' fis' e' |
dis'8 b e' d' cis' b |
ais4. b8 cis' d' |
e'16 d' e' fis' g'8 fis' e' d' |
cis'8 b ais fis b ais |
g8 e fis4 fis,4 |
b,16 fis b a g b g fis e b e d |
c16 g e d c e c b, a, b, c a, | \bNC #16
b,16 g fis e d fis d cis b, fis b, a, |
g,16 d b, a, g, b, g, fis, e, fis, g, e, |
fis,8 fis ais b cis' fis |
b4 r8 b,8 cis d |
e4 r8 fis8 e d |
cis4 r8 a, b, cis |
d4 r8 e d cis |
b,16 b g fis e g e d cis g cis b, |
a, e cis b, a, cis a, g, fis, cis fis, e, |
d,8 r8 r4 r4 |
R2. |
r8 a,8 d e fis4 ~ |
fis8 e g fis e d |
cis8 fis, b, cis d4 ~ |
d8 cis e d cis b, |
ais,4 b, r8 d8 | \bNC #32
e8 d f e d c |
b,8 gis, r4 r8 c8 |
d8 c e d c a, |
d8 a, d e fis4 ~ |
fis8 e a g fis e |
dis4 r8 b,8 e dis |
c2. ~ |
c16 c' b a gis b gis fis e b e d |
c16 f e d c e c b, a, e a, g, |
fis,16 d c b, a, c a, g, fis, c fis, e, |
dis,4 r4 r4 |
e,4 b,2 | \bNC #44
e,2. |
}
toUpperStaff = {
\change Staff = "upper"
\voiceTwo
}
toLowerStaff = {
\change Staff = "lower"
\stemUp
}
firstPartLayout = {
\voiceOne
s2.*30 | % 1
\oneVoice
s2.*6 | % 1
\voiceOne
s2.*8 | % 1
}
secondPartLayout = {
s2.*17 | % 1-17
\barNumberCheck #18
s8
\toLowerStaff
s8
\toUpperStaff
s2 | % 18
s2 s16*3
\toLowerStaff
s16 | % 19
\showStaffSwitch
s4
\toUpperStaff
s2 | % 20
\hideStaffSwitch
\showStaffSwitch
s2
\toLowerStaff
s16
\hideStaffSwitch
\toUpperStaff
s16
\toLowerStaff
s16*2 | % 21
s4
\showStaffSwitch
\toUpperStaff
s2 | % 22
\hideStaffSwitch
\showStaffSwitch
s2
\toLowerStaff
s4 | % 23
\toUpperStaff
s8
\hideStaffSwitch
\toLowerStaff
s8
\toUpperStaff
s4
\toLowerStaff
s8
\toUpperStaff
s8 | % 24
s8
\toLowerStaff
s8 s2 | % 25
\toUpperStaff
s16
\toLowerStaff
s16
\toUpperStaff
s16*2 s16
\toLowerStaff
s16
\toUpperStaff
s8 s4 | % 26
s2.*4 | % 27-30
\barNumberCheck #31
\showStaffSwitch
\toLowerStaff
s2.*6 | % 31-36
\hideStaffSwitch
s4
\showStaffSwitch
\toUpperStaff
s2 | % 37
\hideStaffSwitch
s2.*7 | % 38-44
\barNumberCheck #45
}
thirdPartLayout = {
\oneVoice
s2.*17 | % 1-17
\barNumberCheck #18
\voiceTwo
s2.*2 | % 18-19
\barNumberCheck #20
\oneVoice
s2. | % 20
\voiceTwo
s2.*6 | % 21-26
\barNumberCheck #27
\oneVoice
s2.*4 | % 27-30
\barNumberCheck #31
\voiceTwo
s2.*6 | % 31-36
\barNumberCheck #37
s4
\oneVoice
s2 | % 37
s2.*7 | % 38-44
\barNumberCheck #45
}
thirdPartClefChanges = {
\clef bass
s2.*6 | % 1-6
\barNumberCheck #7
s8 \clef alto \key e \minor s8 s2 | % 7
s2.*5 | % 8-12
\barNumberCheck #13
\clef bass \key e \minor
s2.*32 | % 13-44
\barNumberCheck #45
}
\header {
title = \markup { \center-column { "Three-Part Inventions" \null } }
subtitle = \markup{ \fontsize #5.0 "Sinfonia 7" }
composer = "Johann Sebastian Bach"
copyright = \markup { \center-column { "Music in the public domain" } }
tagline = \odbolTagline
}
\bookpart {
\score {
\new PianoStaff = Keyboard <<
\new Staff = "upper" <<
{ \timeKey \clef soprano }
\new Voice = "first" { << { \firstPartLayout } { \voiceOne \firstPart } >> }
\new Voice = "second" { << { \secondPartLayout } { \voiceTwo \secondPart \bar "|." } >> }
>>
\new Staff = "lower" <<
{ \timeKey \clef bass }
\new Voice = "third" { <<
{ \thirdPartLayout } { \thirdPartClefChanges }
{ \thirdPart \bar "|." }
>> }
>>
>>
}
}
