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 %%
  96 pheniceMark =
  97 #(define-music-function (parser location) ()
  98   (make-character-mark "vbas-dessus" "Phenice"))
  99
 100 sidonieMark =
 101 #(define-music-function (parser location) ()
 102   (make-character-mark "vbas-dessus" "Sidonie"))
 103
 104 armideMark =
 105 #(define-music-function (parser location) ()
 106   (make-character-mark "vbas-dessus" "Armide"))
 107
 108 hidraotMark =
 109 #(define-music-function (parser location) ()
 110   (make-character-mark "vbasse" "Hidraot"))
 111
 112 aronteMark =
 113 #(define-music-function (parser location) ()
 114   (make-character-mark "vbasse" "Aronte"))
 115 %%
 116 renaudMark =
 117 #(define-music-function (parser location) ()
 118   (make-character-mark "vhaute-contre" "Renaud"))
 119
 120 artemidoreMark =
 121 #(define-music-function (parser location) ()
 122   (make-character-mark "vtaille" "Artemidore"))
 123
 124 %%
 125 haineMark =
 126 #(define-music-function (parser location) ()
 127   (make-character-mark "vtaille" "La Haine"))
 128
 129 %%
 130 chevalierMark =
 131 #(define-music-function (parser location) ()
 132   (make-character-mark "vhaute-contre" "Le Chevalier"))
 133
 134 ubaldeMark =
 135 #(define-music-function (parser location) ()
 136   (make-character-mark "vbasse" "Ubalde"))
 137
 138 lucindeMark =
 139 #(define-music-function (parser location) ()
 140   (make-character-mark "vdessus" "Lucinde"))
 141
 142 melisseMark =
 143 #(define-music-function (parser location) ()
 144   (make-character-mark "vbas-dessus" "Melisse"))