I made some progress, although I'm sure there better and more elegant
solution.
Example:
\version "2.19.52"
%Useful definitions
#(define characters.thinSpace (ly:wide-char->utf-8 #x2009))
#(define characters.longDash (ly:wide-char->utf-8 #x2013))
#(define characters.curvyEqual "≈")
%Properties of the customMark
#(define customMark.parenthesized #t)
#(define customMark.tempoEqText "= ca.")
#(define customMark.separator (string-append characters.thinSpace
characters.longDash characters.thinSpace))
#(define (ly:duration-or-false? obj)
(if (or (ly:duration? obj) (and (boolean? obj) (not obj)))
#t
#f))
#(define (number-or-false? obj)
(if (or (number? obj) (and (boolean? obj) (not obj)))
#t
#f))
customMark =
#(define-music-function
(text tempo dur val1 val2)
(markup? boolean? ly:duration-or-false? number-or-false?
number-or-false?)
#{
\mark \markup { \line { \upright { \fontsize #-2 {
\larger { \bold { #text } }
#(if tempo
#{
\markup \concat { %\markup needed to avoid "unknown escaped
string: `\concat'"
#(if customMark.parenthesized "(")
#(if dur
#{
\markup \fontsize #-3 { \general-align #Y #DOWN {
\note #(ly:duration->string dur) #1 } }
#}
"") %needed to avoid "not a markup" error when dur is
#f
" "
#customMark.tempoEqText
#characters.thinSpace
#(if val1
(number->string val1)
"") %needed to avoid "not a markup" error when val1 is
#f
#(if val2
(string-append customMark.separator (number->string
val2))
"") %needed to avoid "not a markup" error when val2 is
#f
#(if customMark.parenthesized ")")
}
#}
"") %needed to avoid "not a markup" error when tempo is #f
} } } }
#})
allegro = \customMark "Allegro." ##t 4 120 125
ceder = \customMark "ceder..." ##f ##f ##f ##f
metromark = \customMark "" ##t 4 120 ##f
\relative c' {
\allegro c4 d e \ceder f \metromark
}
Now, I can't figure out how to achieve that the last 4 parameters of the
function default to ##f, to avoid errors if I don't pass them.
Again, thanks in advance!
Stéfano
2016-12-16 4:17 GMT-03:00 Stefano Troncaro <[email protected]>:
> Hello everyone,
>
> I finally decided to start using Scheme functions. For learning purposes,
> I'm trying to write a function that will imitate the output from this
> snippet from the repository <http://lsr.di.unimi.it/LSR/Snippet?id=1008>.
>
> I achieved the look of the output but I can't seem to figure out how to
> make a function that accepts different types of parameters. Example:
>
> \version "2.19.52"
>
> %Properties of the customMark
> #(define characters.thinSpace (ly:wide-char->utf-8 #x2009))
> #(define customMark.parenthesized #t)
> #(define customMark.tempoEqText "= ca.")
>
> textandnotemark =
> #(define-music-function
> (text dur val)
> (markup? ly:duration? number?)
> #{
> \mark \markup { \line { \upright { \fontsize #-2 {
> \larger { \bold { #text } }
> \concat {
> #(if customMark.parenthesized "(")
> \fontsize #-3 { \general-align #Y #DOWN { \note
> #(ly:duration->string dur) #1 } }
> " "
> #customMark.tempoEqText
> #characters.thinSpace
> #(number->string val)
> #(if customMark.parenthesized ")")
> }
> } } } }
> #})
>
> allegro = \textandnotemark "Allegro." 4 120
> %ceder = \textandnotemark "ceder..."
> metromark = \textandnotemark "" 4 120
>
> \relative c' {
> \allegro c4 d e f \metromark
> }
>
> The line that is commented near the end of the example represents the
> behavior that I'd like to achieve, that is, the case where there is only
> text. I thought it would be easy to do it by setting defaults, leaving the
> duration and value parameters blank, and managing the special case, but I
> can't figure out how to make it work.
>
> Thanks in advance for your time!
> Stéfano.
>
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
