> 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

Reply via email to