3 % #(ly:set-point-and-click 'line-column)
5 longgrace = \property Voice.Stem \override #'stroke-style = #'()
6 endlonggrace = \property Voice.Stem \revert #'stroke-style
7 ritenuto = \textscript #'(italic "rit.")
11 #(define italic-bf '((font-shape . italic) (font-series . bold)))
16 %% the very idea of a style sheet, is that it's easy to override
17 %% it's gotten quite a bit better now!
19 %% ugh, need this line:
22 #(define (set-style! name style)
23 (set-cdr! (assoc name style-alist) style))
25 #(set-style! 'mark-letter '((font-family . roman)
27 (font-shape . upright)
28 (font-relative-size . 3)))
33 #(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent START))))
34 \property Voice.crescendoText = #`(,italic-bf "cresc.")
35 \property Voice.crescendoSpanner = #'dashed-line
39 %% TODO: a better mechanism for tweaking Grace settings.
42 startGraceMusic = \sequential {
44 \property Voice.Beam \override #'space-function
45 = #(lambda (beam mult) (* 0.8 0.8))
46 \property Voice.Beam \override #'thickness = #(* 0.384 (/ 0.6 0.48))
49 stopGraceMusic= \sequential {
50 \property Voice.Beam \revert #'thickness
51 \property Voice.Beam \revert #'space-function
59 midiInstrument = #"french horn"
60 %% try to mimic Breitkopf
61 RehearsalMark \override #'padding = #1
62 MultiMeasureRest \override #'padding = #0.5
63 restNumberThreshold = #1
65 Beam \override #'thickness = #0.6
66 Beam \override #'space-function = #(lambda (beam mult) 0.8)
67 Slur \override #'beautiful = #0.3
71 minimumVerticalExtent = #'(-4.5 . 4.5)