Subject: Ecriture particulière de contrepoint

From: Viviane Sourdine <[email-masked]>
Date: Sun, 25 Oct 2009 18:35:20 +0000 (GMT)

Bonjour,Je ne parviens pas à comprendre de quelle manière écrire l'extrait joint, si cela est possible.Je vous remercie de votre aide.PS: J'espère avoir envoyé mon message correctement

---

From: "Gilles THIBAULT" <[email-masked]>
Date: Mon, 26 Oct 2009 01:59:00 +0100

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

---

From: Bernard Meylan <[email-masked]>
Date: Mon, 26 Oct 2009 02:38:32 +0100

Le dimanche, 25 octobre 2009 19.35:20 Viviane Sourdine, vous avez écrit :
> Bonjour,Je ne parviens pas à comprendre de quelle manière écrire l'extrait
> joint, si cela est possible.

Je pense qu'il faudrait écrire les notes de manière standard (à l'endroit) en leur 
appliquant un décalage vers la droite pour qu'elles soient lisibles; mais LilyPond le fait 
sans problème, non?

Bernard