2 #(define
(grace-beam-space-function multiplicity
)
3 (* (if
(<= multiplicity
3) 0.816 0.844) 0.8))
7 \property Voice
.Stem
\override #'direction
= #1
8 \property Voice
.Stem
\override #'length
= #6
9 \property Voice
.Stem
\override #'lengths
=
10 #(map
(lambda
(x
) (* 0.8 x
)) '(3.5 3.5 3.5 4.5 5.0))
11 \property Voice
.Stem
\override #'beamed-lengths
=
12 #(map
(lambda
(x
) (* 1.25 x
)) '(0.0 2.5 2.0 1.5))
13 \property Voice
.Stem
\override #'beamed-minimum-lengths
=
14 #(map
(lambda
(x
) (* 1.25 x
)) '(0.0 1.5 1.25 1.0))
15 \property Voice
.Stem
\override #'no-stem-extend
= ##t
16 \property Voice
.Stem
\override #'flag-style
= #"grace"
18 \property Voice
.Beam
\override #'space-function
= #grace-beam-space-function
19 \property Voice
.Beam
\override #'thickness
= #0.3
21 % must use staff. Accidentals should also be smaller.
22 \property Staff
.fontSize
= #-
2
26 \property Voice
.Beam
\revert #'space-function
27 \property Voice
.Beam
\revert #'thickness
29 \property Voice
.Stem
\revert #'flag-style
30 \property Voice
.Stem
\revert #'no-stem-extend
31 \property Voice
.Stem
\revert #'beamed-lengths
32 \property Voice
.Stem
\revert #'beamed-minimum-lengths
33 \property Voice
.Stem
\revert #'lengths
34 \property Voice
.Stem
\revert #'length
35 \property Voice
.Stem
\revert #'direction
37 \property Staff
.fontSize
\unset