+% #(ly:set-point-and-click 'line-column)
+longgrace = \override Stem #'stroke-style = #'()
+endlonggrace = \revert Stem #'stroke-style
+ritenuto = \markup { \italic "rit." }
-% #(set-point-and-click! 'line-column)
-
-longgrace = \property Voice.Stem \override #'stroke-style = #'()
-endlonggrace = \property Voice.Stem \revert #'stroke-style
-ritenuto = \textscript #'(italic "rit.")
-
-\version "1.7.2"
-
-#(define italic-bf '((font-shape . italic) (font-series . bold)))
-
-%% burp
-%% the very idea of a style sheet, is that it's easy to override
-#(define (set-style! sheet name style)
- (set-cdr! (assoc 'mark-letter (cdr (assoc 'style-alist sheet))) style))
-
-#(define my-sheet (make-style-sheet 'paper20))
-#(set-style! my-sheet 'mark-letter '((font-family . roman)
- (font-series . bold)
- (font-shape . upright)
- (font-relative-size . 3)))
+\version "2.2.0"
cresc = \notes {
- #(ly-export (make-event-chord (list (make-span-event 'CrescendoEvent START))))
- \property Voice.crescendoText = #`(,italic-bf "cresc.")
- \property Voice.crescendoSpanner = #'dashed-line
+ #(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent START))))
+ \set crescendoText = \markup { \italic \bold "cresc." }
+ \set crescendoSpanner = #'dashed-line
}
%%
startGraceMusic = \sequential {
\startGraceMusic
- \property Voice.Beam \override #'space-function
- = #(lambda (beam mult) (* 0.8 0.8))
- \property Voice.Beam \override #'thickness = #(* 0.384 (/ 0.6 0.48))
+ \override Beam #'space-function
+ = #(lambda (beam mult) (* 0.8 0.8))
+ \override Beam #'thickness = #(* 0.384 (/ 0.6 0.48))
}
stopGraceMusic= \sequential {
- \property Voice.Beam \revert #'thickness
- \property Voice.Beam \revert #'space-function
+ \revert Beam #'thickness
+ \revert Beam #'space-function
\stopGraceMusic
}
\paper{
- \stylesheet #my-sheet
- \translator {
+ \context {
\ScoreContext
skipBars = ##t
midiInstrument = #"french horn"
%% try to mimic Breitkopf
- RehearsalMark \override #'padding = #1
- MultiMeasureRest \override #'padding = #0.5
- MultiMeasureRest \override #'number-threshold = #1
-
- Beam \override #'thickness = #0.6
- Beam \override #'space-function = #(lambda (beam mult) 0.8)
- Slur \override #'beautiful = #0.3
+ \override RehearsalMark #'padding = #1
+ \override MultiMeasureRest #'padding = #0.5
+ restNumberThreshold = #1
+
+ \override RehearsalMark #'font-series = #'bold
+ \override RehearsalMark #'font-size = #6
+
+ \override Beam #'thickness = #0.6
+ \override Beam #'space-function = #(lambda (beam mult) 0.8)
+ \override Slur #'beautiful = #0.3
}
- \translator {
+ \context {
\StaffContext
minimumVerticalExtent = #'(-4.5 . 4.5)
}
+ % #(define fonts my-sheet)
+ #(define page-breaking ly:optimal-page-breaks)
+
+ % stress page breaking on a6 paper:
+ % linewidth = 80 \mm
+ % hsize = 105 \mm
+ % vsize = 149 \mm
+
indent = 10. \mm
linewidth = 189. \mm
}
+