lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: looking for a way to print inverval from 2 notes


From: address@hidden
Subject: Re: looking for a way to print inverval from 2 notes
Date: Thu, 17 Mar 2011 08:01:03 -0400

On Mar 17, 2011, at 5:55 AM, christophe 1710 wrote:

Hello all,

i'm working on the different modal structure from a score and i woud like to print the half or full ton from one not to the next one!

\version "2.12.3"
\include "italiano.ly"
\header { }
TimeKey = { \key do \minor \time 12/8}
mi' {
            \clef treble
              \override Score.BarLine #'stencil = ##f
            \override Stem #'transparent = ##t
\override Staff.TimeSignature #'stencil = ##f

            sib4 dob reb mib fab solb
            }
\score {
    \new Staff {
    \new voice = "Violon" { \One}
    }
\layout {}
}

\startGroup and \stopGroup could be a solution but how to write bellow in the middle of the bracket the interval "1/2T" or "1T"

Thanks for your help all

regard
chris
_______________________________________________
lilypond-user mailing list
address@hidden
http://lists.gnu.org/mailman/listinfo/lilypond-user

Analysis brackets currently do not allow for text.  You can do it, though, with a hack.

\layout {
\context {
\Voice \consists "Horizontal_bracket_engraver"
}}

#(define (foo txt height padding)
  (lambda (grob)
    (let* ((x-len (interval-length (ly:stencil-extent (ly:horizontal-bracket::print grob) X)))
          (dir (ly:grob-property grob 'direction))
          (text (grob-interpret-markup grob txt))
          (text-x (interval-length (ly:stencil-extent text X)))
          (text-y (interval-length (ly:stencil-extent text Y))))
    (ly:stencil-add
      (ly:stencil-translate text (cons (- (/ x-len 2) (/ text-x 2)) (* dir (+ (+ padding height) text-y))))
      (ly:stencil-add
        (make-line-stencil 0.1 0 0 (/ x-len 2) dir)
        (make-line-stencil 0.1 (/ x-len 2) dir x-len 0))))))

\relative c'' {
\once \override HorizontalBracket #'stencil = #(foo "T" 1 0.2)
c2\startGroup d\stopGroup
\once \override HorizontalBracket #'stencil = #(foo "1/2T" 1 0.2)
d2\startGroup ees\stopGroup
}

Cheers,
MS

reply via email to

[Prev in Thread] Current Thread [Next in Thread]