lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Music function ceases to function in 2.15.20


From: Nick Payne
Subject: Music function ceases to function in 2.15.20
Date: Sat, 26 Nov 2011 07:32:07 +1100
User-agent: Mozilla/5.0 (X11; Linux x86_64; rv:8.0) Gecko/20111110 Thunderbird/8.0

This music function for indicating barring in guitar scores worked fine in versions up to 2.15.19, but in 2.15.20, an attempt to use it gets an error. It was run through convert.ly for 2.15.20. Trying to build the example below gets the errors shown below the code.

%==============================================
\version "2.15.20"

barre = #(define-music-function (parser location fretnum dirn vdrop shorten adjBreak adjEnd)
    (string? number? number? pair? number? number?)
#{
    \once \override TextSpanner #'bound-details #'left #'text =
    \markup\small\bold { \concat {
        \postscript #(string-append
            "0.1 setlinewidth 0.7 -0.5 moveto 0 -"
            (number->string vdrop)
            " rlineto 0.5 0 rlineto stroke")
        $fretnum " "
    } }
    \once \override TextSpanner #'font-shape = #'upright
    \once \override TextSpanner #'direction = #dirn
    % set dashed line and draw a bracket edge on RHS
    \once \override TextSpanner #'dash-period = #1
    \once \override TextSpanner #'dash-fraction = #0.6
\once \override TextSpanner #'bound-details #'right #'text = \markup { \draw-line #(cons 0 (/ dirn -1)) }
    % set alignment of line with reference to left text
\once \override TextSpanner #'bound-details #'left #'stencil-align-dir-y = #CENTER
    % change X pos of LH and RH end as desired
\once \override TextSpanner #'bound-details #'left #'padding = #(car shorten) \once \override TextSpanner #'bound-details #'right #'padding = #(cdr shorten)
    % allow adjustment of line end when it wraps to following stave
\once \override TextSpanner #'bound-details #'right-broken #'padding = #adjEnd % adjust LH end of line when it wraps to following stave so that it doesn't
    % extend to the left of the notes on the stave
\once \override TextSpanner #'bound-details #'left-broken #'X = #adjBreak
    % override to remove text and bracket edge at line breaks
    \once \override TextSpanner #'bound-details #'left-broken #'text = ##f
    \once \override TextSpanner #'bound-details #'right-broken #'text = ##f
#})

\relative c' {
\barre "III" #UP #8 #'(-1.6 . -1) #5 #1 c4\startTextSpan c c c\stopTextSpan
}
%==============================================

Processing `/home/nick/lilypond/examples/test.ly'
Parsing...
<string>:13:111: error: wrong type for argument 1. Expecting pair of numbers, found right \once \override TextSpanner #(quote bound-details) #(quote right) #(quote text) = \markup { \draw-line
                                                                                
                               #(cons 0 (/ dirn -1)) }
/home/nick/lilypond/examples/test.ly:5:1: In procedure reverse! in expression (ly:parse-string-expression clone " \x09\\once \\override TextSpanner #(quote bound-details) #(quote left) #(quote text) =
\x09\\markup\\small\\bold { \\concat {
\x09\x09\\postscript #(string-append \"0.1 setlinewidth 0.7 -0.5 moveto 0 -\" (number->string vdrop) \" rlineto 0.5 0 rlineto stroke\")
\x09\x09$fretnum \" \"
\x09} }
\x09\\once \\override TextSpanner #(quote font-shape) = #(quote upright)
\x09\\once \\override TextSpanner #(quote direction) = #dirn
\x09% set dashed line and draw a bracket edge on RHS
\x09\\once \\override TextSpanner #(quote dash-period) = #1
\x09\\once \\override TextSpanner #(quote dash-fraction) = #0.6
%\x09\\once \\override TextSpanner #(quote thickness) = #0.8
\x09\\once \\override TextSpanner #(quote bound-details) #(quote right) #(quote text) = \\markup { \\draw-line #(cons 0 (/ dirn -1)) }
\x09% set alignment of line with reference to left text
\x09\\once \\override TextSpanner #(quote bound-details) #(quote left) #(quote stencil-align-dir-y) = #CENTER
\x09% change X pos of LH and RH end as desired
\x09\\once \\override TextSpanner #(quote bound-details) #(quote left) #(quote padding) = #(car shorten) \x09\\once \\override TextSpanner #(quote bound-details) #(quote right) #(quote padding) = #(cdr shorten)
\x09% allow adjustment of line end when it wraps to following stave
\x09\\once \\override TextSpanner #(quote bound-details) #(quote right-broken) #(quote padding) = #adjEnd \x09% adjust LH end of line when it wraps to following stave so that it doesn't
\x09% extend to the left of the notes on the stave
\x09\\once \\override TextSpanner #(quote bound-details) #(quote left-broken) #(quote X) = #adjBreak
\x09% override to remove text and bracket edge at line breaks
\x09\\once \\override TextSpanner #(quote bound-details) #(quote left-broken) #(quote text) = ##f \x09\\once \\override TextSpanner #(quote bound-details) #(quote right-broken) #(quote text) = ##f
"):
/home/nick/lilypond/examples/test.ly:5:1: Wrong type argument in position 1: (right . #f)
Processing time: 0 seconds




reply via email to

[Prev in Thread] Current Thread [Next in Thread]