Lully/Opera/LWV71Armide/common.ily

   1 \header {
   2   copyrightYear = "2006"
   3   composer = "Jean-Baptiste Lully"
   4   poet = "Philippe Quinault"
   5   opus = "LWV 71"
   6   date = "1676"
   7 }
   8
   9 %% LilyPond options:
  10 %%  urtext  if true, then print urtext score
  11 %%  part    if a symbol, then print the separate part score
  12 #(ly:set-option 'ancient-style (eqv? #t (ly:get-option 'urtext)))
  13 #(ly:set-option 'ancient-alteration (eqv? #t (ly:get-option 'urtext)))
  14 #(ly:set-option 'original-layout (eqv? #t (ly:get-option 'urtext)))
  15 #(ly:set-option 'non-incipit (symbol? (ly:get-option 'part)))
  16 #(ly:set-option 'apply-vertical-tweaks
  17                 (and (not (eqv? #t (ly:get-option 'urtext)))
  18                      (not (symbol? (ly:get-option 'part)))))
  19 #(ly:set-option 'print-footnotes (not (symbol? (ly:get-option 'part))))
  20
  21 %% use baroque style repeats
  22 #(ly:set-option 'baroque-repeats (eqv? #t (ly:get-option 'urtext)))
  23
  24 #(ly:set-option 'forbid-key-modification #t)
  25 #(ly:set-option 'use-rehearsal-numbers #t)
  26
  27 %% Staff size
  28 #(set-global-staff-size
  29   (cond ((not (symbol? (ly:get-option 'part))) 16)
  30         ((memq (ly:get-option 'part) '(basse-continue)) 16)
  31         (else 18)))
  32
  33 %% Line/page breaking algorithm
  34 %%  optimal   for lead sheets
  35 %%  page-turn for instruments and vocal parts
  36 \paper {
  37   #(define page-breaking
  38      (if (symbol? (ly:get-option 'part))
  39          ly:page-turn-breaking
  40          ly:optimal-breaking))
  41 }
  42
  43 \layout {
  44   reference-incipit-width = #(* 1/2 mm)
  45 }
  46
  47 \include "italiano.ly"
  48 \include "common/common.ily"
  49 \include "common/columns.ily"
  50 \include "common/alterations.ily"
  51 \include "common/toc-columns.ily"
  52 \include "common/livret.ily"
  53 \setOpus "Lully/Opera/LWV71Armide"
  54 \opusTitle "Armide"
  55
  56 \layout {
  57   indent = \smallindent
  58   short-indent = 0
  59   ragged-last = ##f
  60 }
  61
  62 \opusPartSpecs
  63 #`((dessus
  64     "Flûtes, hautbois, violons" ()
  65     (#:notes "dessus"))
  66    (haute-contre
  67     "Hautes-contre" ()
  68     (#:notes "haute-contre" #:clef "alto"))
  69    (haute-contre-treble
  70     "Haute-contre" ((haute-contre #f "treble"))
  71     (#:notes "haute-contre" #:clef "treble"))
  72    (taille
  73     "Tailles" ()
  74     (#:notes "taille" #:clef "alto"))
  75    (quinte
  76     "Quintes" ()
  77     (#:notes "quinte" #:clef "alto"))
  78    (basse
  79     "Basses, bassons" ()
  80     (#:notes "basse" #:clef "basse"))
  81    (basse-continue
  82     "Basse continue" ()
  83     (#:notes "basse" #:clef "basse"
  84              #:score-template "score-basse-continue")))
  85
  86 %%%
  87 gloireMark =
  88 #(define-music-function (parser location) ()
  89   (make-character-mark "vbas-dessus" "La Gloire"))
  90
  91 sagesseMark =
  92 #(define-music-function (parser location) ()
  93   (make-character-mark "vbas-dessus" "La Sagesse"))
  94
  95 sagesseMarkNoClef =
  96 #(define-music-function (parser location) ()
  97   (make-character-mark "" "La Sagesse"))
  98
  99 %%
 100 pheniceMarkNoClef =
 101 #(define-music-function (parser location) ()
 102   (make-character-mark "" "Phénice"))
 103
 104 sidonieMarkNoClef =
 105 #(define-music-function (parser location) ()
 106   (make-character-mark "" "Sidonie"))
 107
 108 armideMarkNoClef =
 109 #(define-music-function (parser location) ()
 110   (make-character-mark "" "Armide"))
 111
 112 pheniceMark =
 113 #(define-music-function (parser location) ()
 114   (make-character-mark "vdessus" "Phénice"))
 115
 116 sidonieMark =
 117 #(define-music-function (parser location) ()
 118   (make-character-mark "vdessus" "Sidonie"))
 119
 120 armideMark =
 121 #(define-music-function (parser location) ()
 122   (make-character-mark "vbas-dessus" "Armide"))
 123
 124 hidraotMark =
 125 #(define-music-function (parser location) ()
 126   (make-character-mark "vbasse" "Hidraot"))
 127
 128 hidraotMarkNoClef =
 129 #(define-music-function (parser location) ()
 130   (make-character-mark "" "Hidraot"))
 131
 132 aronteMark =
 133 #(define-music-function (parser location) ()
 134   (make-character-mark "vbasse" "Aronte"))
 135 %%
 136 renaudMark =
 137 #(define-music-function (parser location) ()
 138   (make-character-mark "vhaute-contre" "Renaud"))
 139
 140 renaudMarkNoClef =
 141 #(define-music-function (parser location) ()
 142   (make-character-mark "" "Renaud"))
 143
 144 artemidoreMark =
 145 #(define-music-function (parser location) ()
 146   (make-character-mark "vtaille" "Artémidore"))
 147
 148 choeurBergersMark =
 149 #(define-music-function (parser location) ()
 150   (make-character-mark "" "Chœur de bergers et bergères héroïques"))
 151 %%
 152 haineMark =
 153 #(define-music-function (parser location) ()
 154   (make-character-mark "vtaille" "La Haine"))
 155
 156 haineMarkNoClef =
 157 #(define-music-function (parser location) ()
 158   (make-character-mark "" "La Haine"))
 159 %%
 160 chevalierMark =
 161 #(define-music-function (parser location) ()
 162   (make-character-mark "vhaute-contre" "Le Chevalier"))
 163
 164 chevalierMarkNoClef =
 165 #(define-music-function (parser location) ()
 166   (make-character-mark "" "Le Chevalier"))
 167
 168 ubaldeMark =
 169 #(define-music-function (parser location) ()
 170   (make-character-mark "vbasse" "Ubalde"))
 171
 172 ubaldeMarkNoClef =
 173 #(define-music-function (parser location) ()
 174   (make-character-mark "" "Ubalde"))
 175
 176 lucindeMark =
 177 #(define-music-function (parser location) ()
 178   (make-character-mark "vdessus" "Lucinde"))
 179
 180 lucindeMarkNoClef =
 181 #(define-music-function (parser location) ()
 182   (make-character-mark "" "Lucinde"))
 183
 184 melisseMark =
 185 #(define-music-function (parser location) ()
 186   (make-character-mark "vbas-dessus" "Mélisse"))
 187
 188 melisseMarkNoClef =
 189 #(define-music-function (parser location) ()
 190   (make-character-mark "" "Mélisse"))
 191 %%
 192 amantMarkNoClef =
 193 #(define-music-function (parser location) ()
 194   (make-character-mark "" "Un Amant fortuné"))