2016-04-13 23:28 GMT+02:00 Thomas Morley <thomasmorle...@gmail.com>:
> 2016-04-13 15:06 GMT+02:00 Richard Shann <rich...@rshann.plus.com>:
>> Thanks Abraham, that's most informative.
>> Thinking about it, I wonder if I've missed something: is there a way to
>> say typeset the tuplet bracket like a slur, with the tuplet number
>> inside?
>
> I once made the attached code.
> Maybe you can adapt it to fit your needs.
>
> Cheers,
> Harm
Meanwhile I recoded it (using make-bow-stencil which is not available
in 2.18.2) making things way easier.
Though,
(1) The TupletNumbers are always inside the bow, I coded no
possibility to print the Number cutting the bow.
I maybe add it later.
(2) What to do at line-break? See RehearsalMark A and B.
Could somebody take a look what Gould says about it (and/or other
type-setting-bibles)?
For now I let the colored default _and_ the new bow print above each
other for easy compare.
Feedback appreciated !!
\version "2.19.36"
foo =
%\once
\override TupletBracket.stencil =
#(lambda (grob)
(let* ((x-pos (ly:grob-property grob 'X-positions))
(pos (ly:grob-property grob 'positions))
(dir (ly:grob-property grob 'direction))
(edge-height (ly:grob-property grob 'edge-height)))
(ly:stencil-add
(stencil-with-color (ly:tuplet-bracket::print grob) red)
(make-bow-stencil
;; start
(cons (car x-pos) (- (car pos) (* dir (car edge-height))))
;; stop
(cons (cdr x-pos) (- (cdr pos) (* dir (cdr edge-height))))
;; thickness, taken from IR for Slur
0.12
;; angularity, value `0.6' is my choice,
;; TODO make angularity more flexible?
0.6
;; bow-height, value `1' is my choice, adding average of edge-height
;; TODO do less steep curves by using a fraction of
;; average-edge-height?
(+ 1 (/ (+ (car edge-height) (cdr edge-height)) 2))
;; orientation
dir))))
\relative c'' {
\voiceOne
%\override TupletBracket.staff-padding = #'()
\foo
\times 2/3 { a4 b c }
\times 2/3 { a4 b c' }
\times 2/3 { a,4 b c, }
\times 2/3 { a'4 b, c }
\voiceTwo
\times 2/3 { a'4 b c }
\times 2/3 { a4 b c' }
\times 2/3 { a,4 b c, }
\times 2/3 { a'4 b, c }
\oneVoice
\mark \default
\times 2/3 { a1 b2 \break b c1 }
\mark \default
\times 2/3 { a1 b1 \bar "" \break c1 }
}
Cheers,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
