X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fmensural-ligatures.ly;h=eb87f9c6e2e2d82e91523153f5f0fd71fd72f6c5;hb=e90f0536f9be39ada0bef0aeb0d275dec3b2fb5b;hp=d7b5e9674052f65fd54587723854e692b7c2ebb8;hpb=39dd20959c8b3a143cfe41138a5c62749da54079;p=lilypond.git

diff --git a/input/regression/mensural-ligatures.ly b/input/regression/mensural-ligatures.ly
index d7b5e96740..eb87f9c6e2 100644
--- a/input/regression/mensural-ligatures.ly
+++ b/input/regression/mensural-ligatures.ly
@@ -1,4 +1,4 @@
-\version "2.7.13"
+\version "2.14.0"
 
 \header {
   texidoc = "Mensural ligatures show different shapes, depending on the
@@ -6,13 +6,29 @@
 }
 
 
-\context Voice{
+\layout {
+  ragged-right = ##t
+  indent = 0.0
+  \context {
+    \Voice
+    \remove "Ligature_bracket_engraver"
+    \consists "Mensural_ligature_engraver"
+  }
+  \context {
+    \Score
+    \override SpacingSpanner #'packed-spacing = ##t
+    \override PaperColumn #'keep-inside-line = ##f
+  }
+}
+
+\context Voice {
   \clef "petrucci-c4"
   \set Staff.printKeyCancellation = ##f
   \cadenzaOn % turn off bar lines
   #(set-accidental-style 'forget)
+  \textLengthOn
 
-				% ligaturae binaria
+% ligaturae binaria
 
   \[
     b\breve^\markup { \column { { \bold "ligaturae binaria" } "BL" } }
@@ -66,7 +82,7 @@
 
   \bar "|" \break
 
-				% ligaturae ternariae, quaternariae, etc. (sicut in Apel[1])
+% ligaturae ternariae, quaternariae, etc. (sicut in Apel[1])
 
   \[
     b\breve^\markup {
@@ -121,7 +137,7 @@
 
   \bar "|" \break
 
-				% examples from "dtv-Atlas zur Musik" [2]
+% examples from "dtv-Atlas zur Musik" [2]
 
   \[
     d'\breve^\markup { \column { { \bold "dtv-Atlas" } "BBL" } }
@@ -169,7 +185,7 @@
 
   \bar "|" \break
 
-				% some ligatures from Ockeghem: Missa De plus en plus
+% some ligatures from Ockeghem: Missa De plus en plus
 
   \[
     c'\maxima^\markup {
@@ -197,12 +213,15 @@
     \]
 
   \[
-    b\longa^\markup { "LBBBBB" }
+    \override NoteHead #'style = #'blackpetrucci
+    b\longa^\markup { "LBBBBB." }
     c'\breve
     d'
     g
+    \once \override NoteHead #'ligature-flexa = ##t
     f
-    g
+    \revert NoteHead #'style
+    g\breve.
     \]
 
   \[
@@ -214,9 +233,11 @@
     \]
 
   \[
+    \override NoteHead #'style = #'blackpetrucci
     e'1^\markup { "SSB" }
     a
     g\breve
+    \revert NoteHead #'style
     \]
 
   \[
@@ -226,9 +247,35 @@
     e'
     \]
 
+  \[
+    \override NoteHead #'style = #'blackpetrucci
+    e'\longa^\markup { "LBB" }
+    f'\breve
+    \revert NoteHead #'style
+    e'
+    \]
+
+  \[
+    \override NoteHead #'style = #'blackpetrucci
+    b\breve^\markup { "BBBBBBL" }
+    g
+    \override NoteHead #'ligature-flexa = ##t
+    \override NoteHead #'flexa-width = #3
+    f
+    f'
+    \override NoteHead #'flexa-width = #5
+    b
+    c'
+    \revert NoteHead #'style
+    % though ligature-flexa is still ##t, this pair must be drawn as recta
+    b\longa
+    \revert NoteHead #'flexa-width
+    \revert NoteHead #'ligature-flexa
+    \]
+
   \bar "|" \break
 
-				% some from the Requiem
+% some from the Requiem
 
   \[
     a1^\markup { \column { { \bold "Ockeghem: Requiem" } "SSBBBBBBBL" } }
@@ -252,8 +299,18 @@
     \]
 
   \bar "|" \break
+}
 
-				% crazy ligatures
+\context Staff \with
+{
+  \override StaffSymbol #'line-count = #4
+}
+{
+  \clef "petrucci-c5"
+  \set Staff.printKeyCancellation = ##f
+  \cadenzaOn % turn off bar lines
+  #(set-accidental-style 'forget)
+  \textLengthOn
 
   \[
     c\breve^\markup { \column { { \bold "crazy ligatures" } "BBBBB" } }
@@ -283,16 +340,16 @@
   \[
     b^\markup { "B.B." }
     a
-    \] % TODO: dots within ligatures must be placed above heads
+    \] % TODO the first dot is too high to avoid a non-existent (ledger) line
 
   \bar "|" \break
 
-				% invalid ligatures (those commented out are rejected with explanation)
+% invalid ligatures (those commented out are rejected with explanation)
 
-				%  \[
-				%    a1^\markup { \column { { \bold "invalid ligatures" } "SS" } }
-				%    as
-				%  \]
+%  \[
+%    a1^\markup { \column { { \bold "invalid ligatures" } "SS" } }
+%    as
+%  \]
 
   \[
     a\breve^\markup { "BBB" }
@@ -300,34 +357,23 @@
     as
     \]
 
-				%  \[
-				%    f\longa^\markup { "LLB" }
-				%    g
-				%    f\breve
-				%  \]
-
-				%  \[
-				%    f\breve^\markup { "BSLB" }
-				%    a1
-				%    g\longa
-				%    a\breve
-				%  \]
-}
+%  \[
+%    f\longa^\markup { "LLB" }
+%    g
+%    f\breve
+%  \]
 
-\layout {
-  raggedright = ##t
-  packed = ##t
-  indent = 0.0
-  \context {
-    \Voice
-    \remove Ligature_bracket_engraver
-    \consists Mensural_ligature_engraver
-  }
+%  \[
+%    f\breve^\markup { "BSLB" }
+%    a1
+%    g\longa
+%    a\breve
+%  \]
 }
 
 
 % Litterae:
 %
 % [1] Willi Apel: The Notation of Polyphonic Music. 900-1600.
-% [2] Ulrich Michels: dtv-Altlas zur Musik, 1977.
+% [2] Ulrich Michels: dtv-Atlas zur Musik, 1977.
 %