> On Jul 16, 2015, at 3:16 PM, Karol Majewski <karo...@wp.pl> wrote:
>
> Paul, I,ve came up with this, but it doesn't help. Is setting baseline-skip
> to 0 only way?
There might be another way, but if so I’m out of ideas. The following takes
the ly:stencil-scale approach, and it doesn’t help here.
-Paul
#(define
(customTimeSignature grob)
(let*
((fraction (ly:grob-property grob 'fraction))
(num (car fraction))
(denom (cdr fraction))
(sz (ly:grob-property grob 'font-size 0.0))
(mult (magstep sz)))
(ly:stencil-scale
(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)
}
}
}
#})
mult mult)
))
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
