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 \paper{
  31     \stylesheet #my-sheet
  32     \translator {
  33         \ScoreContext
  34         skipBars = ##t
  35         midiInstrument = #"french horn"
  36         %% try to mimic Breitkopf
  37         RehearsalMark \override #'padding = #1
  38         MultiMeasureRest \override #'padding = #0.5
  39         MultiMeasureRest \override #'number-threshold = #1
  40
  41         Beam \override #'thickness = #0.6
  42         Beam \override #'beam-space = #0.8
  43         Slur \override #'beautiful = #0.3
  44     }
  45     \translator {
  46         \StaffContext
  47         MinimumVerticalExtent = #'(-4.5 . 4.5)
  48     }
  49     indent = 10. \mm
  50     linewidth = 189. \mm
  51 }