[ << Notación antigua ]	[Top][Contents][Index]	[ Músicas del mundo >> ]
[ < Transcripción de canto gregoriano ]	[ Up: Tipografiado del canto kievano en notación cuadrada ]	[ Músicas del mundo > ]

---

17.4.11 Antigua y moderna desde la misma fuente

Uso de etiquetas para producir música mensural y moderna a partir del mismo código fuente

Usando etiquetas es posible producir las dos notaciones mensural y moderna a partir del mismo código fuente de la música. En este fragmento se introduce la función \menrest, que permite que los silencios mensurales estén a la altura de notas como en el original, pero con silencios modetnos en la posicion del pentagrama estándar.

También se pueden usar etiquetas allí donde se necesiten otras diferencias: por ejemplo usando “silencios de compás completo” (R1, R\breve, etc.) en música moderna, pero silencios normales (r1, r\breve, etc.) en la versión mensural. La conversión de música mensural a su equivalente moderno se conoce normalmente como transcription.

La llamara c4.\Be c8 c\Am es lo mismo que c4.[ c8 c]. Sin embargo, suprime las advertencias sin se inicia en una nota que no puede llevar barra pero la necesita en todo caso debido al uso del grabador Completion_heads_engraver.

[La longitud ligeramente acortada de la línea en la pauta mensural evita el recorte del glifo de los custos cuando LilyPond genera imágenes recortadas.]

menrest = #(define-music-function (note) (ly:music?)
              #{
                \tag #'mens $(make-music 'RestEvent note)
                \tag #'mod $(make-music 'RestEvent note 'pitch '())
              #})
Be = \tag #'mod
       #(begin
          (ly:expect-warning (G_ "stem does not fit in beam"))
          (ly:expect-warning (G_ "beam was started here"))
          (make-span-event 'BeamEvent START))
Am = \tag #'mod ]

MenStyle = {
  \override Score.BarNumber.transparent = ##t
  \override Stem.neutral-direction = #up
  \omit Slur
  \omit Beam
}

finalis = \section

Music = \relative c'' {
  \key f \major
  g1 d'2 \menrest bes4 bes a2 \menrest r4 g4 fis4.
  fis8 fis4 fis g e f4.([ g8] a4[ g8 f]
    g2.\Be fis8 e\Am fis2) g\breve \finalis
}

MenLyr = \lyricmode {
  So farre, deere life, deare life,
  from thy bright beames ab- ſen- ted,
}
ModLyr = \lyricmode {
  So far, dear life, dear life,
  from your bright beams ab -- sen -- ted, __
}

\score {
  \keepWithTag #'mens {
    <<
      \new PetrucciStaff {
        \new PetrucciVoice = "Cantus" {
          \clef "petrucci-c1" \time 4/4 \MenStyle \Music
        }
      }
      \new Lyrics \lyricsto "Cantus" \MenLyr
    >>
  }
  \layout {
    line-width = 155\mm

    \context {
      \PetrucciVoice
      % No longer necessary starting with version 2.25.23.
      \override Flag.style = #'mensural
    }
  }
}

\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 { \time 2/4 \autoBeamOff \Music }
      }
      \new Lyrics \lyricsto "Sop" \ModLyr
    >>
  }
  \layout {
    line-width = 157\mm
  }
}

\paper {
  ragged-last = ##t
}

\header { tagline = ##f }