[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: enlarge vertical distance in time signature
From: |
Thomas Morley |
Subject: |
Re: enlarge vertical distance in time signature |
Date: |
Sun, 28 Oct 2012 23:49:15 +0100 |
2012/10/28 Stefan Thomas <address@hidden>:
> Dear Thomas,
> thanks for Your code!
> I think the code is not the best for my special aim.
> I just want to have a different time-signature style for a custom percussion
> staff with 6 instead of five lines.
> So, I just would like to change this special thing only in this staff. I
> would like to do this in the "with" block, if possible.
> The timesignatures itself are defined in a global variable.
>
> 2012/10/28 Thomas Morley <address@hidden>
>>
>> 2012/10/28 Stefan Thomas <address@hidden>:
>> > Dear community,
>> > I would like to know how to enlarge the vertical distance between
>> > enumerator
>> > and denominator of a time signature.
>> > I hope, this will be possible.
>> >
>> > _______________________________________________
>> > lilypond-user mailing list
>> > address@hidden
>> > https://lists.gnu.org/mailman/listinfo/lilypond-user
>> >
>>
>> Hi Stefan,
>>
>> try:
>>
>> \version "2.16.0"
>>
>> spreadTimeSignature =
>> #(define-music-function (parser location baselineSkip strg
>> music)(number? string? ly:music?)
>> (let* ((num (car (string-split strg #\/)))
>> (denom (cadr (string-split strg #\/))))
>> #{
>> \override Staff.TimeSignature #'stencil =
>> #(lambda (grob)
>> (grob-interpret-markup grob
>> #{
>> \markup %\fontsize #5
>> \vcenter
>> \override #`(baseline-skip . ,baselineSkip)
>> \column {
>> \number $num
>> \number $denom
>> }
>> #}))
>> $(make-music
>> 'TimeSignatureMusic
>> 'beat-structure '()
>> 'denominator (string->number denom)
>> 'numerator (string->number num))
>>
>> $music
>> #}))
>>
>> % ---------------- test
>>
>> \relative c' {
>> \spreadTimeSignature #8 "2/4"
>> c8 c c c
>>
>> \spreadTimeSignature #8 "3/4"
>> c16 c c c c c c c c4
>> }
>>
>>
>> Usage: \spreadTimeSignature #<baseline-skip> "<time>"
>>
>> Setting \time is integrated in the function.
>> There might arise a problem because of
>> 'beat-structure '()
>> If so, delete
>> $(make-music
>> 'TimeSignatureMusic
>> 'beat-structure '()
>> 'denominator (string->number denom)
>> 'numerator (string->number num))
>>
>> $music
>> and use default \time x/y after the function-call.
>>
>>
>> HTH,
>> Harm
>
>
How about:
\version "2.16.0"
widerTimeSignature =
#(define-music-function (parser location baseline-skip music)(number? ly:music?)
(let* ((num (number->string (ly:music-property music 'numerator)))
(denom (number->string (ly:music-property music 'denominator))))
#{
\override Staff.TimeSignature #'stencil =
#(lambda (grob)
(grob-interpret-markup grob
#{
\markup
\vcenter
\override #`(baseline-skip . ,baseline-skip)
\column {
\number $num
\number $denom
}
#}))
$music
#}))
% ---------------- test
global = {
\widerTimeSignature #3
\time 15/16
}
\new DrumStaff \with {
\override StaffSymbol #'line-count = #6
% \widerTimeSignature #3
% \time 15/16
}
{ \global \drummode { bd4 sn bd toml8 toml bd } }
With the possibility to place \widerTimeSignature in \global or in \with.
Using the latter there's need to write the TimeSignature after
\widerTimeSignature.
Cheers,
Harm
Re: enlarge vertical distance in time signature, David Kastrup, 2012/10/29
- Re: enlarge vertical distance in time signature, Thomas Morley, 2012/10/29
- Re: enlarge vertical distance in time signature, pabuhr, 2012/10/30
- Re: enlarge vertical distance in time signature, David Kastrup, 2012/10/30
- Re: enlarge vertical distance in time signature, pabuhr, 2012/10/30
- Re: enlarge vertical distance in time signature, David Kastrup, 2012/10/30