Hi again,
[ ... ]
>
> P.S. Also you might be interested in this thread:
> http://old.nabble.com/Making-feathered-beams-more-variable-tt32705102.html#a32790344
> with an extended function to print feathered beams and an improved
> feather-duration-function by David Nalesnik.
I just noticed that I didn't post the last version of these functions
in the mentioned thread. Here it is:
Cheers,
Harm
\version "2.14.2"
% Thanks to David Nalesnik
\pointAndClickOff
% #(set-global-staff-size 20)
\paper {
tagline = ##f
indent = 0
}
xy = \once\override Stem #'french-beaming = ##t
xyOut =
#(define-music-function (parser location y-length)(number?)
#{
\once \override Stem #'stencil =
#(lambda (grob)
(ly:grob-set-property! grob 'stem-end-position $y-length)
(ly:stem::print grob))
#})
#(define ((grow-beam-var number) grob)
(cond
((< (length (cdr (ly:grob-property (ly:grob-parent grob X) 'beaming))) 2)
(ly:beam::print grob))
((or (= number 0) (and (< number 0) (> (abs number)(1- (ly:grob-array-length (ly:grob-object grob 'stems))))))
(begin
(ly:grob-set-property! grob 'grow-direction LEFT)
(ly:beam::print grob)))
((>= number (1- (ly:grob-array-length (ly:grob-object grob 'stems))))
(begin
(ly:grob-set-property! grob 'grow-direction RIGHT)
(ly:beam::print grob)))
((ly:stencil? (ly:beam::print grob)) ;; delete this?
(let* ((beam (ly:beam::print grob))
(beam-positions (ly:grob-property grob 'positions))
(beam-slant (cond ((<= (car beam-positions) (cdr beam-positions)) 1)
;;((= (car beam-positions) (cdr beam-positions)) 0)
((> (car beam-positions) (cdr beam-positions)) -1)))
(dir (ly:beam::calc-direction grob))
(b-d (ly:output-def-lookup (ly:grob-layout grob) 'blot-diameter))
(beam-extent-X (ly:stencil-extent beam X))
(beam-length-x-orig (interval-length beam-extent-X))
(beam-length-x (- beam-length-x-orig b-d))
(beam-extent-Y (ly:stencil-extent beam Y))
(beam-length-y (interval-length beam-extent-Y))
(orig-beam-thickness (ly:grob-property grob 'beam-thickness))
(beam-count (length (cdr (ly:grob-property (ly:grob-parent grob X) 'beaming))))
(space-between-beams (* 0.46 (ly:grob-property grob 'gap)))
(orig-beam-length-at-stem (+ (* beam-count orig-beam-thickness)(* (- beam-count 1) space-between-beams)))
(orig-slope (* beam-slant (/ (- beam-length-y orig-beam-length-at-stem) beam-length-x)))
(alpha (atan orig-slope))
(beam-thickness (* 0.8 orig-beam-thickness))
(h-max (- (/ orig-beam-length-at-stem (cos alpha)) (* 1.3 beam-thickness)))
(number-a (if (integer? (abs number))
(abs number)
(inexact->exact (truncate (abs number)))))
(number-b (- (abs number) (truncate (abs number))))
(stems (ly:grob-object grob 'stems))
(stem-count (ly:grob-array-length stems))
(refp (ly:grob-system grob))
(first-stem (ly:grob-array-ref stems 0))
(first-stem-dir (ly:grob-property first-stem 'direction))
(last-stem (ly:grob-array-ref stems (- stem-count 1)))
(last-stem-dir (ly:grob-property last-stem 'direction))
(target-stem (if (< (abs number-a) stem-count)
(ly:grob-array-ref stems number-a)
(ly:grob-array-ref stems (- stem-count 1 ))))
(next-stem (if (< (+ (abs number-a) 1) stem-count)
(ly:grob-array-ref stems (+ number-a 1))
(ly:grob-array-ref stems (- stem-count 1 ))))
(first-stem-coord (ly:grob-relative-coordinate first-stem refp X))
(target-stem-coord (ly:grob-relative-coordinate target-stem refp X))
(next-stem-coord (ly:grob-relative-coordinate next-stem refp X))
(first-stem-to-target-stem-length (interval-length (cons first-stem-coord target-stem-coord)))
(stem-to-next-stem-length (interval-length (cons target-stem-coord next-stem-coord)))
(factor (/ beam-length-x (+ first-stem-to-target-stem-length (* number-b stem-to-next-stem-length))))
(y-sp (lambda (n) (* -1 n dir (+ beam-thickness space-between-beams))))
(y-off (* 1 (/ (- beam-length-y orig-beam-length-at-stem) factor)))
;; markup-a is the longest beam
(markup-a (markup #:beam beam-length-x
orig-slope
beam-thickness))
;; left piece
;; y-length of left piece
(y-L
(lambda (n)
(if (>= number 0)
(- (/ (- beam-length-y orig-beam-length-at-stem) factor) (* dir beam-slant n (/ h-max (- beam-count 1))))
(+ (/ (- beam-length-y orig-beam-length-at-stem) factor) (* dir beam-slant n (+ beam-thickness space-between-beams)))
)))
;; x-length of left piece
(x-L (+ first-stem-to-target-stem-length (* number-b stem-to-next-stem-length)))
;; slope of left piece
(slope-part-beam-L
(lambda (n)
(if (>= number 0)
(cond ((or (and (> dir 0) (> beam-slant 0)) (and (< dir 0) (> beam-slant 0)))
(/ (y-L n) x-L))
((or (and (> dir 0) (< beam-slant 0)) (and (< dir 0) (< beam-slant 0)))
(* -1 (/ (y-L n) x-L))))
(cond ((or (and (> dir 0) (> beam-slant 0))(and (< dir 0) (> beam-slant 0)))
(/ (y-L n) x-L))
((or (and (> dir 0) (< beam-slant 0))(and (< dir 0) (< beam-slant 0)))
(* -1 (/ (y-L n) x-L))))
)))
;; construct left piece
(part-beam-L
(lambda (n)
(markup #:beam x-L
(slope-part-beam-L n)
beam-thickness)))
;; markup of left piece
(markup-L (lambda (n) (markup (part-beam-L n))))
;; stencil of left piece
(beam-part-L (lambda (n) (grob-interpret-markup grob (markup-L n))))
;; y-extent of left piece
(beam-part-L-ext-y (lambda (n) (ly:stencil-extent (beam-part-L n) Y)))
;; length of left piece
(length-beam-part-L-y (lambda (n) (interval-length (beam-part-L-ext-y n))))
;; right piece
(y-R (lambda (n) (- (- beam-length-y orig-beam-length-at-stem) (y-L n))))
(x-R (- beam-length-x x-L))
(slope-part-beam-R
(lambda (n)
(cond
((or (and (> dir 0) (> beam-slant 0)) (and (< dir 0) (> beam-slant 0)))
(/ (y-R n) x-R))
((or (and (> dir 0) (< beam-slant 0)) (and (< dir 0) (< beam-slant 0)))
(* -1 (/ (y-R n) x-R))))))
(part-beam-R
(lambda (n)
(markup #:beam (- beam-length-x x-L)
(slope-part-beam-R n)
beam-thickness)))
(markup-R (lambda (n) (markup (part-beam-R n))))
;; parts of feathered beams
(beam-pieces
(map
(lambda (n)
(ly:stencil-combine-at-edge
(ly:stencil-translate-axis
(ly:stencil-translate-axis
(grob-interpret-markup grob (markup-L n))
-0.025 X)
(if (>= number 0)
0
(y-sp n))
Y)
X RIGHT
(ly:stencil-translate-axis
(grob-interpret-markup grob (markup-R n))
(if (>= number 0)
(cond ((and (> dir 0)(> beam-slant 0))
(if (and (>= (slope-part-beam-L n) 0)(>= (slope-part-beam-R n) 0))
(- (length-beam-part-L-y n) beam-thickness)
(* -1 (- (length-beam-part-L-y n) beam-thickness))))
((and (> dir 0)(< beam-slant 0))
(* -1 (- (length-beam-part-L-y n) beam-thickness)))
((and (< dir 0)(> beam-slant 0))
(- (length-beam-part-L-y n) beam-thickness))
((and (< dir 0)(< beam-slant 0))
(if (and (<= (slope-part-beam-L n) 0)(<= (slope-part-beam-R n) 0))
(* -1 (- (length-beam-part-L-y n) beam-thickness))
(- (length-beam-part-L-y n) beam-thickness)))
)
(cond ((or (and (> dir 0)(> beam-slant 0))(and (< dir 0)(> beam-slant 0)))
y-off)
((or (and (> dir 0)(< beam-slant 0))(and (< dir 0)(< beam-slant 0)))
(* -1 y-off))
)
)
Y)
0))
(cdr (iota beam-count))))
) ;; end of defs in let*
(define (helper beam-pieces)
(ly:stencil-add
(car beam-pieces)
(if (null? (cdr beam-pieces))
(car beam-pieces)
(helper (cdr beam-pieces)))))
(ly:stencil-translate-axis
(ly:stencil-add
;; first (long beam)
(ly:stencil-translate-axis
(grob-interpret-markup grob markup-a)
-0.025 X)
;; other beams
(helper beam-pieces))
(car beam-positions)
;;beam-thickness
Y)
) ;; end of let*
)
)
)
#(define (moment=? a b)
(not (or (ly:moment<? a b) (ly:moment<? b a))))
#(define (moment>? a b)
(not (or (ly:moment<? a b) (moment=? a b))))
featherDurationsTest=
#(define-music-function (parser location factor turnaround-orig argument)
(ly:moment? number? ly:music?)
(let* ((orig-duration (ly:music-length argument))
(multiplier (ly:make-moment 1 1))
(turnaround (if (and (integer? turnaround-orig) (>= turnaround-orig 0))
turnaround-orig
(inexact->exact (floor (abs turnaround-orig)))))
(elements (ly:music-property argument 'elements))
(dif (- (length elements) turnaround))
(lth (cond ((>= dif 0) dif)
(else (length elements))))
(peak-multiplier
(reduce
(lambda (mom prev) (ly:moment-mul mom prev))
multiplier
(make-list turnaround factor)))
(end-multiplier
(reduce
(lambda (mom prev) (ly:moment-mul mom prev))
peak-multiplier
(append
(list peak-multiplier)
(make-list lth ;;(- (length elements) turnaround)
(ly:moment-div (ly:make-moment 1 1) factor)))))
(comparison
(if (< (ly:moment-main-numerator factor) (ly:moment-main-denominator factor))
(lambda (a b) (ly:moment<? a b))
(lambda (a b) (moment>? a b)))))
(music-map
(lambda (mus)
(if (and (eq? (ly:music-property mus 'name) 'EventChord)
(< 0 (ly:moment-main-denominator (ly:music-length mus))))
(begin
;;(display multiplier) (newline) ; shows pattern of modification
(ly:music-compress mus multiplier)
(if (comparison peak-multiplier multiplier)
(set! multiplier (ly:moment-mul factor multiplier))
(begin
(set! multiplier (ly:moment-div multiplier factor))
(set! peak-multiplier end-multiplier)))))
mus)
argument)
(ly:music-compress
argument
(ly:moment-div orig-duration (ly:music-length argument)))
argument))
%}
%{
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% revised %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#(define (construct-moment-list len seed factor turnaround)
(let* ((whole (ly:make-moment 1 1))
(multiplier whole)
(reciprocal (ly:moment-div whole factor))
(turnaround (if (and (integer? turnaround) (>= turnaround 0))
turnaround
(inexact->exact (floor (abs turnaround)))))
(turnaround (if (> turnaround len) len turnaround))
(moment-list '()))
(let loop ((x 0))
(if (= x turnaround)
(set! factor reciprocal))
(set! moment-list (append moment-list (cons (ly:moment-mul seed multiplier) '())))
(set! multiplier (ly:moment-mul multiplier factor))
(if (= x (1- len))
moment-list
(loop (1+ x))))))
featherDurationsTest=
#(define-music-function (parser location factor turnaround argument)
(ly:moment? number? ly:music?)
(let* ((orig-duration (ly:music-length argument))
(whole (ly:make-moment 1 1))
(elements (ly:music-property argument 'elements))
(moment-series (construct-moment-list (length elements) whole factor turnaround)))
(music-map
(lambda (mus)
(if (and (eq? (ly:music-property mus 'name) 'EventChord)
(< 0 (ly:moment-main-denominator (ly:music-length mus))))
(begin
(ly:music-compress mus (car moment-series))
(set! moment-series (cdr moment-series))))
mus)
argument)
(ly:music-compress
argument
(ly:moment-div orig-duration (ly:music-length argument)))
argument))
%}
%--------------------- Test ----------------------------------------------------
\relative c' {
%\once \override Beam #'stencil = #(grow-beam-var -4)
% \once\override Beam #'quantized-positions = #(stem-change 20 -4)
c32[ d e f g a b c] s128
\once \override Beam #'stencil = #(grow-beam-var 4)
c,32[ d e f g a b c] s128
}
%%{
\markup \column { \bold \fill-line { "EXAMPLES" } \vspace #2 }
\markup \bold "negative argument"
\relative c' {
\mark\markup { \with-color #red "A" }
\once \override Beam #'stencil = #(grow-beam-var -4)
c32[ d e f g a b c] s128
\mark\markup { \with-color #red "B" }
\once \override Beam #'stencil = #(grow-beam-var -5)
c,32[ d e f g a b c]
\mark\markup { \with-color #red "C" }
\once \override Beam #'stencil = #(grow-beam-var -3.5)
a1024[ g f e d c b a]
\mark\markup { \with-color #red "D" }
\once \override Beam #'stencil = #(grow-beam-var -2.5)
a''''32[ a, a, a, a, a,]
\bar "" \break
\mark\markup { \with-color #red "E" }
\once \override Beam #'stencil = #(grow-beam-var -5)
c''32 [d' e, f g a b, c d'' e f g, a b c d
]
\mark\markup { \with-color #red "F" }
\once \override Beam #'stencil = #(grow-beam-var -5)
c,,32 [d e f g a b c d e f g a b c d
]
\bar ""\break
\mark\markup { \with-color #red "G" }
\once \override Beam #'stencil = #(grow-beam-var -5)
c32 [b a g f e d c b a g f e d c b
]
\mark\markup { \with-color #red "H" }
\once\override Beam #'stencil = #(grow-beam-var -5)
c,32 [c' c' c,, c d e f g c e b' c'
]
\bar ""\break
\mark\markup { \with-color #red "J" }
\once \override Beam #'stencil = #(grow-beam-var -5)
c,,,32[ e g b d f a c]
\mark\markup { \with-color #red "K" }
\once\override Beam #'stencil = #(grow-beam-var -2)
c,,256[c' c' c' c']
\bar "" \break
\mark\markup { \with-color #red "L" }
\once \override Beam #'positions = #'(0 . 0.1)
\once \override Beam #'stencil = #(grow-beam-var 5)
f,,,,,32 [ \xy f''' f,,, \xy f''' f,,, \xy f''' f,,, \xy f''' f,,, \xyOut #0 f''']
\once \override Beam #'positions = #'(-1 . 0.5)
\once \override Beam #'stencil = #(grow-beam-var -5)
\xyOut #0.8 f,,, [\xy f''' f,,, \xy f''' f,,, \xy f''' f,,, \xyOut #0.5 f''']
}
% --> http://lsr.dsi.unimi.it/LSR/Item?id=508
\new PianoStaff <<
\new Staff = "RH" { \clef treble \time 3/4 s2 }
\new Staff = "LH" { \clef bass \time 3/4 s2 }
\context Staff = LH
\relative {
\mark\markup { \column { \vspace #3 \with-color #red "M" } }
\stemDown
\once\override Beam #'stencil = #(grow-beam-var -5)
\override Beam #'concaveness = #0
c,,32 [ g'
\change Staff = RH
d' a' e' b' fis' cis']
\once\override Beam #'stencil = #(grow-beam-var -5)
cis32 [fis, b, e, a, d,
\change Staff = LH
g, c, ]
}
>>
one =
\relative c' {
\once\override Beam #'stencil = #(grow-beam-var -5)
c'32 [c c c c c c c c c c c c c c c] c2
}
two =
\relative c' {
\once\override Beam #'stencil = #(grow-beam-var -5)
c,16 [c c c c c c c c c c c c c c c]
}
<<{ \one } \\ {\two }>>
\relative c'' {
\mark\markup { \column { \vspace #3 \with-color #red "N" } }
\override Hairpin #'minimum-length = #5
\override Beam #'stencil = #(grow-beam-var -5)
a1*1/8\< s4.\! s8\> s s s8\!
a16 [a a a a a a a a a a a a a a a]
a32 [a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a]
a64 [a a a
a a a a
a a a a
a a a a
a a a a
a a a a
a a a a
a a a a]
a2
}
\pageBreak
\relative c' {
\mark\markup { \with-color #red "O" }
%\once \override Beam #'positions = #'(0.2 . 0.2)
\override Beam #'auto-knee-gap = #4
\override Beam #'stencil = #(grow-beam-var -16)
c''32 [b a g
f g a b
c b a g
f g a b
\xy e,,, c''' b a
g a b c
d c b a
g a b c]
\bar "" \break
\override Beam #'auto-knee-gap = #4
\override Beam #'stencil = #(grow-beam-var -16)
c32 [b a g
f g a b
c b a g
f g a b
\xy e,,, c''' b a
g a b c
d c b a
g a b c]
}
\relative c'' {
\mark\markup { \with-color #red "P" }
\override Beam #'stencil = #(grow-beam-var -3.5)
\featherDurationsTest #(ly:make-moment 4 1) #3.5
{c32[ c c c c c c c] c2.}
}
\relative c'' {
\override Beam #'stencil = #(grow-beam-var -8)
\featherDurationsTest #(ly:make-moment 2 1) #8
{a64 [a a a
a a a a
a a a a
a a a a
a a a a
a a a a
a a a a
a a a a]}
a2|
}
top = \change Staff = "1"
bottom = \change Staff = "2"
music = \relative c {
\mark\markup { \with-color #red "Q" }
\override Beam #'auto-knee-gap = #0
\set tupletSpannerDuration = #(ly:make-moment 1 16)
\override TupletNumber #'transparent = ##t
\override Beam #'stencil = #(grow-beam-var -1)
\once \override Beam #'positions = #'(4.5 . 5)
\times 2/3 {
\bottom c32[ g' \top eis']
\once \override Beam #'positions = #'(-4.5 . -6)
c'[ e, \bottom g,]
\top e''[ \bottom \xy c,, \top g'']
}
\override Beam #'stencil = #(grow-beam-var -2)
%\revert Beam #'stencil
%\once \override Beam #'positions = #'(3.5 . 5)
\once \override Beam #'positions = #'(2 . 4)
\times 4/5 {
\bottom \xyOut #8.5 c,,64[ \top \xy g'' \xy e' \bottom c,, \top \xyOut #-10 c'']
}
}
\score {
\new PianoStaff <<
\new Staff = "1" {
s4
}
\new Staff = "2" {
\clef bass
\music
}
>>
}
\relative c'' {
\mark\markup { \with-color #red "R" }
\featherDurationsTest #(ly:make-moment 2 1) #16
\override Beam #'stencil = #(grow-beam-var -16)
{a32 [a a a
a a a a
a a a a
a a a a
a a a a
a a a a
a a a a
a a a a]}
}
\relative c'' {
\override Beam #'stencil = #(grow-beam-var -1)
c''' [c,, c,,,,]
\xyOut #-3 e'''' [\xy f,,,,,, \xyOut #0 g'']
}
%--------------------- Test 2 --------------------------------------------------
\pageBreak
\markup \bold "positive argument"
\relative c' {
\mark\markup { \with-color #red "A" }
\once \override Beam #'stencil = #(grow-beam-var 0)
c512[ d e f g a b c] s128
\mark\markup { \with-color #red "B" }
\once \override Beam #'stencil = #(grow-beam-var 5)
c,32[ d e f g a b c]
\mark\markup { \with-color #red "C" }
\once \override Beam #'stencil = #(grow-beam-var 3.5)
a64[ g f e d c b a]
\mark\markup { \with-color #red "D" }
\once\override Beam #'stencil = #(grow-beam-var 5)
c,32 [c c c c c c c c c c c c c c c
]
\bar "" \break
\mark\markup { \with-color #red "E" }
\once \override Beam #'stencil = #(grow-beam-var 5)
c''32 [d' e, f g a b, c d'' e f g, a b c d
]
\mark\markup { \with-color #red "F" }
\once \override Beam #'stencil = #(grow-beam-var 5)
c,,32 [d e f g a b c d e f g a b c d
]
\bar ""\break
\mark\markup { \with-color #red "G" }
\once \override Beam #'stencil = #(grow-beam-var 5)
c32 [b a g f e d c b a g f e d c b
]
\mark\markup { \with-color #red "H" }
\once\override Beam #'stencil = #(grow-beam-var 5)
c,32 [c' c' c,, c d e f g c e b' c'
]
\bar ""\break
\mark\markup { \with-color #red "J" }
\once \override Beam #'stencil = #(grow-beam-var 5)
c,,,32[ e g b d f a c]
\mark\markup { \with-color #red "K" }
\once\override Beam #'stencil = #(grow-beam-var 4)
c,,256[c' c' c' c']
\bar "" \break
\mark\markup { \with-color #red "L" }
\once \override Beam #'positions = #'(0 . 0)
\once \override Beam #'stencil = #(grow-beam-var -5)
\xyOut #3 f,,,,,32 [ \xy f''' f,,, \xy f''' f,,, \xy f''' f,,, \xy f''' f,,, \xyOut #0 f''']
\override Beam #'auto-knee-gap = #6
\once \override Beam #'stencil = #(grow-beam-var 5)
f,, [f'' f,, f'' f,, f'' f,, f'']
}
% --> http://lsr.dsi.unimi.it/LSR/Item?id=508
\new PianoStaff <<
\new Staff = "RH" { \clef treble \time 3/4 s2 }
\new Staff = "LH" { \clef bass \time 3/4 s2 }
\context Staff = LH
\relative {
\mark\markup { \column { \vspace #3 \with-color #red "M" } }
\stemDown
\once\override Beam #'stencil = #(grow-beam-var 5)
\override Beam #'concaveness = #0
c,,32 [ g'
\change Staff = RH
d' a' e' b' fis' cis']
\once\override Beam #'stencil = #(grow-beam-var 5)
cis32 [fis, b, e, a, d,
\change Staff = LH
g, c, ]
}
>>
one =
\relative c' {
\once\override Beam #'stencil = #(grow-beam-var 5)
c'32 [c c c c c c c c c c c c c c c] c2
}
two =
\relative c' {
\once\override Beam #'stencil = #(grow-beam-var 5)
c,16 [c c c c c c c c c c c c c c c]
}
<<{ \one } \\ {\two }>>
\relative c'' {
\mark\markup { \column { \vspace #3 \with-color #red "N" } }
\override Hairpin #'minimum-length = #5
\override Beam #'stencil = #(grow-beam-var 5)
a1*1/8\< s4.\! s8\> s s s8\!
a16 [a a a a a a a a a a a a a a a]
a32 [a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a]
a64 [a a a
a a a a
a a a a
a a a a
a a a a
a a a a
a a a a
a a a a]
a2
}
\pageBreak
\relative c' {
\mark\markup { \with-color #red "O" }
\once \override Beam #'positions = #'(-0.8 . -0.8)
\override Beam #'auto-knee-gap = #4
\override Beam #'stencil = #(grow-beam-var -16)
c''32 [b a g
f g a b
c b a g
f g a b
\xy e,,, c''' b a
g a b c
d c b a
g a b c]
\bar "" \break
\override Beam #'auto-knee-gap = #4
\once \override Beam #'positions = #'(-0.8 . -0.8)
\override Beam #'stencil = #(grow-beam-var 16)
c32 [b a g
f g a b
c b a g
f g a b
e,,, c''' b a
g a b c
d c b a
g a b c]
}
\relative c'' {
\mark\markup { \with-color #red "P" }
\override Beam #'stencil = #(grow-beam-var 3.5)
\featherDurationsTest #(ly:make-moment 1 4) #3.5
{c32[ c c c c c c c] c2.}
}
\relative c'' {
\override Beam #'stencil = #(grow-beam-var 8)
\featherDurationsTest #(ly:make-moment 1 2) #8
{a64 [a a a
a a a a
a a a a
a a a a
a a a a
a a a a
a a a a
a a a a]}
a2|
}
\relative c {
\mark\markup { \with-color #red "Q" }
\once \override Beam #'positions = #'(0 . 0)
\once \override Beam #'stencil = #(grow-beam-var -5)
\xyOut #3.5 f32 [ \xy f''' f,,, \xy f''' f,,, \xy f''' f,,, \xy f''' f,,,
\xyOut #0
f''']
}
top = \change Staff = "1"
bottom = \change Staff = "2"
music = \relative c {
\mark\markup { \with-color #red "R" }
\override Beam #'auto-knee-gap = #0
\set tupletSpannerDuration = #(ly:make-moment 1 16)
\override TupletNumber #'transparent = ##t
\override Beam #'stencil = #(grow-beam-var -1)
\once \override Beam #'positions = #'(4.5 . 5)
\times 2/3 {
\bottom c32[ g' \top \xyOut #-11.5 eis']
\once \override Beam #'positions = #'(-4.5 . -6)
c'[ e, \bottom \xyOut #9 g,]
\top e''[ \bottom \xy c,, \top g'']
}
\override Beam #'stencil = #(grow-beam-var 2)
%\once \override Beam #'positions = #'(3.5 . 5)
\once \override Beam #'positions = #'(4 . 4)
\times 4/5 {
\bottom c,,64[ \top \xy g'' \xy e' \bottom c,, \top \xyOut #-10 c'']
}
}
\score {
\new PianoStaff <<
\new Staff = "1" {
s4
}
\new Staff = "2" {
\clef bass
\music
}
>>
}
\relative c'' {
\mark\markup { \with-color #red "S" }
\once \override Beam #'stencil = #(grow-beam-var -16)
\featherDurationsTest #(ly:make-moment 2 1) #16
{a32 [a a a
a a a a
a a a a
a a a a
a a a a
a a a a
a a a a
a a a a]}
}
%}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
