Hi everyone,
I just installed the latest build and when I ran the file I'm working
on, it came back with this error, which I think has to do with a macro
included near the top of the document.
[EMAIL PROTECTED]:~/Desktop$ tarantella
running tarantella file now...
GNU LilyPond 2.11.50
Processing `tarantella.ly'
Parsing...
Interpreting music...
/usr/local/lilypond/usr/share/lilypond/current/scm/lily-library.scm:135:5:
In procedure format-movement-markup in expression (process-procedure
book paper ...):
/usr/local/lilypond/usr/share/lilypond/current/scm/lily-library.scm:135:5:
Wrong number of arguments to #<procedure format-movement-markup (dur
count context)>
[end of error message]
And below is the macro, which was posted to this list a few months ago
and was working fine in 2.11.49. Can anyone see the problem? Thanks,
Jon
%%% the following function allows you to specify how the
%%% movement indication will be formatted
#(define-markup-command (mvt layout props arg) (markup?)
(interpret-markup layout props
(markup #:huge #:bold arg)))
#(define (string->duration strElt)
( let*((ptindex (string-index strElt #\. )) (ptnumber 0)
(val (string->number (if ptindex (substring strElt 0 ptindex)
strElt)))
(dur (ly:intlog2 val)))
(while ptindex (begin
(set! ptnumber (1+ ptnumber))
(set! ptindex (string-index strElt #\. (1+ ptindex)))))
(ly:make-duration dur ptnumber 1 1)))
movement = #(define-music-function (parser location text duration count
music)
(string? string? integer? ly:music?)
(define (format-movement-markup dur count context)
(make-line-markup
(list
(markup #:mvt text #:hspace 1)
(make-simple-markup "(")
(make-general-align-markup Y DOWN (make-smaller-markup
(make-note-by-number-markup (ly:duration-log dur)
(ly:duration-dot-count dur)
1)))
(make-simple-markup "=")
(make-simple-markup (number->string count))
(make-simple-markup ")"))))
(make-music 'SequentialMusic 'elements
(list (make-music 'ContextSpeccedMusic
'context-type 'Score 'element
(make-music 'PropertySet
'value format-movement-markup
'symbol 'metronomeMarkFormatter))
(make-music 'ContextSpeccedMusic
'context-type 'Score 'element
(make-music 'SequentialMusic 'elements
(list (make-music 'PropertySet
'value (ly:duration-length (string->duration
duration))
'symbol 'tempoWholesPerMinute)
(make-music 'PropertySet
'value (string->duration duration)
'symbol 'tempoUnitDuration)
(make-music 'PropertySet
'value count
'symbol 'tempoUnitCount))))
music
(make-music 'ContextSpeccedMusic
'context-type 'Score 'element
(make-music 'PropertySet
'value format-metronome-markup
'symbol 'metronomeMarkFormatter)))))
--
Jonathan Kulp
http://www.jonathankulp.com
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
