Hi Gilberto,
Try :
\version "2.19.15"
#(define-public (format-time-sig-note grob)
(let* ((frac (ly:grob-property grob 'fraction))
(num (if (pair? frac) (car frac) 4))
(den (if (pair? frac) (cdr frac) 4))
(m
(markup #:override '(baseline-skip . 0.5)
#:center-column (#:number (number->string num)
#:override '(style . default)
;; her comes the flag:
#:override '(flag-style .
modern-straight-flag)
#:note (number->string den)
DOWN
(grob-interpret-markup grob m)))
%%%
\relative c' {
\override Staff.Flag.stencil = #modern-straight-flag
\override Staff.TimeSignature.stencil = #format-time-sig-note
\time 3/8
\autoBeamOff
c8 c8 c8
}
Cheers,
Pierre
2015-03-11 13:52 GMT+01:00 Gilberto Agostinho :
> Hello LilyPonders,
>
> Could someone please give me a hand? I want to use the following snippet
> (from: http://lsr.di.unimi.it/LSR/Item?id=642), but I'd like that the
> notes
> in the denominator to use the straight-modern-flag similarly to the notes
> of
> the score:
>
> \version "2.19.15"
>
> #(define-public (format-time-sig-note grob)
>(let* ((frac (ly:grob-property grob 'fraction))
> (num (if (pair? frac) (car frac) 4))
> (den (if (pair? frac) (cdr frac) 4))
> (m (markup #:override '(baseline-skip . 0.5)
> #:center-column (#:number (number->string num)
>#:override '(style .
> default)
>#:note (number->string den)
> DOWN
> (grob-interpret-markup grob m)))
>
> %%%
>
> \relative c' {
> \override Staff.Flag.stencil = #modern-straight-flag
> \override Staff.TimeSignature.stencil = #format-time-sig-note
> \time 3/8
> \autoBeamOff
> c8 c8 c8
> }
>
> This code above produces:
> <http://lilypond.1069038.n5.nabble.com/file/n172947/03.png>
>
> Any help is very much appreciated.
>
> Best,
> Gilberto
>
>
>
> --
> View this message in context:
> http://lilypond.1069038.n5.nabble.com/Time-signature-style-with-note-in-the-denominator-tp172947.html
> Sent from the User mailing list archive at Nabble.com.
>
> ___
> lilypond-user mailing list
> lilypond-user@gnu.org
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
