2015-12-30 15:10 GMT+01:00 Kieren MacMillan <kieren_macmil...@sympatico.ca>:
> Hi Harm,
>
>> %% or simpler:
>>
>> {
>> \once \override Staff.OttavaBracket.shorten-pair = #'(-10 . -10)
>> \set Staff.ottavation = #eightva
>> c''''1^"text changed, 'shorten-pair applied"
>> }
>
> Hmmm… That doesn’t seem to actually change the text for me (see snippet,
> below); it appears to revert to the original “8va” [with ‘va’ on the
> baseline]. Did I misunderstand your suggestion?
Yep
>
> Thanks,
> Kieren.
>
> %%%% SNIPPET BEGINS
> \version "2.19.32"
>
> #(define eightva
> #{
> \markup
> %% messing around with \with-dimensions, because OttavaBracket has no
> %% possibility to set details.stencil-align-dir-y
> %% :((
> \with-dimensions #'(0 . 4) #'(0 . 2.8)
> \italic \concat { "8" \raise #0.5 { \hspace #0.25 "va" } \hspace #0.5 }
> #})
>
> ottavaBracketNewText =
> %% Not sure why a direct 'text-override does not work
> \override Staff.OttavaBracket.after-line-breaking =
> #(lambda (grob) (ly:grob-set-property! grob 'text eightva))
>
> %% 1
> {
> \ottava #1
> c''''1^"untouched original"
> }
>
> %% 2
> {
> \once \override Staff.OttavaBracket.shorten-pair = #'(-10 . -10)
> \ottava #1
> c''''1^"original, 'shorten-pair applied"
> }
>
> %% 3
> {
> \ottavaBracketNewText
> \ottava #1
> c''''1^"text changed"
> }
>
> %% 4
> {
> \once \override Staff.OttavaBracket.shorten-pair = #'(-10 . -10)
> \ottavaBracketNewText
> \ottava #1
> c''''1^"text changed, 'shorten-pair applied"
> }
>
> %% or simpler:
> {
> \once \override Staff.OttavaBracket.shorten-pair = #'(-10 . -10)
> \set Staff.ottavation = #eightva
For a _simple_ ottavation you don't need to add:
> \ottava #1
^^^^^^^^^^^^^^
delete it.
> c''''1^”simpler”
> }
> %%%% SNIPPET ENDS
>
> ________________________________
>
> Kieren MacMillan, composer
> ‣ website: www.kierenmacmillan.info
> ‣ email: i...@kierenmacmillan.info
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
