Thank you very much for your answer, this works very well. I'll be
studying the scheme tutorial so I don't have to bother you people with
basic things.
Regards,
Víctor.
El 10/06/15 a las 12:04, Nathan Ho escibió:
Hi Victor,
Here's one way to do it:
solfa =
#(define-music-function
(parser location framed number note)
(string? string? string?)
(make-music
'TextScriptEvent
'direction 1
'text
(markup
(if (not (equal? framed ""))
(markup #:box #:pad-to-box '(0 . 0) '(0 . 2.2) framed)
"")
#:simple number
(if (not (or (equal? number "") (equal? note "")))
(markup #:simple ":")
"")
#:italic note)))
\relative c' {
c1^\solfa "C" "I" "do"
c1^\solfa "" "I" "do"
c1^\solfa "C" "" "do"
c1^\solfa "C" "I" ""
}
Regards,
Nathan
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
