[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
semi-minimes blanches
From: |
Joël GAUVRIT |
Subject: |
semi-minimes blanches |
Date: |
Sat, 4 May 2019 12:14:10 +0200 |
User-agent: |
Mozilla/5.0 (Windows NT 10.0; WOW64; rv:60.0) Gecko/20100101 Thunderbird/60.6.1 |
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
- semi-minimes blanches,
Joël GAUVRIT <=