Re: time signature question

[Kieren MacMillan]

Hello again,

So I was able to work out the following function:

\version "2.15.29"

tsFunky =
  #(define-music-function
    (parser location numerNum denomNote)
    (string? string?)
    #{
      \once \override Staff.TimeSignature #'stencil = #ly:text-interface::print
      \once \override Staff.TimeSignature #'text =
        \markup \override #'(baseline-skip . 0.5) \center-column { \number 
#numerNum \note #denomNote #DOWN }
    #})

theMusic = {
  \tsFunky #"7" #"16." \time 21/32 R16.*7 |
}

\score { \theMusic }

It works resonably well… However, I would *LOVE* to be able to replace

    \tsFunky #"7" #"16." \time 21/32

with something more like

    \tsFunky s16.*7

and have the function figure out the correct measure length for me (in this 
case, 21 thirty-second notes), and then display the correct "number-over-note" 
time signature (in this case, a '7' over a dotted-sixteenth note). Is this 
possible?

Thanks,
Kieren.