Oh, mais j'ai trouvé !
%%%%%%%
\version "2.19.20"
montitreps = #"
40 4 translate /r 25 def /r2 30 def /a 3.5 def
/c a r2 atan def /ch 1 string def
/Arial findfont
5 scalefont
setfont
/text (Texte sur un arc-de-cercle) def
/depar text stringwidth pop 90 mul 3.14 div
r div def 0 0 moveto depar rotate
text { ch 0 3 2 roll put
/l ch stringwidth pop def
/dec l r atan 2 div neg def
0 0 moveto dec rotate l neg 2 div r rmoveto
ch show dec rotate
} forall
"
montitre = \markup {
\with-dimensions #'(0 . 73) #'(0 . 35)
\postscript #montitreps
}
\header {
title = \montitre
}
\relative c'' {
c1
}
%%%%%%%