Hi Sunzunki,

There's also another snippet that could be helpful:
http://lsr.di.unimi.it/LSR/Item?id=554
So, how about:

\version "2.18.2"
% \version "2.19.30"

\relative {
  \override Staff.TimeSignature.stencil = #(lambda (grob)
    (grob-interpret-markup grob #{
      \markup\override #'(baseline-skip . 0.5) {
          \column { \number 2 \tiny\note #"4." #-1 }
          \vcenter "="
          \column { \number 6 \tiny\note #"8" #-1 }
          \vcenter "="
          \column\number { 6 8 }
        }
      #}))
  \time 6/8
  \key d\minor
  d''8 a bes
}

Cheers,
Pierre

2015-10-29 10:18 GMT+01:00 Jacques Menu <imj-muz...@bluewin.ch>:

> Hello Sunzunki,
>
> From someone’s contribution on this list:
>
>
>
> \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
> }
>
>
> #(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)
>                                ;; here 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
> }
>
>
> > Le 29 oct. 2015 à 04:20, sunzunki <sunzu...@gmail.com> a écrit :
> >
> > Hello LilyPonders,
> >
> > I'm making music text for school with Lilypond and Libreoffice
> (OOoLilipond)
> >
> > could you any solution about time signature?
> > I want to change the denominator of time signature, number to note.
> > I saw below page and it was worked.
> >
> >
> http://lilypond.1069038.n5.nabble.com/Time-signature-style-with-note-in-the-denominator-td172947.html#a172955
> >
> > Now, I want to put dotted note as denominator.
> > for example, the explain about compound time,
> > there are 2 dotted crotchets in a bar
> > = 2/dotted crotchet note      <--
> > = 6 quavers
> > = 6/quaver note      <-- solved through above address
> > =6/8
> >
> > Is any solution?
> > I want to these lines like as math formula. A = B = C and so on.
> >
> > sunzunki
> >
> >
> >
> > --
> > View this message in context:
> http://lilypond.1069038.n5.nabble.com/time-signature-with-DOTTED-note-in-the-denominator-tp182879.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
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to