Subject: semi-minimes blanches

From: Joël GAUVRIT <[email-masked]>
Date: Sat, 4 May 2019 12:14:10 +0200

Bonjour à toutes et à tous,

Un ami m'a donné son truc il y a quelques temps déjà  pour produire des 
semi-minimes blanches en notation blanche.

Je me demande s'il n'y aurait pas un moyen plus simple et plus élégant 
d'arriver au même résultat, comme une commande qui dirait : lorsque 
j'écris c4, dessine le avec une tête de c2 et un crochet de c8...

Voici son raccourci :

\version "2.18.2"
smCava = #(define-music-function (parser location notes1 notes2) 
(ly:music? ly:music?)
             #{
               \override NoteColumn.ignore-collision = ##t
               <<
                 {
                   \voiceOne
                   \temporary \override  NoteHead.style = #'mensural
                   \override  Stem.transparent = ##t
                   $notes1
                   \revert Stem.transparent
                 }

                 \new MensuralVoice{
                   \stemUp
                   \temporary \override  NoteHead.style = #'mensural
                   \override  NoteHead.transparent = ##t
                   \override Stem.extra-offset = #'(0.19 . 0)
                   \override Flag.extra-offset = #'(0.19 . 0)
                   $notes2
                   \revert NoteHead.transparent
                 }
                 \revert NoteHead.style
                 \revert Stem.extra-offset
                 \revert Flag.extra-offset
                 \revert NoteColumn.ignore-collision
               >>
             #})
%%%%%%%%%%%%%%%
\score {
   <<
     {
       \new MensuralStaff
       { \clef "mensural-c3"
         \relative c' {
           c1 d2 \smCava {c2*1/2 b } {c8*2 b }  c\breve
         }
       }
     }
   >>
   \layout {
     \override NoteHead #'style = #'petrucci
   }
}

Avec toute mon admiration et mon éternelle reconnaissance aux 
formidables contributeurs de cette liste de diffusion :-)

Joël Gauvrit

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Sat, 4 May 2019 17:51:55 +0200

Bonjour Joël,
Oui, il y a plus court :

\version "2.18.2"

\score {
   <<
     {
       \new MensuralStaff
       { \clef "mensural-c3"
         \relative c' {
           c1 d2 c2*1/2 b
           \override NoteHead.duration-log = #1
           c8*2 b
           \revert NoteHead.duration-log
           c\breve
         }
       }
     }
   \layout {
Cordialement,
Pierre

Le sam. 4 mai 2019 à 16:51, Joël GAUVRIT <[email-masked]> a écrit :
> _______________________________________________
> liste de diffusion lilypond-user-fr
> [email-masked]
> https://lists.gnu.org/mailman/listinfo/lilypond-user-fr