Ecriture particulière de contrepoint

3 messages Options
Embed this post
Permalink
Viviane Sourdine

Ecriture particulière de contrepoint

Reply Threaded More More options
Print post
Permalink
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



_______________________________________________
liste de diffusion lilypond-user-fr
[hidden email]
http://lists.gnu.org/mailman/listinfo/lilypond-user-fr

Transcript.jpg (51K) Download Attachment
Gilles THIBAULT

Re: Ecriture particulière de contrepoint

Reply Threaded More More options
Print post
Permalink
Some javascript/style in this post has been disabled (why?)
 

 
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

_______________________________________________
liste de diffusion lilypond-user-fr
[hidden email]
http://lists.gnu.org/mailman/listinfo/lilypond-user-fr
bameylan

Re: Ecriture particulière de contrepoint

Reply Threaded More More options
Print post
Permalink
In reply to this post by Viviane Sourdine
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



_______________________________________________
liste de diffusion lilypond-user-fr
[hidden email]
http://lists.gnu.org/mailman/listinfo/lilypond-user-fr