2014-07-02 4:37 GMT+02:00 Javier Ruiz-Alma <jav...@ruiz-alma.com>:
> The 2nd Hairpin.height value in \alterBroken seems to get ignored. Is this
> a limitation, or my bad syntax?
> I'm dealing with a broken multi-bar hairpin. Not being able to adjust
> heights per segment results in either too-narrow first or too-wide second
> hairpin segment.
> \version "2.18.2"
> \paper { ragged-right = ##t indent = 0.0 }
> \relative c' {
> \alterBroken height #'( 1.5 0.3 ) Hairpin
> c\< c c c c c c c c c c c \break
> c c c c c c c c\!
> }
Hi Javier,
IMHO the untweaked output of your code is _exactly_ what I want to see
for a broken Hairpin.
Nevertheless, the reason alterBroken does not work here, seems to be
that during an override for Hairpin.height no broken Spanner is
recognized. See the output of this test-code:
\version "2.18.2"
\paper { ragged-right = ##t indent = 0.0 }
%% tests whether broken Hairpins are recognized during an 'height-override
test =
\override Hairpin.height =
#(lambda (grob)
(let* ((orig (ly:grob-original grob))
(siblings (ly:spanner-broken-into orig)))
(if (null? siblings)
(display "\n\tno broken spanner found"))
;; default value:
0.6666))
\relative c' {
\test
c1\< c c \break c c c\!
}
Overriding the 'after-line-breaking property will work, though.
(Too lazy to turn it into a music-function)
\version "2.18.2"
%% tweaks a broken Hairpin 'height
height-tweak =
\override Hairpin.after-line-breaking =
#(lambda (grob)
(let* ((orig (ly:grob-original grob))
(siblings (ly:spanner-broken-into orig)))
(if (>= (length siblings) 2)
(begin
(if (equal? grob (car siblings))
(ly:grob-set-property! grob 'height 1.5))
(if (equal? grob (cadr siblings))
(ly:grob-set-property! grob 'height 0.3))))))
\relative c' {
\height-tweak
c1\< c c \break
c c c\!
}
HTH,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
