input/regression/mensural-ligatures.ly

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