lilypond-user
[Top][All Lists]
Advanced

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

Error message using 2.11.50-1


From: Jonathan Kulp
Subject: Error message using 2.11.50-1
Date: Wed, 02 Jul 2008 21:17:36 -0500
User-agent: Thunderbird 2.0.0.14 (X11/20080505)

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.


address@hidden:~/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




reply via email to

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