Re: rétrogradation

[Gilles THIBAULT]

Le lundi 26 janvier 2015, 14:19:18 Pierre Perol-Schneider a écrit :
> Joli !
> Merci Gilles.
> Pierre

Rah ! Pas si joli que ça, j'ai oublié de penser au cas où il y a des accords ! 
(Les accords n'ont pas de propriété 'articulations )
Ceci corrige cela ... :

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

#(define-public (retrograde-music music)
  "Returns @var{music} in retrograde (reversed) order."
  ;; Copied from LSR #105 and renamed.
  ;; Included here to allow this module to provide a complete set of
  ;; common formal operations on motives, i.e transposition,
  ;; inversion and retrograding.

(let* ((element (ly:music-property music 'element))
       (elements (ly:music-property music 'elements))
       (reversed (reverse elements))
       (artis (ly:music-property music 'articulations))
       (span-dir (ly:music-property music 'span-direction)))
  (if (ly:music? element) (ly:music-set-property! music 'element
                            (retrograde-music element)))
  (if (pair? elements)(ly:music-set-property! music 'elements 
                            (map retrograde-music reversed)))
  (if (pair? artis) (ly:music-set-property! music 'articulations 
                            (map retrograde-music artis)))
  (if (ly:dir? span-dir) (ly:music-set-property! music 
                                       'span-direction (- span-dir)))
  music))

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

-- 
Gilles