semi-minimes blanches

[Joël GAUVRIT]

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