Monteverdi/LamentoNinfa/lamento-urtext.ly

   1 #(ly:set-option 'urtext #t)
   2 \include "common.ily"
   3
   4 #(define-markup-command (forced-page-string layout props forced-first-page)
   5      (number?)
   6    (interpret-markup
   7     layout props
   8     (number->string
   9      (+ forced-first-page
  10         (- (chain-assoc-get 'page:page-number props -1)
  11            (ly:output-def-lookup layout 'first-page-number))))))
  12
  13 #(define-markup-command (forced-folio-string layout props forced-first-folio)
  14      (number?)
  15    (interpret-markup
  16     layout props
  17     (number->string
  18      (+ forced-first-folio
  19         (quotient (- (chain-assoc-get 'page:page-number props -1)
  20               (ly:output-def-lookup layout 'first-page-number))
  21            2)))))
  22
  23 \layout {
  24   \context {
  25     \Score
  26     \override NonMusicalPaperColumn #'line-break-permission = ##f
  27     %\override NonMusicalPaperColumn #'page-break-permission = ##f
  28   }
  29   \context {
  30     \Staff
  31     \name Staff
  32     \consists "Custos_engraver"
  33     \override Custos #'style = #'mensural
  34     \override TimeSignature #'style = #'mensural
  35     \override Rest #'style = #'neomensural
  36     \override NoteHead #'style = #'petrucci
  37     \override Accidental #'glyph-name-alist =
  38     #alteration-mensural-glyph-name-alist
  39     %\override Flag #'style = #'mensural
  40     %\override Stem #'thickness = #1.0
  41   }
  42 }
  43
  44 \paper {
  45   bookTitleMarkup = ##f
  46 }
  47
  48 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  49 %% Page 1-3 : basso continuo
  50
  51 \bookpart {
  52   \header {
  53     instrument = "Basso Continuo"
  54   }
  55   \paper {
  56     bookTitleMarkup = \markup\override #'(baseline-skip . 3.5) \column {
  57       \column {
  58         \huge\larger\bold\fill-line { \larger\fromproperty #'header:title }
  59         \fill-line { \large\smaller\bold\larger\fromproperty #'header:subtitle }
  60         \fill-line {
  61           \fromproperty #'header:poet
  62           \fromproperty #'header:composer
  63         }
  64       }
  65     }
  66
  67     #(define (not-part-first-page layout props arg)
  68        (if (= (chain-assoc-get 'page:page-number props -1)
  69               (ly:output-def-lookup layout 'first-page-number))
  70            empty-stencil
  71            (interpret-markup layout props arg)))
  72     oddHeaderMarkup = \markup\fill-line {
  73       \null
  74       \on-the-fly #not-part-first-page \forced-page-string #55
  75       \on-the-fly #not-part-first-page \fromproperty #'header:instrument
  76     }
  77     evenHeaderMarkup = \markup\fill-line {
  78       \null
  79       \on-the-fly #not-part-first-page \forced-page-string #55
  80       \on-the-fly #not-part-first-page \fromproperty #'header:instrument
  81     }
  82     oddFooterMarkup = \markup\column {
  83       \fill-line {
  84         \null
  85         \line {
  86           Ottavo Libro de Madregali di Claudio Monte Verde. I
  87           \concat { \forced-folio-string #19 . }
  88         }
  89       }
  90       \on-the-fly #first-page \fromproperty #'header:copyright
  91     }
  92     evenFooterMarkup = #f
  93   }
  94
  95   \markup\column {
  96     \fill-line { \line { Modo di rappresentare il presente canto } }
  97     \justify {
  98       Le tre parti, che cantano fuori del pianto dela Ninfa; si sono cosi separatamente
  99       poste, perche si cantano al tempo dela "mano ;" le altre tre parti, che
 100       vanno commiserando in debole voce la Ninfa, si sono poste in partitura,
 101       acciò seguitano il pianto di effa, qual ua cantato a tempo del animo,
 102       & non a quello dela mano.
 103     }
 104     \vspace #1
 105   }
 106
 107   \markup\fill-line {
 108     \null
 109     \line { A Tre Voci. Doi Tenori, e Basso }
 110     \null
 111     \line { Basso Continuo. }
 112     \null
 113   }
 114   \score {
 115     \new Staff <<
 116       { \time 4/4
 117         \markBegin #DOWN "Non havea Febo ancora"
 118         s1 \bar "" s1 \bar "" s1 \bar "|"
 119         s1 \bar "" s1 \bar "" s1 \bar "" \break
 120         s1 \bar "" s1 \bar "|"
 121         s1 \bar "" s1 \bar "|"
 122         s1 \bar "" s1 \bar "|"
 123         s1 \bar "" \break
 124         s1 \bar "" s1 \bar "" s1 \bar "" s1 \bar "|"
 125         s1 \bar "" s1 \bar "|"
 126         s1 \bar "" s1 \bar "|"
 127         s1 \bar "" \break
 128         s1 \bar "" s1 \bar "" s1 \bar "" s1 \bar "" s1 \bar "|." \break
 129       }
 130       \Icontinuo
 131     >>
 132     \layout { ragged-last = ##t }
 133   }
 134
 135   \score {
 136     <<
 137       \new Staff << \IIglobal \IIcanto \addlyrics \IIcantoText >>
 138       \new Staff << \IIglobal \IItenorePrimo \addlyrics \IItenorePrimoText >>
 139       \new Staff << \IIglobal \IItenoreSecondo \addlyrics \IItenoreSecondoText >>
 140       \new Staff << \IIglobal \IIbassoPrimo \addlyrics \IIbassoPrimoText >>
 141       \new Staff <<
 142         \IIglobal \IIbassoContinuo
 143         { \markBegin #UP "Lamento dela Ninfa"
 144           s\longa.*5\pageBreak
 145           s\longa.*6\break
 146           s\longa.*6\pageBreak
 147           s\longa.*6 s\breve. \bar ""\break
 148           s\breve. s\longa.*5 s\breve. \bar ""\pageBreak
 149           s\breve. s\longa.*6 \break
 150           s\longa.*7 \pageBreak
 151           s\longa.*7 \break
 152           s\longa.*6 \pageBreak
 153           s\longa.*7 s\breve. \bar ""\break
 154           s\breve. s\longa.*4 \bar "" s\breve. \break
 155         }
 156       >>
 157     >>
 158     \layout { ragged-last = ##t }
 159   }
 160
 161   \markup\fill-line { \null \line { A 3. Voci. } }
 162   \score {
 163     \new Staff <<
 164       { \time 4/4
 165         \markBegin #DOWN "Si tra sdegnosi pianti."
 166         \cadenzaOn
 167         s1*12 \bar "|."
 168       }
 169       \IIIbassoContinuo
 170     >>
 171     \layout { }
 172   }
 173 }
 174 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 175 %% Pages 4-6 : Canto
 176 \bookpart {
 177   \header {
 178     instrument = "CANTO Primo"
 179   }
 180   \paper {
 181     oddHeaderMarkup = \markup\fill-line {
 182       \null
 183       \forced-page-string #30
 184       \fromproperty #'header:instrument
 185     }
 186     evenHeaderMarkup = \markup\fill-line {
 187       \null
 188       \forced-page-string #30
 189       \null %\fromproperty #'header:instrument
 190     }
 191   }
 192
 193   \markup { A tre voci }
 194   \markup { Non havea febo. tacet. }
 195
 196   \score {
 197     <<
 198       \new Staff <<
 199         \removeWithTag #'full \IIglobal
 200         \removeWithTag #'full \IIcanto
 201         \addlyrics \IIcantoText
 202       >>
 203       \new Staff <<
 204         \removeWithTag #'full \IIglobal
 205         \removeWithTag #'full \IIbassoContinuo
 206         { s\longa.*3\break
 207           s\longa.*5\break
 208           s\longa.*5\break
 209           s\longa.*6\pageBreak
 210           s\longa.*4 s\breve. \bar "" \break
 211           s\breve. s\longa.*3 s\breve. \bar "" \break
 212           s\breve. s\longa.*4\break
 213           s\longa.*5\pageBreak
 214           s\longa.*4 s\breve. \bar "" \break
 215           s\breve. s\longa.*4\break
 216           s\longa.*4\break
 217           s\longa.*5\pageBreak
 218           s\longa.*5\break
 219           s\longa.*5\break
 220           s\longa. \bar "" s\breve.\break
 221         }
 222       >>
 223     >>
 224     \layout { ragged-last = ##t }
 225   }
 226 }
 227
 228 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 229 %% Pages 7-10 : le tre parti (amor - partitura)
 230 \bookpart {
 231   \header {
 232     instrument = "[Tre Parti]"
 233   }
 234   \paper {
 235     oddHeaderMarkup = \markup\fill-line {
 236       \null
 237       \forced-page-string #25
 238       \fromproperty #'header:instrument
 239     }
 240     evenHeaderMarkup = \markup\fill-line {
 241       \null
 242       \forced-page-string #25
 243       \fromproperty #'header:instrument
 244     }
 245   }
 246
 247   \markup { A 4 \hspace #5 le tre parti cantino piano }
 248   \markup\vspace #2
 249   \markup { Nõ havea febo. tacet. }
 250
 251   \score {
 252     <<
 253       \new Staff <<
 254         { \once\override Staff.Clef #'transparent = ##t
 255           \once\override Staff.TimeSignature #'transparent = ##t
 256           \time 6/1 R\longa*3/2 R
 257           \once\override Staff.Clef #'full-size-change = ##t
 258           <<
 259             \removeWithTag #'full \IIcanto
 260             \removeWithTag #'full \IIglobal
 261           >>
 262         }
 263         \addlyrics \IIcantoText
 264       >>
 265       \new Staff <<
 266         { \once\override Staff.Clef #'transparent = ##t
 267           \once\override Staff.TimeSignature #'transparent = ##t
 268           \time 6/1 R\longa*3/2 R
 269           \once\override Staff.Clef #'full-size-change = ##t
 270           <<
 271             \removeWithTag #'full \IIglobal
 272             \removeWithTag #'full \IItenoreSecondo
 273           >>
 274         }
 275         \addlyrics \IItenoreSecondoText
 276       >>
 277       \new Staff <<
 278         { \once\override Staff.Clef #'transparent = ##t
 279           \once\override Staff.TimeSignature #'transparent = ##t
 280           \time 6/1 R\longa*3/2 R
 281           \once\override Staff.Clef #'full-size-change = ##t
 282           <<
 283             \removeWithTag #'full \IIglobal
 284             \removeWithTag #'full \IItenorePrimo
 285           >>
 286         }
 287         \addlyrics \IItenorePrimoText
 288       >>
 289       \new Staff <<
 290         { \once\override Staff.TimeSignature #'transparent = ##t
 291           \time 6/1
 292           \clef "petrucci-f4" la\breve. sol fa mi
 293           \once\override Staff.Clef #'full-size-change = ##t
 294           <<
 295             \removeWithTag #'full \IIglobal
 296             \removeWithTag #'full \IIbassoPrimo
 297           >>
 298         \addlyrics \IIbassoPrimoText
 299         }
 300         { s\longa.*4\break
 301           s\longa.*5\pageBreak
 302           s\longa.*4\break
 303           s\longa.*4\pageBreak
 304           s\longa.*5\break
 305           s\longa.*4\pageBreak
 306           s\longa.*4\break
 307           s\longa.*4\pageBreak
 308           s\longa.*5\break
 309           s\longa.*4 s\breve.\bar "" \pageBreak
 310           s\breve. s\longa.*4\break
 311           s\longa.*4\pageBreak
 312           s\longa.*4\break
 313           s\longa.*5\pageBreak
 314           s\longa.*5\break
 315           s\longa.*2 \bar "" s\breve.\break
 316         }
 317       >>
 318     >>
 319     \layout { ragged-last = ##t }
 320   }
 321   \markup { Si tra sdegnosi. tacet. }
 322 }
 323
 324
 325 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 326 %% Page 11 : tenore secondo
 327 \bookpart {
 328   \header {
 329     instrument = "[Tenore Secondo]"
 330   }
 331   \paper {
 332     oddHeaderMarkup = \markup\fill-line {
 333       \null
 334       \forced-page-string #85
 335       \fromproperty #'header:instrument
 336     }
 337     evenHeaderMarkup = \markup\fill-line {
 338       \null
 339       \forced-page-string #85
 340       \fromproperty #'header:instrument
 341     }
 342   }
 343
 344   \markup { A Tre. }
 345   \score {
 346     \new Staff <<
 347       { \time 4/4
 348         s1\bar "" s1\bar "" s1\bar "" \break
 349         s1\bar "" s1\bar "" s1\bar "" s1\bar "" \break
 350         s1\bar "" s1\bar "" s1\bar "" s1\bar "" s1\bar "" s2\bar "" \break
 351         s2\bar "" s1\bar "" s1\bar "" s1\bar "" s1\bar "|" s1\bar "|" s2\bar "" \break
 352         s2\bar "|" s1\bar "|" s1\bar "" \break
 353         s1\bar "" s1\bar "|" s2\bar "" \break
 354         s2\bar "" s1\bar "" s1\bar "" s1\bar "|." \break
 355       }
 356       \ItenoreSecondo \addlyrics \ItenoreSecondoText
 357     >>
 358     \layout {
 359       ragged-last = ##t
 360     }
 361   }
 362
 363   \markup { Amor. Tacet. }
 364   \markup \vspace #2
 365
 366   \markup { A 3. }
 367   \score {
 368     \new Staff <<
 369       { \time 4/4
 370         \cadenzaOn
 371         s1*6 \bar "" \break s1*6 \bar "|."
 372       }
 373       \IIItenoreSecondo \addlyrics \IIItext
 374     >>
 375     \layout { }
 376   }
 377 }
 378
 379 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 380 %% Page 12-13 : basso primo
 381
 382 \bookpart {
 383   \header {
 384     instrument = "[Basso Primo]"
 385   }
 386   \paper {
 387     oddHeaderMarkup = \markup\fill-line {
 388       \null
 389       \forced-page-string #36
 390       \fromproperty #'header:instrument
 391     }
 392     evenHeaderMarkup = \markup\fill-line {
 393       \null
 394       \forced-page-string #36
 395       \fromproperty #'header:instrument
 396     }
 397   }
 398
 399   \markup { A 3. voci }
 400   \score {
 401     \new Staff <<
 402       { \time 4/4
 403         s1\bar "" s1\bar "" s2\bar "" \break
 404         s2\bar "" s1\bar "" s1\bar "" \break
 405         s1\bar "" s1\bar "" s1\bar "" s1\bar "" s1\bar "" s1\bar "" \break
 406         s1\bar "" s1\bar "" s1\bar "" s1\bar "" s1\bar "" s1\bar "|" s2\bar "" \break
 407         s2\bar "|" s1\bar "" s2\bar "" \break
 408         s2\bar "|" s1\bar "|" s2\bar "" \break
 409         s2\bar "|" s1\bar "|" s1\bar "" \break
 410         s1\bar "" s1\bar "" s1\bar "|" \break
 411       }
 412       \IbassoPrimo \addlyrics \IbassoPrimoText
 413     >>
 414     \layout {
 415       ragged-last = ##t
 416     }
 417   }
 418
 419   \markup { Amor. Tacet. }
 420   \markup \vspace #2
 421
 422   \markup { A 3. }
 423   \score {
 424     \new Staff <<
 425       { \time 4/4
 426         \cadenzaOn
 427         s1*2 s2 \bar "" \break
 428         s2 s1*6 \bar "" \break
 429         s1*3 \bar "|."
 430       }
 431       \IIIbassoPrimo \addlyrics \IIItext
 432     >>
 433     \layout { ragged-last = ##t }
 434   }
 435 }
 436
 437 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 438 %% Page 14-15 : tenoro primo
 439
 440 \bookpart {
 441   \header {
 442     instrument = "[Tenore Primo]"
 443   }
 444   \paper {
 445     oddHeaderMarkup = \markup\fill-line {
 446       \null
 447       \forced-page-string #44
 448       \fromproperty #'header:instrument
 449     }
 450     evenHeaderMarkup = \markup\fill-line {
 451       \null
 452       \forced-page-string #44
 453       \fromproperty #'header:instrument
 454     }
 455   }
 456
 457   \markup { A 3. voci }
 458   \score {
 459     \new Staff <<
 460       { \time 4/4
 461         s1\bar "" s1\bar "" s2\bar "" \break
 462         s2\bar "" s1\bar "" s1\bar "" s2\bar "" \break
 463         s2\bar "" s1\bar "" s1\bar "" s1\bar "" s1\bar "" s1\bar "" \break
 464         s1\bar "" s1\bar "" s1\bar "" s1\bar "" s1\bar "" s1\bar "" s2\bar "" \break
 465         s2\bar "|" s1\bar "" s1\bar "" \break
 466         s1\bar "|" s1\bar "" s2\bar "" \break
 467         s2\bar "|" s1\bar "|" s1\bar "" s1\bar "" s1\bar "" s1\bar "|." \break
 468       }
 469       \ItenorePrimo \addlyrics \ItenorePrimoText
 470     >>
 471     \layout { }
 472   }
 473
 474   \markup { Amor. Tacet. }
 475   \markup \vspace #2
 476
 477   \score {
 478     \new Staff <<
 479       { \time 4/4
 480         \cadenzaOn
 481         s1*6 \bar "|" s1 \bar "" \break
 482         s1*5 \bar "" \bar "|." \break
 483       }
 484       \IIItenorePrimo \addlyrics \IIItext
 485     >>
 486     \layout { ragged-last = ##t }
 487   }
 488 }