10 proportionalNotationDuration
= #(ly
:make-moment
1 64)
11 \override Beam
#'breakable
= ##t
13 tupletFullLength
= ##t
14 \override BarNumber
#'transparent
= ##t
15 \override BarLine
#'transparent
= ##t
16 \override SpanBar
#'transparent
= ##t
17 \override Beam
#'break-overshoot
= #'(-
0.5 . 1.0)
18 \override TextScript
#'staff-padding
= #6
19 \override Glissando
#'thickness
= #3
20 \override SpacingSpanner
#'strict-grace-spacing
= ##t
21 \override TupletBracket
#'bracket-visibility
= ##t
22 \override NoteColumn
#'ignore-collision
= ##t
27 oddHeaderMarkup
= \markup \fill-line
{ " " }
28 evenHeaderMarkup
= \markup \fill-line
{ " " }
29 oddFooterMarkup
= \markup {
31 \bold \fontsize #3 \on-the-fly
#print-page-number-check-first
\fromproperty #'page
:page-number-string
} }
32 evenFooterMarkup
= \markup {
34 \bold \fontsize #3 \on-the-fly
#print-page-number-check-first
\fromproperty #'page
:page-number-string
} }
35 printfirst-page-number
= ##t
36 print-page-number
= ##t
37 ragged-last-bottom
= ##t
40 #(set-global-staff-size
14)
46 ppX
= #(make-dynamic-script
(markup
#:combine
#:transparent
#:dynamic
"f" #:line
(#:hspace
0 #:dynamic
"pp" #:hspace
0)))
47 pX
= #(make-dynamic-script
(markup
#:combine
#:transparent
#:dynamic
"f" #:line
(#:hspace
0 #:dynamic
"p" #:hspace
0)))
48 mpX
= #(make-dynamic-script
(markup
#:combine
#:transparent
#:dynamic
"f" #:line
(#:hspace
0 #:dynamic
"mp" #:hspace
0)))
49 fX
= #(make-dynamic-script
(markup
#:combine
#:transparent
#:dynamic
"f" #:line
(#:hspace
0 #:dynamic
"f" #:hspace
0)))
50 ffX
= #(make-dynamic-script
(markup
#:combine
#:transparent
#:dynamic
"f" #:line
(#:hspace
0 #:dynamic
"ff" #:hspace
0)))
51 sfp
= #(make-dynamic-script
"sfp")
52 sfpp
= #(make-dynamic-script
"sfpp")
53 sffp
= #(make-dynamic-script
"sffp")
54 sffpp
= #(make-dynamic-script
"sffpp")
56 beam
= #(define-music-function
(parser location left right
) (number? number?
)
57 (cond
((and
(= left
0) (> right
0))
59 \set stemRightBeamCount
= #$right
62 ((and
(> left
0) (= right
0))
64 \set stemLeftBeamCount
= #$left
69 \set stemLeftBeamCount
= #$left
70 \set stemRightBeamCount
= #$right
75 fraction
= #(define-music-function
(parser location music
) (ly
:music?
)
76 #{ \tweak #'text
#tuplet-number
::calc-fraction-text $music
#})
78 triangle
= #(define-music-function
(parser location music
) (ly
:music?
)
79 #{ \once \set shapeNoteStyles
= #'#(do do do do do do do
) $music
#})
81 semicircle
= #(define-music-function
(parser location music
) (ly
:music?
)
82 #{ \once \set shapeNoteStyles
= #'#(re re re re re re re
) $music
#})
84 blackdiamond
= #(define-music-function
(parser location music
) (ly
:music?
)
85 #{ \once \set shapeNoteStyles
= #'#(mi mi mi mi mi mi mi
) $music
#})
87 tiltedtriangle
= #(define-music-function
(parser location music
) (ly
:music?
)
88 #{ \once \set shapeNoteStyles
= #'#(fa fa fa fa fa fa fa
) $music
#})
90 square
= #(define-music-function
(parser location music
) (ly
:music?
)
91 #{ \once \set shapeNoteStyles
= #'#(la la la la la la la
) $music
#})
93 wedge
= #(define-music-function
(parser location music
) (ly
:music?
)
94 #{ \once \set shapeNoteStyles
= #'#(ti ti ti ti ti ti ti
) $music
#})
96 harmonic
= #(define-music-function
(parser location music
) (ly
:music?
)
97 #{ \once \set shapeNoteStyles
= #'#(harmonic harmonic harmonic harmonic harmonic harmonic harmonic
) $music
#})
99 cross
= #(define-music-function
(parser location music
) (ly
:music?
)
100 #{ \once \set shapeNoteStyles
= #'#(cross cross cross cross cross cross cross
) $music
#})
102 white
= #(define-music-function
(parser location music
) (ly
:music?
)
103 #{ \once \override NoteHead
#'duration-log
= #1 $music
#})