[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Triplets
From: |
Noeck |
Subject: |
Re: Triplets |
Date: |
Sat, 14 Jan 2017 21:46:24 +0100 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101 Thunderbird/45.5.1 |
Hi Martin,
please note that you have to replace the double backslashes by a single
one and mind the line breaks in the e-mail.
Here is a version that works for me (2.19.50).
Best,
Joram
tupletBracketToSlur = {
% Use slur-stencil
\override TupletBracket.stencil = #ly:slur::print
%% Use 'thickness from Slur
\override TupletBracket.thickness = #1.2
%% 'control-points need to be set
\override TupletBracket.control-points =
#(lambda (grob)
(let* ((x-pos (ly:grob-property grob 'X-positions))
(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, may be
;; 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))
(list
;; first cp
(cons
(+ (car x-pos) 0.5)
(- (+ (* dir pad) (+ (car pos) (* -1 dir
(car edge-height))))
(if (= dir -1)
(if (> height 3)
(/ dir 2.0)
0.0)
(if (< height -3)
(/ dir 2.0)
0.0))))
;; second cp
(cons
(+ (car x-pos) (* x-ln 1/4))
(+ (* dir pad) (+ (car pos) (* dir (+ 0.5 height-corr)))))
;; third cp
(cons
(+ (car x-pos) (* x-ln 3/4))
(+ (* dir pad) (+ (cdr pos) (* dir (- 0.5 height-corr)))))
;; fourth cp
(cons
(- (cdr x-pos) 0.5)
(+ (* dir pad) (+ (cdr pos) (* -1 dir (cdr edge-height)))))
)))
\override TupletBracket.staff-padding = #'()
#(define (invert-direction x) (if (eq? UP
(ly:tuplet-bracket::calc-direction x)) DOWN UP))
\override TupletBracket.direction = #invert-direction
}
\layout { \tupletBracketToSlur }
{ a a \tuplet 3/2 { a8 a a } a4 }
- Triplets, J Martin Rushton, 2017/01/14
- Re: Triplets, Richard Shann, 2017/01/14
- Re: Triplets,
Noeck <=
- Re: Triplets, J Martin Rushton, 2017/01/14
- Re: Triplets, Hans Aikema, 2017/01/14
- Re: Triplets, J Martin Rushton, 2017/01/14
- Re: Triplets, Hans Aikema, 2017/01/14
- Re: Triplets, J Martin Rushton, 2017/01/14
- Re: Triplets, Richard Shann, 2017/01/14
- Re: Triplets, J Martin Rushton, 2017/01/14