ly/declarations-init.ly

   1 #(ly:set-option 'old-relative)
   2
   3 \version "2.3.2"
   4 breve = #(ly:make-duration -1 0)
   5 longa = #(ly:make-duration -2 0 )
   6 maxima = #(ly:make-duration -3 0)
   7
   8 \include "music-functions-init.ly"
   9 \include "nederlands.ly"                % dutch
  10 \include "drumpitch-init.ly"
  11 \include "chord-modifiers-init.ly"
  12 \include "script-init.ly"
  13
  14 % declarations for standard directions
  15 left = -1
  16 right = 1
  17 up = 1
  18 down = -1
  19 start = -1
  20 stop = 1
  21 smaller = -1
  22 bigger = 1
  23 center=0
  24
  25 %{
  26
  27 should also set allowBeamBreak, but how to do it "portably"? (ie. also
  28 working with lyric sections)
  29
  30 %}
  31
  32 %% rather name \newline, \newpage ?
  33 break = #(make-event-chord (list (make-penalty-music -10001 0)))
  34 noBreak = #(make-event-chord (list (make-penalty-music 10001 0)))
  35 pagebreak = #(make-event-chord (list (make-penalty-music -10001 -10001)))
  36 noPagebreak = #(make-event-chord (list (make-penalty-music 0 10001)))
  37
  38 noBeam = #(make-music 'BeamForbidEvent)
  39 pipeSymbol = #(make-music 'BarCheck)
  40
  41 \include "scale-definitions-init.ly"
  42
  43 melisma = #(make-span-event 'ManualMelismaEvent START)
  44 melismaEnd = #(make-span-event 'ManualMelismaEvent STOP)
  45
  46 \include "grace-init.ly"
  47
  48 % ugh
  49 \include "midi-init.ly"
  50
  51
  52 % Do units first; must be done before any units are specified.
  53 \paper {
  54     unit = #(ly:unit)
  55     mm = 1.0
  56     in = 25.4
  57     pt = #(/  in 72.27)
  58     cm = #(* 10 mm)
  59
  60     inputencoding = #"TeX"
  61     raggedright = ##f
  62     raggedlast = ##f
  63     packed = ##f
  64
  65     #(define $is-paper #t)
  66
  67     #(define font-defaults
  68       '((font-encoding . fetaMusic)))
  69
  70     #(define text-font-defaults
  71       '((font-encoding . latin1)
  72         (baseline-skip . 2)
  73         (word-space . 0.6)))
  74
  75     #(define page-breaking ly:ragged-page-breaks)
  76     %%#(define page-breaking ly:optimal-page-breaks)
  77
  78     #(define page-to-stencil ly:page-header-lines-footer-stencil)
  79
  80     #(define make-header plain-header)
  81     #(define make-footer plain-footer)
  82     %%#(define make-footer empty-markup)
  83     #(define make-tagline TAGLINE-or-tagline-from-header)
  84     #(define make-copyright copyright-from-header)
  85
  86     \include "engraver-init.ly"
  87 }
  88
  89 %
  90 % 20pt staff, 5 pt = 1.75 mm
  91 %
  92
  93 #(define-public $defaultbookpaper (ly:make-bookpaper 1.7573))
  94
  95 \include "book-paper-defaults.ly"
  96
  97 #(set-default-paper-size "a4")
  98
  99
 100 %{
 101
 102 ; note:
 103 ; you can add fonts manually  in the paper block by issuing
 104
 105 #(set! fonts (append ...myfonts... fonts))
 106
 107 for the format of myfonts, see font.scm
 108
 109 %}
 110
 111 paperEleven = \paper {
 112     #(paper-set-staff-size (* 11.0 pt))
 113 }
 114
 115 paperThirteen = \paper {
 116     #(paper-set-staff-size (* 13.0 pt))
 117 }
 118
 119 paperSixteen = \paper {
 120     #(paper-set-staff-size (* 16.0 pt))
 121 }
 122
 123 paperEightteen = \paper {
 124     #(paper-set-staff-size (* 18.0 pt))
 125 }
 126
 127 paperTwenty = \paper {
 128     #(paper-set-staff-size (* 20.0 pt))
 129 }
 130
 131 paperTwentythree = \paper {
 132     #(paper-set-staff-size (* 23.0 pt))
 133 }
 134
 135 paperTwentysix = \paper {
 136     #(paper-set-staff-size (* 26.0 pt))
 137 }
 138
 139 \paper { \paperTwenty }
 140
 141 partCombineListener = \paper {
 142  \context {
 143           \Voice
 144           \consists Note_heads_engraver
 145           \consists Rest_engraver
 146           \type "Recording_group_engraver"
 147           recordEventSequence = #notice-the-events-for-pc
 148  }
 149  \context { \Score skipTypesetting = ##t }
 150 }
 151
 152 #(set-part-combine-listener partCombineListener)
 153
 154 \include "dynamic-scripts-init.ly"
 155 \include "spanners-init.ly"
 156
 157 \include "property-init.ly"
 158
 159 %% reset default duration
 160 unusedEntry = \notes { c4 }
 161
 162 %% must have size argument for GUILE 1.6 compat.
 163 #(define musicQuotes (make-hash-table 29))
 164
 165 %%#(define-public toplevel-music-handler ly:parser-add-book-and-score)
 166 #(define toplevel-book-handler default-toplevel-book-handler)
 167 #(define toplevel-music-handler default-toplevel-music-handler)
 168 #(define toplevel-score-handler default-toplevel-score-handler)
 169
 170 #(define toplevel-score-handler default-toplevel-score-handler)