Très heureux de votre enthousiasme !!
Ci-dessous le même code avec quelques ajustements :
\version "2.18.2"
%% On définit deux nouvelles têtes de note
#(define (ly:note-head::my-note-heads grob)
(let ((duration (ly:grob-property grob 'duration-log)))
(case duration
((0) (grob-interpret-markup grob
#{
\markup
\scale #'(1 . 1.1)
\with-dimensions #'(-.55 . .55) #'(.5 . .5)
\concat {
\lower #.6
\override #'(thickness . 1.5)
\draw-line #'(0 . 1.2)
\hspace #-.1
\rotate #90 \musicglyph #"noteheads.s2laFunk"
\hspace #-.1
\lower #.6
\override #'(thickness . 1.5)
\draw-line #'(0 . 1.2)
}
#}))
((1) (grob-interpret-markup grob
#{
\markup
\scale #'(1.1 . 1.7)
\musicglyph #"noteheads.s2miFunk"
#}))
(else (ly:note-head::print grob)))))
%%%% Exemple %%%%%
\score {
\new Staff {
\clef "mensural-c4"
\tweak direction #DOWN
\tweak self-alignment-X #LEFT
\mark\markup\tiny "Kyrie secundus"
\cadenzaOn
%% on définit plusieurs voix pour aligner les carrées à volonté
<< { \once\override NoteColumn.force-hshift = #-1.5 a1 } \\ { b } >>
<< { g } \\ { a } >>
<< { g } \\ { a } >>
<< { \once\override NoteColumn.force-hshift = #1 d } \\ { a } >>
\bar "|"
<< { \once\override NoteColumn.force-hshift = #-1.52 f } \\ { g } \\ { \once\override NoteColumn.force-hshift = #.51 a } >>
\bar "|"
b a2 g f e d c1
%% on redéfinit le glyphe du point d'orgue
\once\override Script.stencil =
#(lambda (grob) (grob-interpret-markup grob
#{ \markup\concat { \hspace #-.8 \lower #2 \rotate #90 \musicglyph #"timesig.mensural64" } #}))
d_\fermata
\bar "||"
s
}
\layout {
indent =20
\context {
\Staff
instrumentName = \markup\column\fontsize #-1
{
Secundus \vspace #-.4 Chorus
}
%% on impose les nouvelles têtes de note à la portée
\override NoteHead.stencil = #ly:note-head::my-note-heads
}
\context {
\Score
\omit TimeSignature
\omit Stem
\override BarLine.bar-extent = #'(-2.5 . 2.5)
}
}
}