[lilypond-es] La magia de Scheme

[Francisco Vila]

Copiad este código, procesadlo y contemplaréis el poder de Scheme
dentro de LilyPond.
Autor: David Kastrup. Visto en
http://lists.gnu.org/archive/html/lilypond-user/2012-02/msg00455.html

ritmo = { c16[ c32 c] }
melodia = { c'2 d' e'1 }

numero = #(ly:moment-main-numerator
           (ly:moment-div (ly:music-length melodia)
             (ly:music-length ritmo)))

\markup "Melodía"
{ \melodia  }

\markup "Ritmo"
{ \new RhythmicStaff \ritmo  }

\markup "Repetir el ritmo hasta completar la duración de la melodía"
\new StaffGroup <<
  \new Staff
    \melodia
  \new RhythmicStaff
    \repeat unfold \numero \ritmo
>>

%%%FIN

-- 
Francisco Vila. Badajoz (Spain)
www.paconet.org , www.csmbadajoz.com