2017-01-15 0:21 GMT+01:00 Thomas Morley <thomasmorle...@gmail.com>:
> With my lily-2.14.2 I can do in terminal:
>
> ~$ lilypond-2-14-2 -e '(scm-style-repl)'
> GNU LilyPond 2.14.2
> guile> UP
> 1
> guile> DOWN
> -1
> guile> ly:tuplet-bracket::calc-direction
> #<primitive-procedure ly:tuplet-bracket::calc-direction>
> guile>
>
> All there and available...
>
> Cheers,
> Harm
Below you find a working code tested with 2.14.2!
Not sure the output is always convincing, though...
I'm _very_ happy this version is antique, coding there is aarrgh.
\version "2.14.2"
\score {
\new Staff
\relative c''{
\times 2/3 { c4 d e }
\voiceOne
\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 }
\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 }
}
\layout {
\context {
\Voice
%% Use 'thickness from Slur
\override TupletBracket #'thickness = #1.2
%% 'control-points need to be set
\override TupletBracket #'after-line-breaking =
#(lambda (grob)
(let* ((x-pos (ly:stencil-extent (ly:grob-property grob 'stencil) X))
(pos (ly:grob-property grob 'positions))
(x-ln (interval-length x-pos))
(dir (ly:grob-property grob 'direction))
;;; read out the height of the TupletBracket, maybe negative!
(height (- (cdr pos) (car pos)))
;;; height-corr is introduced because sometimes the shape of
;;; the slur needs to be adjusted.
;;; It is used in the 2nd/3rd control-point.
;;; The value of 0.3 is found by trial and error
(height-corr (* 0.3 dir height))
(edge-height (ly:grob-property grob 'edge-height '(0.7 . 0.7)))
(pad 1.0))
;; set control-points for slur-stencil
(ly:grob-set-property! grob 'control-points
(list
;; first cp
(cons
(+ (car x-pos) 0.5)
(- (+ (* dir pad) (+ (car pos) (* -1 dir (car edge-height))))
(* 0.5 dir)))
;; second cp
(cons
(+ (car x-pos) (* x-ln 1/4))
(+ (* dir pad) (+ (car pos) (* dir (+ 0.7 height-corr)))))
;; third cp
(cons
(+ (car x-pos) (* x-ln 3/4))
(+ (* dir pad) (+ (cdr pos) (* dir (- 0.7 height-corr)))))
;; fourth cp
(cons
(- (cdr x-pos) 0.5)
(- (+ (* dir pad) (+ (cdr pos) (* -1 dir (cdr edge-height))))
(* 0.5 dir)))))
;; Use slur-stencil
(ly:grob-set-property! grob 'stencil
;; For debugging uncomment the following three lines
;; and comment (ly:slur::print grob)
;(ly:stencil-add
; (ly:grob-property grob 'stencil)
; (ly:slur::print grob))
(ly:slur::print grob)
)))
\override TupletBracket #'staff-padding = #'()
%% probably:
%\override TupletBracket #'direction =
% #(lambda (grob)
% (if (eq? UP (ly:tuplet-bracket::calc-direction grob)) DOWN UP))
}
}
}
Cheers,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
