"
doctitle = "Center text below hairpin dynamics"
} % begin verbatim
+
hairpinWithCenteredText = #(define-music-function (parser location text) (markup?)
#{
\override Voice.Hairpin #'stencil = #(lambda (grob)
#})
hairpinMolto = \hairpinWithCenteredText \markup { \italic molto }
-hairpinMore = \hairpinWithCenteredText \markup { \bigger moltissimo }
+hairpinMore = \hairpinWithCenteredText \markup { \larger moltissimo }
\layout { ragged-right = ##f }