[prev in list] [next in list] [prev in thread] [next in thread]
List: lilypond-user
Subject: Re: bis
From: David Nalesnik <david.nalesnik () gmail ! com>
Date: 2016-07-26 15:53:30
Message-ID: CANn-nXnn5c_4SXFWAP+OBNxdpyKbTXY7rpkN=td=mjJ24HRs7w () mail ! gmail ! com
[Download RAW message or body]
On Mon, Jul 25, 2016 at 7:56 AM, David Nalesnik
<david.nalesnik@gmail.com> wrote:
> Another solution is available on the LSR:
> http://lsr.di.unimi.it/LSR/Snippet?id=954.
>
> Add this function:
>
> textedMeasureBracket =
> #(define-music-function
> (parser location str mus)
> (markup? ly:music?)
> #{
> \override Staff.MeasureCounter.stencil =
> #(lambda (grob) (test-stencil grob str))
> \startMeasureCount
> #mus
> \stopMeasureCount
> #}
> )
>
> Use it like this:
>
> twice = \markup { \italic "bis" }
>
> {
> \textedMeasureBracket \twice { g'1 g'1 }
> }
>
An improvement is attached.
It's written for more current development versions (> 2.19.26), but
there are two line switches you can do if you're running an older
version of LilyPond. (See code comments in
measure-attached-spanner::print.)
The advantage of using a later version is that you can vary the line
style of the bracket.
Best,
David
P. S. : Technical note: the break-aligned stuff in the print function
is not necessary at the moment, but is included because the goal is to
allow the bracket edges to have variable alignment with prefatory
material. Right now, we just align to the end of the prefatory
material on the left and the beginning of any end material on the
right.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
["measure-spanner-improved.ly" (text/lilypond-source)]
\version "2.19.30"
% repeatBracket snippet
% will add .----Nx----. above a bar, where N is the number of repetitions
% based on the wonderful spanner by David Nalesnik (see: \
http://lists.gnu.org/archive/html/lilypond-user/2014-10/msg00446.html )
#(define (measure-attached-spanner::print grob text)
(let* ((refp (ly:grob-system grob))
(left-bound (ly:spanner-bound grob LEFT))
(right-bound (ly:spanner-bound grob RIGHT))
(elts-L (ly:grob-array->list (ly:grob-object left-bound 'elements)))
(elts-R (ly:grob-array->list (ly:grob-object right-bound 'elements)))
(break-alignment-L
(filter
(lambda (elt) (grob::has-interface elt 'break-alignment-interface))
elts-L))
(break-alignment-R
(filter
(lambda (elt) (grob::has-interface elt 'break-alignment-interface))
elts-R))
(break-alignment-L-ext (ly:grob-extent (car break-alignment-L) refp X))
(break-alignment-R-ext (ly:grob-extent (car break-alignment-R) refp X))
(bracket-ref-L (cdr break-alignment-L-ext))
(bracket-ref-R (car break-alignment-R-ext))
(bracket-full-length (- bracket-ref-R bracket-ref-L))
(num (markup text))
(orig (ly:grob-original grob))
(siblings (ly:spanner-broken-into orig)) ; have we been split?
(num (if (or (null? siblings) (eq? grob (car siblings)))
num
(make-parenthesize-markup num)))
(num (grob-interpret-markup grob num))
(num-stil-ext-X (ly:stencil-extent num X))
(num (ly:stencil-aligned-to num X CENTER))
(num (ly:stencil-translate-axis num
(* 0.5 bracket-full-length) X))
(num-width (interval-length num-stil-ext-X))
(num-stil-ext-Y (ly:stencil-extent num Y))
(num-midpoint (* 0.5 (interval-length num-stil-ext-Y)))
;; space between number and bracket
(num-padding 0.4)
;; adjoining brackets
(edge-padding 0.5)
(bracket-piece-R
(- (* 0.5 (- bracket-full-length num-width))
num-padding))
;; left bracket line
;; For older versions uncomment the following and
;; comment definition of bracket-stil below it
;(bracket-stil
;(make-line-stencil 0.1
; edge-padding num-midpoint
;bracket-piece-R num-midpoint))
(bracket-stil
(ly:line-interface::line grob
edge-padding num-midpoint
bracket-piece-R num-midpoint))
;; add right bracket line
(bracket-stil (ly:stencil-combine-at-edge bracket-stil
X RIGHT bracket-stil (+ num-width (* 2 num-padding))))
;; add number
(bracket-stil (ly:stencil-add bracket-stil num))
;; For older versions uncomment the following line and
;; comment the definition of protrusion following it:
;(protrusion (make-line-stencil 0.1 0 num-midpoint 0 0))
(protrusion (ly:line-interface::line grob 0 num-midpoint 0 0))
;; add left protrusion
(bracket-stil
(if (or (null? siblings) (eq? grob (car siblings)))
(ly:stencil-combine-at-edge bracket-stil X LEFT protrusion 0.0)
bracket-stil))
;; add right protrusion
(bracket-stil
(if (or (null? siblings) (eq? grob (last siblings)))
(ly:stencil-combine-at-edge bracket-stil X RIGHT protrusion 0.0)
bracket-stil))
(grob-X (ly:grob-relative-coordinate grob refp X))
(bracket-stil
(ly:stencil-translate-axis bracket-stil
(- bracket-ref-L grob-X) X)))
bracket-stil))
#(define-public (Measure_attached_spanner_engraver context)
(let ((span '())
(finished '())
(event-start '())
(event-stop '()))
(make-engraver
(listeners ((measure-counter-event engraver event)
(if (= START (ly:event-property event 'span-direction))
(set! event-start event)
(set! event-stop event))))
((process-music trans)
(if (ly:stream-event? event-stop)
(if (null? span)
(ly:warning "You're trying to end a measure-attached spanner but you \
haven't started one.") (begin
(set! finished span)
(ly:engraver-announce-end-grob trans finished event-start)
(set! span '())
(set! event-stop '()))))
(if (ly:stream-event? event-start)
(begin
(set! span (ly:engraver-make-grob trans 'MeasureCounter event-start))
(set! event-start '())))
(if (and (ly:spanner? span)
(null? (ly:spanner-bound span LEFT))
(moment<=? (ly:context-property context 'measurePosition) \
ZERO-MOMENT)) (ly:spanner-set-bound! span LEFT
(ly:context-property context 'currentCommandColumn)))
(if (and (ly:spanner? finished)
(moment<=? (ly:context-property context 'measurePosition) \
ZERO-MOMENT)) (begin
(if (null? (ly:spanner-bound finished RIGHT))
(ly:spanner-set-bound! finished RIGHT
(ly:context-property context 'currentCommandColumn)))
(set! finished '()))))
((finalize trans)
(if (ly:spanner? span)
(begin
(ly:warning "unfinished measure-attached spanner")
(ly:grob-suicide! span)
(set! span '())))))))
% necessary layout options
% note that you can have more than one single layout block (some of them may even be \
outside and some inside \score) \layout {
\context {
\Staff
\consists #Measure_attached_spanner_engraver
\override MeasureCounter.font-encoding = #'latin1
\override MeasureCounter.font-size = 0
\override MeasureCounter.outside-staff-padding = 2
\override MeasureCounter.outside-staff-horizontal-padding = #0
}
}
% function itself
repeatBracket =
#(define-music-function
(parser location N note)
(number? ly:music?)
#{
\override Staff.MeasureCounter.stencil =
#(lambda (grob)
(measure-attached-spanner::print grob #{ #(string-append(number->string N) \
"×") #} )) \startMeasureCount
\repeat volta #N { $note }
\stopMeasureCount
#}
)
textedMeasureBracket =
#(define-music-function
(parser location str mus)
(markup? ly:music?)
#{
\override Staff.MeasureCounter.stencil =
#(lambda (grob) (measure-attached-spanner::print grob str))
\startMeasureCount
#mus
\stopMeasureCount
#}
)
%%%%%%%%%%%%%%%%%%%%%% EXAMPLE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
twice = \markup \pad-x #2 { \italic "bis" }
{
\time 3/4
c''-> g'-> e'->
c'8 b16 a g8 g c'4
\once \override Staff.MeasureCounter.outside-staff-padding = 0.4
%\once \override Staff.MeasureCounter.style = #'dashed-line
\textedMeasureBracket \twice {
g'16 c'' e'' c'' g' c'' e'' c'' c''8 b'
b'16 d'' f'' d'' g' g'' f'' d'' c'' b' a' g'
}
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic