Couperin/SonatesEnTrio/common.ily

   1 \header {
   2   copyrightYear = "2013"
   3   composer = "François Couperin"
   4   editions = \markup\smaller\smaller\center-column {
   5     \line { Source :
   6       \italic { 4 sonates en trio, Collection de sonates Tome II n° 2 }
   7     }
   8     \line { Copiste : Sébastien de Brossard }
   9     \smaller\line { Bibliothèque nationale de France, département Musique, VM7-1156 }
  10   }
  11 }
  12
  13 #(ly:set-option 'ancient-style (eqv? #t (ly:get-option 'urtext)))
  14 #(ly:set-option 'ancient-alteration #f)
  15 #(ly:set-option 'original-layout (eqv? #t (ly:get-option 'urtext)))
  16 #(ly:set-option 'non-incipit #t)
  17 #(ly:set-option 'print-footnotes #t)
  18 #(ly:set-option 'baroque-repeats #f)
  19 #(ly:set-option 'forbid-key-modification #t)
  20 #(ly:set-option 'use-rehearsal-numbers #f)
  21 %% Staff size
  22 #(set-global-staff-size 16)
  23
  24 %% Line/page breaking algorithm
  25 \paper {
  26   #(define page-breaking ly:page-turn-breaking)
  27 }
  28
  29 \include "italiano.ly"
  30 \include "common/common.ily"
  31 \include "common/columns.ily"
  32 \include "common/alterations.ily"
  33 \include "common/toc-columns.ily"
  34 \include "common/livret.ily"
  35 \setOpus "Couperin/SonatesEnTrio"
  36 \opusTitle "Quatre sonates en trio"
  37
  38 \layout {
  39   indent = \smallindent
  40   ragged-last = #(eqv? #t (ly:get-option 'urtext))
  41 }
  42
  43 \opusPartSpecs
  44 #`((dessus1 "Premier dessus" () (#:notes "dessus1"))
  45    (dessus2 "Second dessus" () (#:notes "dessus2"))
  46    (basse-archet
  47     "Basse d'archet" () (#:notes "basse" #:tag-notes archet #:clef "bass"))
  48    (basse-chiffree
  49     "Basse chifrée" () (#:notes "basse" #:tag-notes chiffree #:clef "bass"
  50                                 #:score-template "score-basse-continue2"))
  51    (clavier1 , #{ \markup\center-column {
  52   "Concert à deux clavecins"
  53   "Premier clavecin" } #}
  54                  () (#:score-template "score-nation-clavier1"))
  55    (clavier2 , #{ \markup\center-column {
  56   "Concert à deux clavecins"
  57   "Second clavecin" } #}
  58              () (#:score-template "score-nation-clavier2"))
  59    (4mains-12b "" () (#:score "score-12b"))
  60    (4mains-21b "" () (#:score "score-21b")))
  61
  62 %%% Figured bass
  63 includeFigures =
  64 #(define-music-function (parser this-location pathname) (string?)
  65   (let ((include-file (include-pathname pathname)))
  66     (set! location #f)
  67     #{ \new FiguredBass \figuremode { \include $include-file } #}))
  68
  69 trill = #(make-articulation "stopped")
  70
  71
  72 arch =
  73 #(define-music-function (parser location music) (ly:music?)
  74    #{ \tag #'archet $music #})
  75
  76 chif =
  77 #(define-music-function (parser location music) (ly:music?)
  78    #{ \tag #'chiffree $music #})
  79
  80 tous =
  81 #(define-music-function (parser location music) (ly:music?)
  82    #{ \tag #'tous $music #})
  83
  84 systemPos =
  85 #(define-music-function (parser location position) (number?)
  86    #{ \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details
  87       #`((Y-offset . ,position)) #})
  88
  89 %% sections
  90 sonate =
  91 #(define-music-function (parser location sonate-title) (string?)
  92   (increase-rehearsal-major-number)
  93   ;(add-page-break parser)
  94   (add-toc-item parser 'tocSceneMarkup sonate-title)
  95   (add-even-page-header-text parser (string-upper-case (*opus-title*)) #f)
  96   (*act-title* sonate-title)
  97   (add-odd-page-header-text
  98     parser
  99     (format #f "~a" (string-upper-case (*act-title*)))
 100     #f)
 101   (add-toplevel-markup parser
 102     (markup #:scene sonate-title))
 103   (add-no-page-break parser)
 104   (make-music 'Music 'void #t))
 105
 106 piece =
 107 #(define-music-function (parser location title) (string?)
 108   (let ((rehearsal (rehearsal-number)))
 109     #{ $(add-toc-item! 'tocPieceMarkup title)
 110        \beginMark #title #}))