Re: Scheme : récupérer des valeurs de pro priété

[Gilles THIBAULT]

 

Euh en fait j'ai fait une erreur dans la dernière ligne.

 

Oups.J'ai trouvé une autre erreur d'étourderie à la ligne où n est déclaré (n (ly:pitch-notename  p)) et non (n (ly:pitch-octave p)).

Du coups c'était un hasard si ça marchait avec do ...

Cette version devrait marcher avec toutes les notes.

 

 

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

ajouteundegre = #(define-music-function (parser location note)(ly:music?)
"augmente d'un degré une note en ajoutant 1 au pitch-notename"
(let*     
    (
      (result-chord (ly:music-deep-copy note))
      (result-note (car (ly:music-property result-chord 'elements)))
      (p (ly:music-property result-note 'pitch))
      (o (ly:pitch-octave p))
      (n (ly:pitch-notename  p))
      (a (ly:pitch-alteration p))
    )
    (set! p (ly:make-pitch o (+ 1 n) a))
    (set! (ly:music-property result-note 'pitch) p)
    result-chord
    )
 )
\score{
\ajouteundegre c'4
}
%%%%%%%%%%%%%%%%%

 

Bon j'arrête pour ce soir.

 

Gilles