|
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:
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 |
[Prev in Thread] | Current Thread | [Next in Thread] |