|
From: | Jay Vara |
Subject: | Re: Programming question |
Date: | Tue, 25 Nov 2014 14:49:15 +0000 |
noteNameToLyric =
#(define-void-function (parser location lst) (list?)
(let* ((str (t lst))
(str (string-append "{ " str "}")))
(display str) (newline)
(ly:parser-include-string
parser
(string-append " \\new Lyrics \\lyricsto \"jun\" " str))))
music = \relative c' { c4 d e f g a b c }
\new Staff
<<
\new Voice = "jun" \music
\noteNameToLyric \extractPitches \music
>>
[Prev in Thread] | Current Thread | [Next in Thread] |