--- /dev/null
+%% 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
+ >>
+ }
+}