Re: pitch-semitone et notation absolute

[Gilles THIBAULT]

> makeTab = #(define-music-function (parser location mus) (ly:music?)
> [...]
> #(display (makeTab music))

Telle que définie, makeTab est une fonction Lilypond et non schème : il faut l' 
appeler par \makeTab \music

%%%%%%%%%%%%%%%%
#(define (parse-music mus-elt)
  (let 
    ((semi-tone (ly:pitch-semitones (ly:music-property mus-elt 'pitch)))
     (articulations (ly:music-property mus-elt 'articulations)))
    (for-each 
      (lambda (arti)
        (if (eq? (ly:music-property arti 'name) 'ArticulationEvent)
          (format #t "Articulation : ~a\n" 
                    (ly:music-property arti 'articulation-type)))
        (if (eq? (ly:music-property arti 'name) 'FingeringEvent)
          (format #t "Digit : ~a\n" 
                    (ly:music-property arti 'digit))))
       articulations)
     ;(display-scheme-music mus-elt)
     (format #t "Semitone : ~a\n-------------\n" semi-tone))
     mus-elt)


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

music = \relative c' { c d-> e f g c-1 e }
%music = { c' d' e' f' g' c'' e''}

 { \makeTab \music }

-- 
Gilles