Lully/Opera/LWV53Atys/common.ily

   1 \header {
   2   copyrightYear = "2010"
   3   composer = "Jean-Baptiste Lully"
   4   poet = "Philippe Quinault"
   5   date = "1676"
   6 }
   7
   8 %% LilyPond options:
   9 %%  urtext  if true, then print urtext score
  10 %%  part    if a symbol, then print the separate part score
  11 #(ly:set-option 'ancient-style (eqv? #t (ly:get-option 'urtext)))
  12 #(ly:set-option 'ancient-alteration (eqv? #t (ly:get-option 'urtext)))
  13 #(ly:set-option 'original-layout (eqv? #t (ly:get-option 'urtext)))
  14 #(ly:set-option 'non-incipit (symbol? (ly:get-option 'part)))
  15 #(ly:set-option 'apply-vertical-tweaks (and (not (eqv? #t (ly:get-option 'urtext)))
  16                                             (not (symbol? (ly:get-option 'part)))))
  17 #(ly:set-option 'print-footnotes (eqv? #t (ly:get-option 'urtext)))
  18
  19 %% use baroque style repeats
  20 #(ly:set-option 'baroque-repeats #t)
  21
  22 %% Staff size:
  23 %%  14 for lead sheets
  24 %%  16 for vocal parts
  25 %%  18 for instruments
  26 #(set-global-staff-size
  27   (cond ((eqv? #f (ly:get-option 'part)) 14)
  28         ((memq (ly:get-option 'part) '(basse-continue)) 16)
  29         (else 18)))
  30
  31 %% Line/page breaking algorithm
  32 %%  optimal   for lead sheets
  33 %%  page-turn for instruments and vocal parts
  34 \paper {
  35   #(define page-breaking (if (eqv? (ly:get-option 'part) #f)
  36                              ly:optimal-breaking
  37                              ly:page-turn-breaking))
  38 }
  39
  40 %% No key signature modification
  41 #(ly:set-option 'forbid-key-modification #t)
  42
  43 %% Use rehearsal numbers
  44 #(ly:set-option 'use-rehearsal-numbers #t)
  45
  46 \layout {
  47   reference-incipit-width = #(* 1/2 mm)
  48 }
  49
  50 \include "italiano.ly"
  51 \include "common/common.ily"
  52 \include "common/alterations.ily"
  53 \include "common/toc-columns.ily"
  54 \include "common/livret-columns.ily"
  55 \setOpus "Lully/Opera/LWV53Atys"
  56 \opusTitle "Atys"
  57
  58 \opusPartSpecs
  59 #`((dessus "Flûtes, hautbois, violons" ()
  60            (#:notes "dessus"))
  61    (haute-contre "Hautes-contre" ()
  62                  (#:notes "haute-contre" #:clef "alto"))
  63    (taille "Tailles" ()
  64            (#:notes "taille" #:clef "alto"))
  65    (quinte "Quintes" ()
  66            (#:notes "quinte" #:clef "alto"))
  67    (basse "Basses, bassons" ()
  68           (#:notes "basse" #:clef "basse"))
  69    (basse-continue "Basse continue" ()
  70                    (#:notes "basse" #:clef "basse"
  71                             #:score-template "score-basse-continue")))
  72
  73 %% For better looking two-column TOC
  74 scene =
  75 #(define-music-function (parser location title toc-title) (string? markup?)
  76   (add-toc-item parser 'tocSceneMarkup (if (and (string? toc-title)
  77                                                 (string-null? toc-title))
  78                                            (string-upper-case title)
  79                                            toc-title))
  80   (add-odd-page-header-text
  81     parser
  82     (format #f "~a, ~a."
  83            (string-upper-case (*act-title*))
  84            (string-upper-case title))
  85     #t)
  86   (add-toplevel-markup parser
  87     (markup #:scene (string-upper-case title)))
  88   (add-no-page-break parser)
  89   (make-music 'Music 'void #t))
  90
  91 %%% Figured bass
  92 includeFigures =
  93 #(define-music-function (parser location pathname) (string?)
  94   (let ((include-file (include-pathname pathname)))
  95      #{ \new FiguredBass \figuremode { \include $include-file } #}))
  96
  97 trill = #(make-articulation "stopped")
  98
  99 #(set-cdr! (assoc 'haute-contre french-clefs)
 100           '(soprano . alto))
 101
 102 %%%
 103
 104 tempsMark =
 105 #(define-music-function (parser location) ()
 106   (make-character-mark "vbasse-taille" "Le Temps"))
 107
 108 floreMark =
 109 #(define-music-function (parser location) ()
 110   (make-character-mark "vbas-dessus" "Flore"))
 111
 112 zephirMark =
 113 #(define-music-function (parser location) ()
 114   (make-character-mark "vhaute-contre" "Un Zéphir"))
 115
 116 melpomeneMark =
 117 #(define-music-function (parser location) ()
 118   (make-character-mark "vbas-dessus" "Melpomène"))
 119
 120 irisMark =
 121 #(define-music-function (parser location) ()
 122   (make-character-mark "vbas-dessus" "Iris"))
 123
 124 %%
 125 atysMark =
 126 #(define-music-function (parser location) ()
 127   (make-character-mark "vhaute-contre" "Atys"))
 128
 129 idasMark =
 130 #(define-music-function (parser location) ()
 131   (make-character-mark "vbasse" "Idas"))
 132
 133 sangarideMark =
 134 #(define-music-function (parser location) ()
 135   (make-character-mark "vbas-dessus" "Sangaride"))
 136
 137 dorisMark =
 138 #(define-music-function (parser location) ()
 139   (make-character-mark "vbas-dessus" "Doris"))
 140
 141 dorisIdasMark =
 142 #(define-music-function (parser location) ()
 143   (make-character-mark "vbas-dessus" "Doris et Idas"))
 144
 145 dorisAtysIdasMark =
 146 #(define-music-function (parser location) ()
 147   (make-character-mark "vbas-dessus" "Doris, Atys et Idas"))
 148
 149 cybeleMark =
 150 #(define-music-function (parser location) ()
 151   (make-character-mark "vbas-dessus" "Cybèle"))
 152
 153 melisseMark =
 154 #(define-music-function (parser location) ()
 155   (make-character-mark "vbas-dessus" "Mélisse"))
 156
 157 celaenusMark =
 158 #(define-music-function (parser location) ()
 159   (make-character-mark "vbasse-taille" "Celænus"))
 160
 161 %%
 162 morpheeMark =
 163 #(define-music-function (parser location) ()
 164   (make-character-mark "vhaute-contre" "Morphée"))
 165
 166 sommeilMark =
 167 #(define-music-function (parser location) ()
 168   (make-character-mark "vhaute-contre" "Le Sommeil"))
 169
 170 phantaseMark =
 171 #(define-music-function (parser location) ()
 172   (make-character-mark "vtaille" "Phantase"))
 173
 174 phobetorMark =
 175 #(define-music-function (parser location) ()
 176   (make-character-mark "vbasse" "Phobetor"))
 177
 178 songeFunesteMark =
 179 #(define-music-function (parser location) ()
 180   (make-character-mark "vbasse" "Un songe funeste"))
 181
 182 %%
 183 sangarMark =
 184 #(define-music-function (parser location) ()
 185   (make-character-mark "vbasse" "Le Fleuve Sangar"))
 186
 187 choeurMark =
 188 #(define-music-function (parser location) ()
 189   (make-character-mark "vbas-dessus" "Chœur"))
 190
 191 %%%%
 192
 193 \layout {
 194   \context {
 195     \Voice
 196     \override Script #'avoid-slur = #'outside
 197     %% no line from footnotes to grobs
 198     \override FootnoteItem #'annotation-line = ##f
 199   }
 200   \context {
 201     \CueVoice
 202     \override Script #'avoid-slur = #'outside
 203     %% no line from footnotes to grobs
 204     \override FootnoteItem #'annotation-line = ##f
 205   }
 206 }
 207
 208 %%% Figured bass
 209
 210 %% Always use Ballard: \ballarFigures.  When there is no figured bass
 211 %% in Ballard, use Baussen, with \baussenFigures.  \baussenFigureAlt
 212 %% is to be used when there is a figured bass in Ballard, and an
 213 %% alternative one in Baussen.
 214
 215 ballardFigures =
 216 #(define-music-function (parser location figures) (ly:music?)
 217    figures)
 218
 219 baussenFigures =
 220 #(define-music-function (parser location figures) (ly:music?)
 221    (if (eqv? (ly:get-option 'urtext) #t)
 222        (if (eqv? (ly:get-option 'debug-figures) #t)
 223            #{ \new FiguredBass \with {
 224                 \override BassFigure #'color = #red
 225                 \override BassFigureContinuation #'color = #red
 226              } $figures #}
 227            (make-music 'Music 'void #t))
 228        figures))
 229
 230 baussenFiguresAlt =
 231 #(define-music-function (parser location figures) (ly:music?)
 232    (if (eqv? (ly:get-option 'urtext) #t)
 233        (if (eqv? (ly:get-option 'debug-figures) #t)
 234            #{ \new FiguredBass \with {
 235                 \override BassFigure #'color = #red
 236                 \override BassFigureContinuation #'color = #red
 237              } $figures #}
 238            (make-music 'Music 'void #t))
 239        (make-music 'Music 'void #t)))
 240
 241 %%% In urtext version, do not display "+" ornementations,
 242 %%% only the "t"
 243
 244 \layout {
 245   \context {
 246     \Score
 247     scriptDefinitions =
 248     #(if (eqv? #t (ly:get-option 'urtext))
 249          (cons `("stopped"
 250                  (script-stencil . (markup . ,(markup #:null)))
 251                  (padding . 0.20)
 252                  (avoid-slur . around)
 253                  (direction . ,UP))
 254                baroque-script-alist)
 255          baroque-script-alist)
 256   }
 257 }