Re: Time signature style with note in the denominator

[Pierre Perol-Schneider]

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 <address@hidden>:

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
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user