Paul, I,ve came up with this, but it doesn't help. Is setting baseline-skip to
0 only way?
%%%% BEGIN %%%%
#(define
(customTimeSignature grob)
(let*
((sz
(ly:grob-property grob 'font-size 0.0))
(mult (magstep sz))
(fraction
(ly:grob-property grob 'fraction))
(num
(car fraction))
(denom
(cdr fraction)))
(grob-interpret-markup grob #{
\markup {
\translate #'(0 . 0.03) \override #'(font-name . "Times") \fontsize
#2.5 \override #'(baseline-skip . 2) \center-column {
\line {
#(number->string num)
}
\line {
#(number->string denom)
}
}
}
#})))
%%%% END %%%%
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
