ly/declarations-init.ly

   1 #(ly:set-option 'old-relative)
   2
   3 \version "2.1.19"
   4 breve = #(ly:make-duration -1 0)
   5 longa = #(ly:make-duration -2 0 )
   6 maxima = #(ly:make-duration -3 0)
   7
   8 \include "nederlands.ly"                % dutch
   9 \include "drumpitch-init.ly"
  10 \include "chord-modifiers-init.ly"
  11 \include "script-init.ly"
  12
  13 % declarations for standard directions
  14 left = -1
  15 right = 1
  16 up = 1
  17 down = -1
  18 start = -1
  19 stop = 1
  20 smaller = -1
  21 bigger = 1
  22 center=0
  23
  24 %{
  25
  26 should also set allowBeamBreak, but how to do it "portably"? (ie. also
  27 working with lyric sections)
  28
  29 %}
  30 break =#(make-event-chord (list (make-penalty-music -10001)))
  31 noBreak =  #(make-event-chord (list (make-penalty-music 10001)))
  32
  33 \include "scale-definitions-init.ly"
  34
  35 melisma = \property Staff.melismaBusy = ##t
  36 melismaEnd = \property Staff.melismaBusy = ##f
  37
  38
  39 \include "grace-init.ly"
  40
  41 % ugh
  42 \include "midi-init.ly"
  43
  44
  45 % Do units first; must be done before any units are specified.
  46 \paper {
  47     unit = "mm"
  48     mm = 1.0
  49     in = 25.4
  50     pt = #(/  in 72.27)
  51     cm = #(* 10 mm)
  52
  53     texsetting = ""
  54     pssetting = ""
  55     scmsetting = "(lilyponddefs.ps) findlibfile {exch pop //systemdict /run get exec} { /undefinedfilename signalerror } ifelse\n"% UGH.
  56
  57
  58     #(define font-defaults
  59       '((font-family . music)
  60         (font-shape . upright)
  61         (baseline-skip . 2)
  62         (word-space . 0.6)
  63         (font-series . medium)
  64     ))
  65
  66     \include "engraver-init.ly"
  67 }
  68
  69 #(set-paper-size "a4")
  70
  71
  72 %{
  73
  74 ; note:
  75 ; you can add fonts manually  in the paper block by issuing
  76
  77 #(set! fonts (append ...myfonts... fonts))
  78
  79 for the format of myfonts, see font.scm
  80
  81 %}
  82
  83
  84 paperEleven = \paper {
  85     #(paper-set-staff-size (* 11.0 pt))
  86 }
  87
  88 paperThirteen = \paper {
  89     #(paper-set-staff-size (* 13.0 pt))
  90 }
  91
  92 paperSixteen = \paper {
  93     #(paper-set-staff-size (* 16.0 pt))
  94 }
  95
  96 paperEightteen = \paper {
  97     #(paper-set-staff-size (* 18.0 pt))
  98 }
  99
 100 paperTwenty = \paper {
 101     #(paper-set-staff-size (* 20.0 pt))
 102 }
 103
 104 paperTwentythree = \paper {
 105     #(paper-set-staff-size (* 23.0 pt))
 106 }
 107
 108 paperTwentysix = \paper {
 109     #(paper-set-staff-size (* 26.0 pt))
 110 }
 111
 112 \paper { \paperTwenty }
 113
 114 partCombineListener = \paper {
 115  \translator {
 116           \VoiceContext
 117           \consists Note_heads_engraver
 118           \consists Rest_engraver
 119           \type "Recording_group_engraver"
 120           recordEventSequence = #notice-the-events-for-pc
 121  }
 122  \translator { \ScoreContext skipTypesetting = ##t }
 123 }
 124
 125 #(set-part-combine-listener partCombineListener)
 126
 127 \include "dynamic-scripts-init.ly"
 128 \include "spanners-init.ly"
 129
 130 \include "property-init.ly"
 131
 132
 133
 134 % reset default duration
 135 unusedEntry = \notes { c4 }
 136
 137 % music = "\melodic\relative c"
 138