ly/declarations-init.ly

   1 \version "2.3.16"
   2
   3 %% < 1.8 compatibility switch
   4 #(ly:set-option 'old-relative)
   5
   6 %% named durations
   7 breve = #(ly:make-duration -1 0)
   8 longa = #(ly:make-duration -2 0 )
   9 maxima = #(ly:make-duration -3 0)
  10
  11 \include "music-functions-init.ly"
  12
  13 %% default note names are dutch
  14 \include "nederlands.ly"
  15
  16 \include "drumpitch-init.ly"
  17 \include "chord-modifiers-init.ly"
  18 \include "script-init.ly"
  19
  20 % declarations for standard directions
  21 left = -1
  22 right = 1
  23 up = 1
  24 down = -1
  25 start = -1
  26 stop = 1
  27 smaller = -1
  28 bigger = 1
  29 center = 0
  30
  31 %% FIXME
  32 %% should also set allowBeamBreak, but how to do it "portably"? (ie. also
  33 %% working with lyric sections)
  34 %%
  35 %% try \once \set Score.allowBeamBreak = ##t
  36
  37 %% rather name \newline, \pageBreak ?
  38 break = #(make-event-chord (list (make-penalty-music -10001 0)))
  39 noBreak = #(make-event-chord (list (make-penalty-music 10001 0)))
  40 pageBreak = #(make-event-chord (list (make-penalty-music -10001 -10001)))
  41 noPageBreak = #(make-event-chord (list (make-penalty-music 0 10001)))
  42
  43 noBeam = #(make-music 'BeamForbidEvent)
  44 pipeSymbol = #(make-music 'BarCheck)
  45
  46 foo = { \pageBreak }
  47
  48 \include "scale-definitions-init.ly"
  49
  50 melisma = #(make-span-event 'ManualMelismaEvent START)
  51 melismaEnd = #(make-span-event 'ManualMelismaEvent STOP)
  52
  53 \include "grace-init.ly"
  54 \include "midi-init.ly"
  55 \include "book-paper-defaults.ly"
  56
  57 \paper {
  58     mm = #(ly:output-def-lookup $defaultbookpaper 'mm)
  59     unit = #(ly:output-def-lookup $defaultbookpaper 'unit)
  60
  61     in = #(* 25.4 mm)
  62     pt = #(/  in 72.27)
  63     cm = #(* 10 mm)
  64
  65     \include "engraver-init.ly"
  66 }
  67
  68
  69 #(set-default-paper-size "a4")
  70
  71
  72 partCombineListener = \paper {
  73     \context {
  74         \Voice
  75         \consists Note_heads_engraver
  76         \consists Rest_engraver
  77         \type "Recording_group_engraver"
  78         recordEventSequence = #notice-the-events-for-pc
  79     }
  80     \context {
  81         \Score
  82         skipTypesetting = ##t
  83     }
  84 }
  85
  86 #(set-part-combine-listener partCombineListener)
  87
  88 \include "dynamic-scripts-init.ly"
  89 \include "spanners-init.ly"
  90 \include "property-init.ly"
  91
  92 setDefaultDurationToQuarter = { c4 }
  93
  94 %% MAKE-HASH-TABLE in GUILE 1.6 takes mandatory size parameter.
  95 #(define musicQuotes (make-hash-table 29))
  96
  97 #(define toplevel-book-handler ly:parser-print-book)
  98 #(define toplevel-music-handler collect-music-for-book)
  99 #(define toplevel-score-handler collect-scores-for-book)