Re: rétrogradation

[Christophe Pochon]

Je crois qu'en fait Ali voudrait récupérer les notes générées par la fonction \retrograde, au format lilypond. Il me semble qu'on peut faire ça, mais je ne sais plus comment. Et ça me serait utile aussi. Par exemple quand je transpose une partition avec \transpose, j'aimerais bien avoir un nouveau fichier .ly avec les notes transposées. Plus facile pour faire des modifications par la suite.

Christophe

Christophe Pochon
http://www.christophe-pochon.com

Le 22 janvier 2015 07:56, Pierre Perol-Schneider <address@hidden> a écrit :

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

 

 

_______________________________________________
liste de diffusion lilypond-user-fr
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user-fr