input/regression/mensural-ligatures.ly

   1 \version "2.14.0"
   2
   3 \header {
   4   texidoc = "Mensural ligatures show different shapes, depending on the
   5   rhythmical pattern and direction of the melody line."
   6 }
   7
   8
   9 \layout {
  10   ragged-right = ##t
  11   indent = 0.0
  12   \context {
  13     \Voice
  14     \remove "Ligature_bracket_engraver"
  15     \consists "Mensural_ligature_engraver"
  16   }
  17   \context {
  18     \Score
  19     \override SpacingSpanner #'packed-spacing = ##t
  20     \override PaperColumn #'keep-inside-line = ##f
  21   }
  22 }
  23
  24 \context Voice {
  25   \clef "petrucci-c4"
  26   \set Staff.printKeyCancellation = ##f
  27   \cadenzaOn % turn off bar lines
  28   #(set-accidental-style 'forget)
  29   \textLengthOn
  30
  31 % ligaturae binaria
  32
  33   \[
  34     b\breve^\markup { \column { { \bold "ligaturae binaria" } "BL" } }
  35     g\longa
  36     \]
  37
  38   \[
  39     g\breve^\markup { "BL" }
  40     b\longa
  41     \]
  42
  43   \[
  44     b\longa^\markup { "LL" }
  45     g
  46     \]
  47
  48   \[
  49     g\longa^\markup { "LL" }
  50     b
  51     \]
  52
  53   \[
  54     b\breve^\markup { "BB" }
  55     g
  56     \]
  57
  58   \[
  59     g\breve^\markup { "BB" }
  60     b
  61     \]
  62
  63   \[
  64     b\longa^\markup { "LB" }
  65     g\breve
  66     \]
  67
  68   \[
  69     g\longa^\markup { "LB" }
  70     b\breve
  71     \]
  72
  73   \[
  74     b1^\markup { "SS" }
  75     g
  76     \]
  77
  78   \[
  79     g1^\markup { "SS" }
  80     b
  81     \]
  82
  83   \bar "|" \break
  84
  85 % ligaturae ternariae, quaternariae, etc. (sicut in Apel[1])
  86
  87   \[
  88     b\breve^\markup {
  89       \column { { \bold "ligaturae ternariae, quaternariae, etc." } "BBL" } }
  90     a
  91     g\longa
  92     \]
  93
  94   \[
  95     a\breve^\markup { "BBBB" }
  96     g
  97     a
  98     b
  99     \]
 100
 101   \[
 102     b1^\markup { "SSBBBLB" }
 103     a
 104     g\breve
 105     a
 106     b
 107     a\longa
 108     b\breve
 109     \]
 110
 111   \[
 112     a\longa^\markup { "LBMxBL" }
 113     g\breve
 114     a\maxima
 115     b\breve
 116     a\longa
 117     \]
 118
 119   \[
 120     d'\breve^\markup { "BBBBLL" }
 121     c'
 122     f
 123     d'
 124     b\longa
 125     g
 126     \]
 127
 128   \[
 129     c'1^\markup { "SSBLLBB" }
 130     b
 131     g\breve
 132     d'\longa
 133     a
 134     c'\breve
 135     b
 136     \]
 137
 138   \bar "|" \break
 139
 140 % examples from "dtv-Atlas zur Musik" [2]
 141
 142   \[
 143     d'\breve^\markup { \column { { \bold "dtv-Atlas" } "BBL" } }
 144     c'
 145     b\longa
 146     \]
 147
 148   \[
 149     a\breve^\markup { "BBBL" }
 150     b
 151     c'
 152     d'\longa
 153     \]
 154
 155   \[
 156     b\longa.^\markup { "L.B.BBLBBB" }
 157     g\breve.
 158     a\breve
 159     b
 160     c'\longa
 161     a\breve
 162     b
 163     a
 164     \]
 165
 166   \[
 167     c'1^\markup { "SSBB" }
 168     b
 169     g\breve
 170     a
 171     \]
 172
 173   \[
 174     b\longa^\markup { "LBL" }
 175     a\breve
 176     c'\longa
 177     \]
 178
 179   \[
 180     a1^\markup { "SSBL" }
 181     b
 182     d'\breve
 183     c'\longa
 184     \]
 185
 186   \bar "|" \break
 187
 188 % some ligatures from Ockeghem: Missa De plus en plus
 189
 190   \[
 191     c'\maxima^\markup {
 192       \column { { \bold "Ockeghem: Missa De plus en plus" } "MxMx" } }
 193     g
 194     \]
 195
 196   \[
 197     d\longa^\markup { "LBBBB" }
 198     c\breve
 199     f
 200     e
 201     d
 202     \]
 203
 204   \[
 205     c'\maxima^\markup { "MxL" }
 206     d'\longa
 207     \]
 208
 209   \[
 210     e'\breve^\markup { "BBB" }
 211     d'
 212     c'
 213     \]
 214
 215   \[
 216     \override NoteHead #'style = #'blackpetrucci
 217     b\longa^\markup { "LBBBBB." }
 218     c'\breve
 219     d'
 220     g
 221     \once \override NoteHead #'ligature-flexa = ##t
 222     f
 223     \revert NoteHead #'style
 224     g\breve.
 225     \]
 226
 227   \[
 228     g\breve^\markup { "BBBBL" }
 229     b
 230     c'
 231     e'
 232     d'\longa
 233     \]
 234
 235   \[
 236     \override NoteHead #'style = #'blackpetrucci
 237     e'1^\markup { "SSB" }
 238     a
 239     g\breve
 240     \revert NoteHead #'style
 241     \]
 242
 243   \[
 244     g\longa^\markup { "LLLL" }
 245     b
 246     c'
 247     e'
 248     \]
 249
 250   \[
 251     \override NoteHead #'style = #'blackpetrucci
 252     e'\longa^\markup { "LBB" }
 253     f'\breve
 254     \revert NoteHead #'style
 255     e'
 256     \]
 257
 258   \[
 259     \override NoteHead #'style = #'blackpetrucci
 260     b\breve^\markup { "BBBBBBL" }
 261     g
 262     \override NoteHead #'ligature-flexa = ##t
 263     \override NoteHead #'flexa-width = #3
 264     f
 265     f'
 266     \override NoteHead #'flexa-width = #5
 267     b
 268     c'
 269     \revert NoteHead #'style
 270     % though ligature-flexa is still ##t, this pair must be drawn as recta
 271     b\longa
 272     \revert NoteHead #'flexa-width
 273     \revert NoteHead #'ligature-flexa
 274     \]
 275
 276   \bar "|" \break
 277
 278 % some from the Requiem
 279
 280   \[
 281     a1^\markup { \column { { \bold "Ockeghem: Requiem" } "SSBBBBBBBL" } }
 282     d
 283     e\breve
 284     f
 285     d
 286     f
 287     e
 288     f
 289     g
 290     e\longa
 291     \]
 292
 293   \[
 294     c'\breve^\markup { "BBBBL" }
 295     c
 296     d
 297     c
 298     c'\longa
 299     \]
 300
 301   \bar "|" \break
 302 }
 303
 304 \context Staff \with
 305 {
 306   \override StaffSymbol #'line-count = #4
 307 }
 308 {
 309   \clef "petrucci-c5"
 310   \set Staff.printKeyCancellation = ##f
 311   \cadenzaOn % turn off bar lines
 312   #(set-accidental-style 'forget)
 313   \textLengthOn
 314
 315   \[
 316     c\breve^\markup { \column { { \bold "crazy ligatures" } "BBBBB" } }
 317     e
 318     f
 319     g
 320     bes
 321     \]
 322
 323   \[
 324     bes\breve^\markup { "BB" }
 325     a
 326     \] % TODO: accidentals must be collected and printed before ligature
 327
 328   \[
 329     a\breve.^\markup { "B.B.B.B.B.B.B.B.B." }
 330     g
 331     b
 332     a
 333     e
 334     g
 335     f
 336     a
 337     g
 338     \]
 339
 340   \[
 341     b^\markup { "B.B." }
 342     a
 343     \] % TODO the first dot is too high to avoid a non-existent (ledger) line
 344
 345   \bar "|" \break
 346
 347 % invalid ligatures (those commented out are rejected with explanation)
 348
 349 %  \[
 350 %    a1^\markup { \column { { \bold "invalid ligatures" } "SS" } }
 351 %    as
 352 %  \]
 353
 354   \[
 355     a\breve^\markup { "BBB" }
 356     g
 357     as
 358     \]
 359
 360 %  \[
 361 %    f\longa^\markup { "LLB" }
 362 %    g
 363 %    f\breve
 364 %  \]
 365
 366 %  \[
 367 %    f\breve^\markup { "BSLB" }
 368 %    a1
 369 %    g\longa
 370 %    a\breve
 371 %  \]
 372 }
 373
 374
 375 % Litterae:
 376 %
 377 % [1] Willi Apel: The Notation of Polyphonic Music. 900-1600.
 378 % [2] Ulrich Michels: dtv-Atlas zur Musik, 1977.
 379 %