[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: pitch-semitone et notation absolute
From: |
Gilles THIBAULT |
Subject: |
Re: pitch-semitone et notation absolute |
Date: |
Mon, 13 Apr 2015 23:39:29 +0200 |
User-agent: |
KMail/4.12.5 (Linux/3.14.32-desktop-1.mga4; KDE/4.12.5; x86_64; ; ) |
> 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