Re: semi-minimes blanches

[Pierre Perol-Schneider]

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 {
     \override NoteHead #'style = #'petrucci
   }
}
Cordialement,
Pierre

Le sam. 4 mai 2019 à 16:51, Joël GAUVRIT <address@hidden> a écrit :
>
> 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
>
>
> _______________________________________________
> liste de diffusion lilypond-user-fr
> address@hidden
> https://lists.gnu.org/mailman/listinfo/lilypond-user-fr