From: Phil Holmes <mail@philholmes.net>
Date: Wed, 20 May 2015 10:03:55 +0000 (+0100)
Subject: Adds snippet showing transcription of mensural music to modern
X-Git-Tag: release/2.19.21-1~4
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=54aa0c7c30cdfb1d2b8ff2fd0662f589df65d7da;p=lilypond.git

Adds snippet showing transcription of mensural music to modern
---

diff --git a/Documentation/notation/ancient.itely b/Documentation/notation/ancient.itely
index 69cd6c1974..1ab6d47867 100644
--- a/Documentation/notation/ancient.itely
+++ b/Documentation/notation/ancient.itely
@@ -2877,9 +2877,8 @@ spirLyr = \lyricmode {
 @node Ancient and modern from one source
 @unnumberedsubsubsec Ancient and modern from one source
 
-@c TODO Add text
-@c Here among others the snippets about reducing note length
-TBC
+@lilypondfile[verbatim,quote,ragged-right,texidoc,doctitle]
+{using-tags-to-produce-mensural-and-modern-music-from-the-same-source.ly}
 
 @c @seealso
 @c ... and reference to other sections ...
diff --git a/Documentation/snippets/ancient-notation.snippet-list b/Documentation/snippets/ancient-notation.snippet-list
index f75ad047d8..93be5c69db 100644
--- a/Documentation/snippets/ancient-notation.snippet-list
+++ b/Documentation/snippets/ancient-notation.snippet-list
@@ -7,4 +7,5 @@ custodes.ly
 incipit.ly
 mensurstriche-layout-bar-lines-between-the-staves.ly
 rest-styles.ly
+using-tags-to-produce-mensural-and-modern-music-from-the-same-source.ly
 vertical-line-as-a-baroque-articulation-mark.ly
diff --git a/Documentation/snippets/using-tags-to-produce-mensural-and-modern-music-from-the-same-source.ly b/Documentation/snippets/using-tags-to-produce-mensural-and-modern-music-from-the-same-source.ly
new file mode 100644
index 0000000000..0d11f92cf9
--- /dev/null
+++ b/Documentation/snippets/using-tags-to-produce-mensural-and-modern-music-from-the-same-source.ly
@@ -0,0 +1,90 @@
+%% DO NOT EDIT this file manually; it is automatically
+%% generated from LSR http://lsr.di.unimi.it
+%% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
+%% and then run scripts/auxiliar/makelsr.py
+%%
+%% This file is in the public domain.
+\version "2.18.0"
+
+\header {
+  lsrtags = "ancient-notation, vocal-music"
+
+  texidoc = "
+By using tags, it's possible to use the same music to produce both
+mensural and modern music.  In this snippet, a function @code{menrest}
+is introduced, allowing mensural rests to be pitched as in the
+original, but with modern rests in the standard staff position.  Tags
+are used to produce different types of bar line at the end of the
+music, but tags can also be used where other differences are needed:
+for example using @qq{whole measure rests} (R1, R\\breve etc.) in
+modern music, but normal rests (r1, r\\breve, etc.) in the mensural
+version.  Note that converting mensural music to its modern equivalent
+is usually referred to as @code{transcription}.
+
+"
+  doctitle = "Using tags to produce mensural and modern music from the same source"
+} % begin verbatim
+
+menrest = #(define-music-function (parser location note)
+  (ly:music?)
+#{
+    \tag #'mens $(make-music 'RestEvent note)
+    \tag #'mod $(make-music 'RestEvent note 'pitch '())
+#})
+
+MensStyle = {
+  \autoBeamOff
+  \override NoteHead #'style = #'petrucci
+  \override Score.BarNumber #'transparent = ##t
+  \override Stem.neutral-direction = #up
+}
+
+finalis = {
+  \once \override BreathingSign.stencil = #ly:breathing-sign::finalis
+  \once \override BreathingSign.Y-offset = #0
+  \once \override BreathingSign.minimum-X-extent = #'(-1.0 . 0.0)
+  \once \override BreathingSign.minimum-Y-extent = #'(-2.5 . 2.5)
+
+  \breathe
+}
+
+Music = \relative c'' {
+  \set Score.tempoHideNote = ##t
+  \key f \major
+  \time 4/4
+  g1 d'2 \menrest bes4 bes2 a2 r4 g4 fis2. \tag #'mens { \finalis } \tag #'mod { \bar "||" }
+}
+
+MenLyr = \lyricmode { So farre, deere life, deare life }
+ModLyr = \lyricmode { So far, dear life, dear life }
+
+\score {
+  \keepWithTag #'mens {
+    <<
+      \new MensuralStaff
+      {
+        \new MensuralVoice = Cantus \clef "mensural-c1" \MensStyle \Music
+      }
+      \new Lyrics \lyricsto Cantus \MenLyr
+    >>
+  }
+}
+
+\score {
+  \keepWithTag #'mod {
+    \new ChoirStaff <<
+      \new Staff
+      {
+        \new Voice = Sop \with {
+          \remove "Note_heads_engraver"
+          \consists "Completion_heads_engraver"
+          \remove "Rest_engraver"
+          \consists "Completion_rest_engraver" }
+        {
+          \shiftDurations #1 #0 { \autoBeamOff \Music }
+        }
+      }
+      \new Lyrics \lyricsto Sop \ModLyr
+    >>
+  }
+}
diff --git a/Documentation/snippets/vocal-music.snippet-list b/Documentation/snippets/vocal-music.snippet-list
index b62574ffc0..2a8cf23755 100644
--- a/Documentation/snippets/vocal-music.snippet-list
+++ b/Documentation/snippets/vocal-music.snippet-list
@@ -26,6 +26,7 @@ single-staff-template-with-notes-and-lyrics.ly
 skips-in-lyric-mode-2.ly
 skips-in-lyric-mode.ly
 using-arpeggiobracket-to-make-divisi-more-visible.ly
+using-tags-to-produce-mensural-and-modern-music-from-the-same-source.ly
 vertically-aligning-ossias-and-lyrics.ly
 vertically-centered-common-lyrics.ly
 vocal-ensemble-template-with-automatic-piano-reduction.ly