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.47"
  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 startGraceContextOrig = \startGraceContext
  31
  32 startGraceContext = {
  33     %% Huh?
  34     %% \startGraceContextOrig
  35
  36
  37     %%URG copy from original
  38     \property Voice.Stem \override  #'direction = #1
  39     \property Voice.Stem \override #'length = #6
  40     \property Voice.Stem \override #'lengths =
  41         #(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0))
  42     \property Voice.Stem \override #'beamed-lengths =
  43         #(map (lambda (x) (* 0.8 x)) '(0.0 2.5 2.0 1.5))
  44     \property Voice.Stem \override #'beamed-minimum-lengths =
  45         #(map (lambda (x) (* 0.8 x)) '(0.0 1.5 1.25 1.0))
  46     \property Voice.Stem \override #'no-stem-extend = ##t
  47     \property Voice.Stem \override #'flag-style  = #"grace"
  48     \property Voice.Beam \override #'thickness = #0.384
  49
  50     %% Instead of calling Beam::space_function, we should invoke
  51     %% the previously active beam function...
  52     \property Voice.Beam \override #'space-function =
  53       #(lambda (beam mult) (* 0.8 (Beam::space_function beam mult)))
  54
  55     \property Voice.Beam \override #'position-callbacks =
  56       #`(,Beam::least_squares
  57          ,Beam::check_concave
  58          ,Beam::slope_damping)
  59
  60     % Can't use Staff.fontSize, since time sigs, keys sigs, etc. will
  61     % be smaller as well.
  62
  63     \property Voice.fontSize = #-2
  64     \property Staff.Accidentals \override #'font-relative-size = #-2
  65     \property Voice.Slur \override #'direction = #-1
  66     %% end copy
  67
  68
  69     \property Voice.Beam \revert #'space-function
  70     \property Voice.Beam \override #'space-function
  71        = #(lambda (beam mult) (* 0.8 0.8))
  72     \property Voice.Beam \revert #'thickness
  73     \property Voice.Beam \override #'thickness = #(* 0.384 (/ 0.6 0.48))
  74 }
  75
  76 \paper{
  77     \stylesheet #my-sheet
  78     \translator {
  79         \ScoreContext
  80         skipBars = ##t
  81         midiInstrument = #"french horn"
  82         %% try to mimic Breitkopf
  83         RehearsalMark \override #'padding = #1
  84         MultiMeasureRest \override #'padding = #0.5
  85         MultiMeasureRest \override #'number-threshold = #1
  86
  87         Beam \override #'thickness = #0.6
  88         Beam \override #'space-function = #(lambda (beam mult) 0.8)
  89         Slur \override #'beautiful = #0.3
  90     }
  91     \translator {
  92         \StaffContext
  93         MinimumVerticalExtent = #'(-4.5 . 4.5)
  94     }
  95     indent = 10. \mm
  96     linewidth = 189. \mm
  97 }