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 %{
  14
  15 %% burp
  16 %% the very idea of a style sheet, is that it's easy to override
  17 %#(define (set-style! sheet name style)
  18 %  (set-cdr! (assoc 'mark-letter (cdr (assoc 'style-alist sheet))) style))
  19 %
  20 %#(define my-sheet (make-font-list 'paper20))
  21 %#(set-style! my-sheet 'mark-letter '((font-family . roman)
  22 %                                     (font-series . bold)
  23 %                                     (font-shape . upright)
  24 %                                     (font-relative-size . 3)))
  25
  26 #(define (set-style! xstyle-alist name style)
  27   (set-cdr! (assoc name xstyle-alist)) style)
  28
  29 #(set-style! style-alist 'mark-letter '((font-family . roman)
  30                                         (font-series . bold)
  31                                         (font-shape . upright)
  32                                         (font-relative-size . 3)))
  33
  34 %}
  35
  36 cresc = \notes {
  37     #(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent START))))
  38     \property Voice.crescendoText = #`(,italic-bf "cresc.")
  39     \property Voice.crescendoSpanner = #'dashed-line
  40 }
  41
  42 %%
  43 %% TODO: a better mechanism for tweaking Grace settings.
  44 %%
  45
  46 startGraceMusic = \sequential {
  47     \startGraceMusic
  48     \property Voice.Beam \override #'space-function
  49        = #(lambda (beam mult) (* 0.8 0.8))
  50     \property Voice.Beam \override #'thickness = #(* 0.384 (/ 0.6 0.48))
  51 }
  52
  53 stopGraceMusic= \sequential {
  54     \property Voice.Beam \revert #'thickness
  55     \property Voice.Beam \revert #'space-function
  56     \stopGraceMusic
  57 }
  58
  59 \paper{
  60 %    #(define fonts my-sheet)
  61     \translator {
  62         \ScoreContext
  63         skipBars = ##t
  64         midiInstrument = #"french horn"
  65         %% try to mimic Breitkopf
  66         RehearsalMark \override #'padding = #1
  67         MultiMeasureRest \override #'padding = #0.5
  68         restNumberThreshold = #1
  69
  70         Beam \override #'thickness = #0.6
  71         Beam \override #'space-function = #(lambda (beam mult) 0.8)
  72         Slur \override #'beautiful = #0.3
  73     }
  74     \translator {
  75         \StaffContext
  76         minimumVerticalExtent = #'(-4.5 . 4.5)
  77     }
  78     indent = 10. \mm
  79     linewidth = 189. \mm
  80
  81 }