1 % #(ly:set-point-and-click 'line-column)
3 longgrace = \override Stem #'stroke-style = #'()
4 endlonggrace = \revert Stem #'stroke-style
5 ritenuto = \markup { \italic "rit." }
10 #(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent START))))
11 \set crescendoText = \markup { \italic \bold "cresc." }
12 \set crescendoSpanner = #'dashed-line
16 %% TODO: a better mechanism for tweaking Grace settings.
19 startGraceMusic = \sequential {
21 \override Beam #'space-function
22 = #(lambda (beam mult) (* 0.8 0.8))
23 \override Beam #'thickness = #(* 0.384 (/ 0.6 0.48))
26 stopGraceMusic= \sequential {
27 \revert Beam #'thickness
28 \revert Beam #'space-function
36 midiInstrument = #"french horn"
37 %% try to mimic Breitkopf
38 \override RehearsalMark #'padding = #1
39 \override MultiMeasureRest #'padding = #0.5
40 restNumberThreshold = #1
42 \override RehearsalMark #'font-series = #'bold
43 \override RehearsalMark #'font-size = #4.5
45 \override Beam #'thickness = #0.6
46 \override Beam #'space-function = #(lambda (beam mult) 0.8)
50 minimumVerticalExtent = #'(-2.5 . 3.5)
56 % #(define fonts my-sheet)
58 % stress page breaking on a6 paper: