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

   1
   2
   3 % #(ly:set-point-and-click 'line-column)
   4
   5 longgrace = \property Voice.Stem \override #'stroke-style = #'()
   6 endlonggrace = \property Voice.Stem \revert #'stroke-style
   7 ritenuto = \textscript #'(italic  "rit.")
   8
   9 \version "1.7.3"
  10
  11 #(define italic-bf '((font-shape . italic) (font-series . bold)))
  12
  13 \paper {
  14
  15   %% burp
  16   %% the very idea of a style sheet, is that it's easy to override
  17   %% it's gotten quite a bit better now!
  18
  19   %% ugh, need this line:
  20   foo = "bar"
  21
  22   #(define (set-style! name style)
  23      (set-cdr! (assoc name style-alist) style))
  24
  25   #(set-style! 'mark-letter '((font-family . roman)
  26                               (font-series . bold)
  27                               (font-shape . upright)
  28                               (font-relative-size . 3)))
  29 }
  30
  31
  32 cresc = \notes {
  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
  36 }
  37
  38 %%
  39 %% TODO: a better mechanism for tweaking Grace settings.
  40 %%
  41
  42 startGraceMusic = \sequential {
  43     \startGraceMusic
  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))
  47 }
  48
  49 stopGraceMusic= \sequential {
  50     \property Voice.Beam \revert #'thickness
  51     \property Voice.Beam \revert #'space-function
  52     \stopGraceMusic
  53 }
  54
  55 \paper{
  56     \translator {
  57         \ScoreContext
  58         skipBars = ##t
  59         midiInstrument = #"french horn"
  60         %% try to mimic Breitkopf
  61         RehearsalMark \override #'padding = #1
  62         MultiMeasureRest \override #'padding = #0.5
  63         restNumberThreshold = #1
  64
  65         Beam \override #'thickness = #0.6
  66         Beam \override #'space-function = #(lambda (beam mult) 0.8)
  67         Slur \override #'beautiful = #0.3
  68     }
  69     \translator {
  70         \StaffContext
  71         minimumVerticalExtent = #'(-4.5 . 4.5)
  72     }
  73     % #(define fonts my-sheet)
  74
  75     indent = 10. \mm
  76     linewidth = 189. \mm
  77
  78 }