Re: Scheme function

[Víctor]

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