Je ne suis pas un spécialiste de ce type de notation.
Une solution possible (à adapter très probablement) :
%%%
\version "2.18.2"
doubleStemNotehead =
\markup
\override #'(filled . #t)
\path #0.05
#'((moveto 0 0) (lineto .25 .5) (lineto .5 0) (lineto .25 -.5) (closepath)
(moveto .25 .5) (lineto .25 3.5) (closepath)
(moveto .25 .5) (lineto .25 -3.5) (closepath))
\relative c''
\new MensuralVoice {
\time 9/4
g4 b
\override NoteHead.stencil = #(lambda (grob)(grob-interpret-markup grob doubleStemNotehead))
\override Stem.stencil = ##f
g a b c a d
\revert NoteHead.stencil
\revert Stem.stencil
g, b
}
%%%