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