Re: rétrogradation

[Pierre Perol-Schneider]

Bonjour Ali,

Le 22 janvier 2015 00:06, ali <address@hidden> a écrit :

 

1 - Je souhaiterais utiliser la commande de rétrogradation suivante mais je
n'arrive pas à la gérer dans le contexte d'une partition pour piano...
quelqu'un me fournirait il un exemple ?

\version "2.18.2"

music = \relative c' { c8. ees16( fis8. a16 b8.) gis16 f8. d16 }

\new PianoStaff <<
  \new Staff {
    \music
    \retrograde \music
  }
  \new Staff {
    \music
    \retrograde \music
  }
>>

... Bon, c'est un peu de la provocation, mais j'avoue ne pas comprendre comment tu souhaites employer cette commande dans ce contexte.

 

2 - Je souhaiterais aussi transformer la rétrogradation donc : y a t'il
possibilité de récupérer le code généré ou une autre commande qui pourrai
m'en donner la possibilité ?

 Le code se trouve dans le fichier modal-transforms.scm :

(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* ((elements (ly:music-property music 'elements))
         (reversed (reverse elements))
         (element (ly:music-property music 'element))
         (span-dir (ly:music-property music 'span-direction)))

    (ly:music-set-property! music 'elements reversed)

    (if (ly:music? element)
        (ly:music-set-property!
         music 'element
         (retrograde-music element)))

    (if (ly:dir? span-dir)
        (ly:music-set-property! music 'span-direction (- span-dir)))

    (for-each retrograde-music reversed)

    music))

Cordialement,

Pierre