input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly

   1 % #(ly:set-point-and-click 'line-column)
   2
   3 longgrace = \override Stem  #'stroke-style = #'()
   4 endlonggrace = \revert Stem #'stroke-style
   5 ritenuto = \markup { \italic  "rit." }
   6
   7 \version "2.2.0"
   8
   9 cresc = \notes {
  10     #(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent START))))
  11     \set crescendoText =  \markup { \italic \bold "cresc." }
  12     \set crescendoSpanner =  #'dashed-line
  13 }
  14
  15 %%
  16 %% TODO: a better mechanism for tweaking Grace settings.
  17 %%
  18
  19 startGraceMusic = \sequential {
  20     \startGraceMusic
  21     \override Beam   #'space-function
  22     = #(lambda (beam mult) (* 0.8 0.8))
  23     \override Beam   #'thickness = #(* 0.384 (/ 0.6 0.48))
  24 }
  25
  26 stopGraceMusic= \sequential {
  27     \revert Beam #'thickness
  28     \revert Beam #'space-function
  29     \stopGraceMusic
  30 }
  31
  32 \paper{
  33     \context {
  34         \ScoreContext
  35         skipBars = ##t
  36         midiInstrument = #"french horn"
  37         %% try to mimic Breitkopf
  38         \override RehearsalMark #'padding = #1
  39         \override MultiMeasureRest #'padding = #0.5
  40         restNumberThreshold = #1
  41
  42         \override RehearsalMark #'font-series = #'bold
  43         \override RehearsalMark #'font-size = #6
  44
  45         \override Beam #'thickness = #0.6
  46         \override Beam #'space-function = #(lambda (beam mult) 0.8)
  47         \override Slur #'beautiful = #0.3
  48     }
  49     \context {
  50         \StaffContext
  51         minimumVerticalExtent = #'(-4.5 . 4.5)
  52     }
  53     % #(define fonts my-sheet)
  54     #(define page-breaking ly:optimal-page-breaks)
  55
  56     % stress page breaking on a6 paper:
  57     % linewidth = 80 \mm
  58     % hsize = 105 \mm
  59     % vsize = 149 \mm
  60
  61     indent = 10. \mm
  62     linewidth = 189. \mm
  63
  64 }
  65