ly/declarations-init.ly

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