X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Ftranscription-of-ancient-music-with-incipit.ly;h=01a1caea4d3d6baf78c7a250ebe4166c9e651447;hb=8860a7700be8348848bba7972ad86ef46721c544;hp=c737bf6ab12904907bbaff95b73d9ff805728440;hpb=71243e9548e9146da4a90e6347dbca6430346be8;p=lilypond.git

diff --git a/Documentation/snippets/transcription-of-ancient-music-with-incipit.ly b/Documentation/snippets/transcription-of-ancient-music-with-incipit.ly
index c737bf6ab1..01a1caea4d 100644
--- a/Documentation/snippets/transcription-of-ancient-music-with-incipit.ly
+++ b/Documentation/snippets/transcription-of-ancient-music-with-incipit.ly
@@ -1,12 +1,12 @@
 %% Do not edit this file; it is automatically
 %% generated from LSR http://lsr.dsi.unimi.it
 %% This file is in the public domain.
-\version "2.13.4"
+\version "2.13.20"
 
 \header {
   lsrtags = "ancient-notation, tweaks-and-overrides"
 
-%% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
+%% Translation of GIT committish: e0aa246e0ed1a86dc41a99ab79bff822d3320aa7
   texidoces = "
 A modo de alternativa para obtener auténticos «incipit»
 independientes de la partitura principal, se incluyen como
@@ -33,22 +33,18 @@ global = {
   \set Score.skipBars = ##t
   \key g \major
   \time 4/4
-
   %make the staff lines invisible on staves
   \override Staff.BarLine #'transparent = ##t
   \skip 1*8 % the actual music
-
   % let finis bar go through all staves
   \override Staff.BarLine #'transparent = ##f
-
   % finis bar
   \bar "|."
 }
 
-
 discantusNotes = {
   \transpose c' c'' {
-    \clef "treble"
+    \clef treble
     d'2. d'4 |
     b e' d'2 |
     c'4 e'4.( d'8 c' b |
@@ -71,7 +67,7 @@ discantusLyrics = \lyricmode {
 
 altusNotes = {
   \transpose c' c'' {
-    \clef "treble"
+    \clef treble
     r2 g2. e4 fis g | % two bars
     a2 g4 e |
     fis g4.( fis16 e fis4) |
@@ -109,7 +105,7 @@ tenorLyrics = \lyricmode {
 
 bassusNotes = {
   \transpose c' c' {
-    \clef "bass"
+    \clef bass
     R1 |
     R1 |
     R1 |
@@ -126,137 +122,143 @@ bassusLyrics = \lyricmode {
   -us.
 }
 
-incipitDiscantus = \markup{
-	\score{
-		{
-		\set Staff.instrumentName="Discantus "
-		\override NoteHead   #'style = #'neomensural
-		\override Rest #'style = #'neomensural
-		\override Staff.TimeSignature #'style = #'neomensural
-		\cadenzaOn
-		\clef "neomensural-c1"
-		\key f \major
-		\time 2/2
-	  	c''1._"IV-" s2  %two bars
-	  	\skip 1*8 % eight bars
-    	}
-	\layout {
-		\context {\Voice
-			\remove Ligature_bracket_engraver
-			\consists Mensural_ligature_engraver
-		}
-		line-width=4.5\cm
-	}
-	}
+incipitDiscantus = \markup {
+  \score {
+    {
+      \set Staff.instrumentName = #"Discantus "
+      \override NoteHead #'style = #'neomensural
+      \override Rest #'style = #'neomensural
+      \override Staff.TimeSignature #'style = #'neomensural
+      \cadenzaOn
+      \clef "neomensural-c1"
+      \key f \major
+      \time 2/2
+      c''1._"IV-" s2  %two bars
+      \skip 1*8 % eight bars
+    }
+    \layout {
+      \context {
+        \Voice
+        \remove "Ligature_bracket_engraver"
+        \consists "Mensural_ligature_engraver"
+      }
+      line-width = 4.5\cm
+    }
+  }
 }
 
-incipitAltus = \markup{
-	\score{
-		{
-		\set Staff.instrumentName="Altus "
-		\override NoteHead   #'style = #'neomensural
-		\override Rest #'style = #'neomensural
-		\override Staff.TimeSignature #'style = #'neomensural
-		\cadenzaOn
-		\clef "neomensural-c3"
-		\key f \major
-		\time 2/2
-	  	r1        % one bar
-        f'1._"IV-" s2   % two bars
-        \skip 1*7 % seven bars
-		}
-	\layout {
-		\context {\Voice
-			\remove Ligature_bracket_engraver
-			\consists Mensural_ligature_engraver
-		}
-		line-width=4.5\cm
-	}
-	}
+incipitAltus = \markup {
+  \score {
+    {
+      \set Staff.instrumentName = #"Altus "
+      \override NoteHead #'style = #'neomensural
+      \override Rest #'style = #'neomensural
+      \override Staff.TimeSignature #'style = #'neomensural
+      \cadenzaOn
+      \clef "neomensural-c3"
+      \key f \major
+      \time 2/2
+      r1        % one bar
+      f'1._"IV-" s2   % two bars
+      \skip 1*7 % seven bars
+    }
+    \layout {
+      \context {
+        \Voice
+        \remove "Ligature_bracket_engraver"
+        \consists "Mensural_ligature_engraver"
+      }
+      line-width = 4.5\cm
+    }
+  }
 }
 
-incipitTenor = \markup{
-    \score{ {
-    \set Staff.instrumentName = "Tenor  "
-    \override NoteHead   #'style = #'neomensural
-	\override Rest #'style = #'neomensural
-	\override Staff.TimeSignature #'style = #'neomensural
-	\cadenzaOn
-	\clef "neomensural-c4"
-	\key f \major
-	\time 2/2
-    r\longa   % four bars
-    r\breve   % two bars
-    r1        % one bar
-    c'1._"IV-" s2   % two bars
-    \skip 1   % one bar
+incipitTenor = \markup {
+  \score {
+    {
+      \set Staff.instrumentName = #"Tenor  "
+      \override NoteHead #'style = #'neomensural
+      \override Rest #'style = #'neomensural
+      \override Staff.TimeSignature #'style = #'neomensural
+      \cadenzaOn
+      \clef "neomensural-c4"
+      \key f \major
+      \time 2/2
+      r\longa   % four bars
+      r\breve   % two bars
+      r1        % one bar
+      c'1._"IV-" s2   % two bars
+      \skip 1   % one bar
     }
     \layout {
-		\context {\Voice
-			\remove Ligature_bracket_engraver
-			\consists Mensural_ligature_engraver
-		}
-		line-width=4.5\cm
-}
-}
+      \context {
+        \Voice
+        \remove "Ligature_bracket_engraver"
+        \consists "Mensural_ligature_engraver"
+      }
+      line-width = 4.5\cm
+    }
+  }
 }
 
-incipitBassus = \markup{
-    \score{ {
-    \set Staff.instrumentName = "Bassus  "
-    \override NoteHead   #'style = #'neomensural
-	\override Rest #'style = #'neomensural
-	\override Staff.TimeSignature #'style = #'neomensural
-	\cadenzaOn
-	\clef "bass"
-	\key f \major
-	\time 2/2
-    % incipit
-    r\maxima  % eight bars
-    f1._"IV-" s2    % two bars
+incipitBassus = \markup {
+  \score {
+    {
+      \set Staff.instrumentName = #"Bassus  "
+      \override NoteHead #'style = #'neomensural
+      \override Rest #'style = #'neomensural
+      \override Staff.TimeSignature #'style = #'neomensural
+      \cadenzaOn
+      \clef "bass"
+      \key f \major
+      \time 2/2
+      % incipit
+      r\maxima  % eight bars
+      f1._"IV-" s2    % two bars
     }
     \layout {
-		\context {\Voice
-			\remove Ligature_bracket_engraver
-			\consists Mensural_ligature_engraver
-		}
-		line-width=4.5\cm
-            }
-     }
+      \context {
+        \Voice
+        \remove "Ligature_bracket_engraver"
+        \consists "Mensural_ligature_engraver"
+      }
+      line-width = 4.5\cm
+    }
+  }
 }
 
 %StaffGroup is used instead of ChoirStaff to get bar lines between systems
 \score {
   <<
-  \new StaffGroup = choirStaff <<
-    \new Voice =
-      "discantusNotes" << \global
-      \set Staff.instrumentName=\incipitDiscantus
-      \discantusNotes >>
-    \new Lyrics =
-      "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
+    \new StaffGroup = choirStaff <<
+      \new Voice = "discantusNotes" <<
+        \global
+        \set Staff.instrumentName = \incipitDiscantus
+        \discantusNotes
+      >>
+      \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
 
-    \new Voice =
-      "altusNotes" << \global
-      \set Staff.instrumentName=\incipitAltus
-      \altusNotes >>
-    \new Lyrics =
-      "altusLyrics" \lyricsto altusNotes { \altusLyrics }
+      \new Voice = "altusNotes" <<
+        \global
+        \set Staff.instrumentName = \incipitAltus
+        \altusNotes
+      >>
+      \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics }
 
-    \new Voice =
-      "tenorNotes" << \global
-      \set Staff.instrumentName=\incipitTenor
-      \tenorNotes >>
-    \new Lyrics =
-      "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
+      \new Voice = "tenorNotes" <<
+        \global
+        \set Staff.instrumentName = \incipitTenor
+        \tenorNotes
+      >>
+      \new Lyrics = "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
 
-    \new Voice =
-      "bassusNotes" << \global
-      \set Staff.instrumentName=\incipitBassus
-      \bassusNotes >>
+      \new Voice = "bassusNotes" <<
+        \global
+        \set Staff.instrumentName = \incipitBassus
+        \bassusNotes
       >>
-    \new Lyrics =
-      "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
+    >>
+    \new Lyrics = "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
     %Keep the bass lyrics outside of the staff group to avoid bar lines
     %between the lyrics.
   >>
@@ -264,21 +266,23 @@ incipitBassus = \markup{
   \layout {
     \context {
       \Score
-
       % no bars in staves
       \override BarLine #'transparent = ##t
     }
-    % the next three instructions keep the lyrics between the barlines
-	\context { \Lyrics
-	   \consists "Bar_engraver"
-	   \override BarLine #'transparent = ##t }
-	\context { \StaffGroup \consists "Separating_line_group_engraver" }
+    % the next three instructions keep the lyrics between the bar lines
+    \context {
+      \Lyrics
+      \consists "Bar_engraver"
+      \override BarLine #'transparent = ##t
+    }
+    \context {
+      \StaffGroup
+      \consists "Separating_line_group_engraver"
+    }
     \context {
       \Voice
-
       % no slurs
       \override Slur #'transparent = ##t
-
       % Comment in the below "\remove" command to allow line
       % breaking also at those barlines where a note overlaps
       % into the next bar.  The command is commented out in this
@@ -287,7 +291,7 @@ incipitBassus = \markup{
       % overall spacing if you comment in the following command.
       %\remove "Forbid_line_break_engraver"
     }
-    	indent=5\cm
+    indent = 5\cm
   }
 }