input/mozart-hrn3-defs.ly

   1
   2
   3 % #(set! point-and-click line-column-location)
   4
   5 longgrace = \property Voice.Stem \override #'flag-style = #'()
   6 endlonggrace = \property Voice.Stem \revert #'flag-style
   7 ritenuto = \textscript #'(italic  "rit.")
   8
   9 \version "1.5.49"
  10
  11 #(define italic-bf '((font-shape . italic) (font-series . bold)))
  12
  13 %% burp
  14 %% the very idea of a style sheet, is that it's easy to override
  15 #(define (set-style! sheet name style)
  16   (set-cdr! (assoc 'mark-letter (cdr (assoc 'style-alist sheet))) style))
  17
  18 #(define my-sheet (make-style-sheet 'paper20))
  19 #(set-style! my-sheet 'mark-letter '((font-family . roman)
  20                                      (font-series . bold)
  21                                      (font-shape . upright)
  22                                      (font-relative-size . 3)))
  23
  24 cresc = \notes {
  25     \commandspanrequest \start "crescendo"
  26     \property Voice.crescendoText = #`(,italic-bf "cresc.")
  27     \property Voice.crescendoSpanner = #'dashed-line
  28 }
  29
  30 %%
  31 %% TODO: a better mechanism for tweaking Grace settings.
  32 %%
  33
  34 startGraceMusic = \sequential {
  35     \startGraceMusic
  36     \property Voice.Beam \override #'space-function
  37        = #(lambda (beam mult) (* 0.8 0.8))
  38     \property Voice.Beam \override #'thickness = #(* 0.384 (/ 0.6 0.48))
  39 }
  40
  41 stopGraceMusic= \sequential {
  42     \property Voice.Beam \revert #'thickness
  43     \property Voice.Beam \revert #'space-function
  44     \stopGraceMusic
  45 }
  46
  47 \paper{
  48     \stylesheet #my-sheet
  49     \translator {
  50         \ScoreContext
  51         skipBars = ##t
  52         midiInstrument = #"french horn"
  53         %% try to mimic Breitkopf
  54         RehearsalMark \override #'padding = #1
  55         MultiMeasureRest \override #'padding = #0.5
  56         MultiMeasureRest \override #'number-threshold = #1
  57
  58         Beam \override #'thickness = #0.6
  59         Beam \override #'space-function = #(lambda (beam mult) 0.8)
  60         Slur \override #'beautiful = #0.3
  61     }
  62     \translator {
  63         \StaffContext
  64         MinimumVerticalExtent = #'(-4.5 . 4.5)
  65     }
  66     indent = 10. \mm
  67     linewidth = 189. \mm
  68
  69 }