-
-
% #(ly: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.3"
-
-#(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-font-list 'paper20))
-%#(set-style! my-sheet 'mark-letter '((font-family . roman)
-% (font-series . bold)
-% (font-shape . upright)
-% (font-relative-size . 3)))
-
-#(define (set-style! xstyle-alist name style)
- (set-cdr! (assoc name xstyle-alist)) style)
+longgrace = \override Stem #'stroke-style = #'()
+endlonggrace = \revert Stem #'stroke-style
+ritenuto = \markup { \italic "rit." }
-#(set-style! style-alist '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
+ \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{
-% #(define fonts my-sheet)
- \translator {
+ \context {
\ScoreContext
skipBars = ##t
midiInstrument = #"french horn"
%% try to mimic Breitkopf
- RehearsalMark \override #'padding = #1
- MultiMeasureRest \override #'padding = #0.5
+ \override RehearsalMark #'padding = #1
+ \override MultiMeasureRest #'padding = #0.5
restNumberThreshold = #1
-
- Beam \override #'thickness = #0.6
- Beam \override #'space-function = #(lambda (beam mult) 0.8)
- Slur \override #'beautiful = #0.3
+
+ \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
}
+