-\version "2.14.0"
+\version "2.19.22"
\header {
(let* ((scmpitch (ly:make-pitch 0 pitch 0))
(music (make-music 'EventChord
'elements (list (make-music 'NoteEvent
- 'duration (ly:make-duration 2 0 1 1)
+ 'duration (ly:make-duration 2 0 1/1)
'pitch scmpitch))))
- (score (scorify-music music parser))
+ (score (scorify-music music))
(layout (ly:output-def-clone $defaultlayout))
(desc (markup #:large #:line ((ly:format "Score with a ~a"
- (note-name->lily-string scmpitch parser))))))
+ (note-name->lily-string scmpitch))))))
(ly:score-add-output-def! score layout)
- (add-text parser desc)
- (add-score parser score))
+ (add-text desc)
+ (add-score score))
(set! pitch (modulo (1+ pitch) 7)))))
oneNoteScore =
-#(define-music-function (parser location) ()
- (add-one-note-score parser)
- (make-music 'Music 'void #t))
+#(define-void-function () ()
+ (add-one-note-score (*parser*)))
%%%