Couperin/Nations/common.ily

   1 \header {
   2   copyrightYear = "2013"
   3   composer = "François Couperin"
   4   edition = \markup {
   5     \line { Source : Les Nations, Sonades; et Suites de Simphonies en Trio }
   6     \line { En quatre Livres Séparés; pour la comodité
   7       des Académies de Musique; Et des Concerts particuliers. }
   8     \line { Paris: l’Auteur, Boivin, 1726 }
   9   }
  10 }
  11
  12 #(ly:set-option 'ancient-style (eqv? #t (ly:get-option 'urtext)))
  13 #(ly:set-option 'ancient-alteration #f)
  14 #(ly:set-option 'original-layout (eqv? #t (ly:get-option 'urtext)))
  15 #(ly:set-option 'non-incipit #t)
  16 #(ly:set-option 'print-footnotes #t)
  17 #(ly:set-option 'baroque-repeats #f)
  18 #(ly:set-option 'forbid-key-modification #t)
  19 #(ly:set-option 'use-rehearsal-numbers #f)
  20 %% Staff size
  21 #(set-global-staff-size
  22   (if (or (eqv? #t (ly:get-option 'urtext))
  23           (not (symbol? (ly:get-option 'part)))
  24           (eqv? (ly:get-option 'part) 'claviers))
  25       16
  26       18))
  27 %% Line/page breaking algorithm
  28 \paper { #(define page-breaking ly:optimal-breaking) }
  29
  30 \include "italiano.ly"
  31 \include "common/common.ily"
  32 \include "common/columns.ily"
  33 \include "common/alterations.ily"
  34 \include "common/toc-columns.ily"
  35 \include "common/livret.ily"
  36 \setOpus "Couperin/Nations"
  37 \opusTitle "Les Nations"
  38
  39 \layout {
  40   indent = \smallindent
  41   ragged-last = #(eqv? #t (ly:get-option 'urtext))
  42 }
  43
  44 \opusPartSpecs
  45 #`((dessus1 "Premier dessus" () (#:notes "dessus1"))
  46    (dessus2 "Second dessus" () (#:notes "dessus2"))
  47    (basse-archet
  48     "Basse d'archet" () (#:notes "basse" #:tag-notes archet #:clef "bass"))
  49    (basse-chiffree
  50     "Basse chifrée" () (#:notes "basse" #:tag-notes chiffree #:clef "bass"
  51                                 #:score-template "score-basse-continue2"))
  52    (clavier1 , #{ \markup\center-column {
  53   "Concert à deux clavecins"
  54   "Premier clavecin" } #}
  55                  () (#:score-template "score-nation-clavier1"))
  56    (clavier2 , #{ \markup\center-column {
  57   "Concert à deux clavecins"
  58   "Second clavecin" } #}
  59              () (#:score-template "score-nation-clavier2")))
  60
  61 %%% Figured bass
  62 includeFigures =
  63 #(define-music-function (parser location pathname) (string?)
  64   (let ((include-file (include-pathname pathname)))
  65      #{ \new FiguredBass \figuremode { \include $include-file } #}))
  66
  67 trill = #(make-articulation "stopped")
  68
  69
  70 arch =
  71 #(define-music-function (parser location music) (ly:music?)
  72    #{ \tag #'archet $music #})
  73
  74 chif =
  75 #(define-music-function (parser location music) (ly:music?)
  76    #{ \tag #'chiffree $music #})
  77
  78 systemPos =
  79 #(define-music-function (parser location position) (number?)
  80    #{ \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details
  81       #`((Y-offset . ,position)) #})
  82
  83 %% sections
  84 ordre =
  85 #(define-music-function (parser location ordre-title) (string?)
  86   (increase-rehearsal-major-number)
  87   ;(add-page-break parser)
  88   (add-toc-item parser 'tocSceneMarkup ordre-title)
  89   (add-even-page-header-text parser (string-upper-case (*opus-title*)) #f)
  90   (*act-title* ordre-title)
  91   (add-odd-page-header-text
  92     parser
  93     (format #f "~a" (string-upper-case (*act-title*)))
  94     #f)
  95   (add-toplevel-markup parser
  96     (markup #:scene ordre-title))
  97   (add-no-page-break parser)
  98   (make-music 'Music 'void #t))
  99
 100 pieceTocTitle =
 101 #(define-music-function (parser location title) (markup?)
 102    (add-toc-item parser 'tocPieceMarkup title #f)
 103    (add-toplevel-markup parser (markup #:huge title))
 104    (add-no-page-break parser)
 105    (make-music 'Music 'void #t))
 106
 107 pieceTocAndTitle =
 108 #(define-music-function (parser location title toc-title) (markup? markup?)
 109    (add-toc-item parser 'tocPieceMarkup toc-title #f)
 110    (add-toplevel-markup parser (markup #:huge title))
 111    (add-no-page-break parser)
 112    (make-music 'Music 'void #t))