Re: Ecriture particulière de contrepoint

[Gilles THIBAULT]

 

 

Bonjour,

Je ne parviens pas à comprendre de quelle manière écrire l'extrait joint, si cela est possible.

Je vous remercie de votre aide.

 

 

Je n'avais jamais vu ça mais c'est pas stupide pour la lisibilité de la voie 2.

 

On peut peut-être obtenir des queues de notes à l'envers de la manière suivante :

 

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

#(define (my-stencil grob)
(let*
    ((original-stencil (ly:stem::print grob))
     (ext-y (ly:stencil-extent original-stencil Y))
     (delta-y (- (cdr ext-y) (car ext-y))))
(ly:stencil-translate
    (ly:stencil-rotate original-stencil 180 -1 1 ); -1 1 = en haut à gauche
    (cons 0.12  (- 0.12 delta-y delta-y )))))% 0.12 c'est du bidouillage ...
   

 

music = \relative {
    \time 6/8
    \stemUp
    \override Voice.Stem #'length = #9 % Je ne me rappelle plus
                      % l'instruction pour mettre une valeur minimale
                      % et non pas une valeur fixe ...
    \override Voice.Stem #'stencil = #my-stencil
    g'4 fis8 g4 a8
    b4 c8 d4.
}

 

\new Voice \music

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

 

j'ai essayé de l'appliquer au célèbre choral de Bach mais Lilypond râle beaucoup. Pas sûr non plus que ce soit très lisible quand même (mais il y a beaucoup de chose à améliorer).

 

 

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

#(define (my-stencil grob)
(let*
    ((original-stencil (ly:stem::print grob))
     (ext-y (ly:stencil-extent original-stencil Y))
     (delta-y (- (cdr ext-y) (car ext-y))))
(ly:stencil-translate
    (ly:stencil-rotate original-stencil 180 -1 1 ); -1 1 = en haut à gauche
    (cons 0.12  (- 0.12 delta-y delta-y ))))); 0.12 c'est du bidouillage ...
   
musicOne = \relative {
    \voiceOne
    \stemUp
    r8 g' a b d c c e d
    d g fis
}

 

musicTwo = \relative {
    \voiceTwo
    \stemUp
    \override Voice.Stem #'length = #9 % Je ne me rappelle plus
                      % l'instruction pour mettre une valeur minimale ...
    \override Voice.Stem #'stencil = #my-stencil
    s4. g'4 fis8 g4 a8
    b4 a8
}

 

musicThree = \relative \scaleDurations #'(3 . 2) {

    \voiceThree
    \stemDown
    b4\rest d e
    g
}

 

\score {

 

  \new Staff {
    \time 9/8
    <<
        \new Voice \musicOne
        \new Voice \musicTwo
        \new Voice \musicThree
    >>
 
  }
}

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

 

Gilles