Ecriture particulière de contrepoint

Bonjour,
Je ne parviens pas à comprendre de quelle manière écrire l'extrait joint, si cela est possible.
Je vous remercie de votre aide.
|

···
  • |

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

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

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