Re: scheme extract-named-music

[Gilles THIBAULT]

Le samedi 25 avril 2015, 13:40:53 Daniel Cartron a écrit :
> makeTab = #(define-music-function (parser location mus) (ly:music?)
>   (let ((notes (extract-named-music mus 'NoteEvent)))
>     (for-each parse-music notes)
>     mus
>   )
> )

extract-named-music accepte aussi une liste de symboles

%%%%%%%%%%%%%%
#(define (parse-music mus)
; traitement commun
(display "-----------\n")
(display-scheme-music mus)

; traitement particulier
(let((name (ly:music-property mus 'name)))
  (cond 
   ((eq? name 'NoteEvent)
    ; (....)
    )
     ((eq? name 'EventChord)
    ; (....)
    )
     ((eq? name 'GraceMusic)
    ; (....)
    ))  
))

makeTab = #(define-music-function (parser location mus) (ly:music?)
  (let ((notes (extract-named-music mus '(NoteEvent EventChord GraceMusic))))
    (for-each parse-music notes)
    mus
  )
)

music = \relative c' { <c e>4 d \grace dis8 e2 }

{ \makeTab \music }

%%%%%%%%%%%%%%%

-- 
Gilles