Víctor <piratabonifa...@gmail.com> writes:
> 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)))
Well, this can be made less intimidating by judicious use of #{...#}
like you did in your proposed code.
(make-music 'TextScriptEvent 'direction 1 'text (markup x))
is the same as #{ ^\markup #x #} and (markup ... can usually be replaced
by some more familiar #{ \markup ... #} construct.
--
David Kastrup
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
