3 %% < 1.8 compatibility switch
4 #(ly:set-option 'old-relative)
7 breve = #(ly:make-duration -1 0)
8 longa = #(ly:make-duration -2 0 )
9 maxima = #(ly:make-duration -3 0)
11 \include "music-functions-init.ly"
13 %% default note names are dutch
14 \include "nederlands.ly"
16 \include "drumpitch-init.ly"
17 \include "chord-modifiers-init.ly"
18 \include "script-init.ly"
20 % declarations for standard directions
32 %% should also set allowBeamBreak, but how to do it "portably"? (ie. also
33 %% working with lyric sections)
35 %% try \once \set Score.allowBeamBreak = ##t
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)))
45 % Code articulation definitions
47 noBeam = #(make-music 'BeamForbidEvent)
48 pipeSymbol = #(make-music 'BarCheck)
49 bracketOpenSymbol = #(make-span-event 'BeamEvent START)
50 bracketCloseSymbol = #(make-span-event 'BeamEvent STOP)
51 tildeSymbol = #(make-music 'TieEvent)
52 parenthesisOpenSymbol = #(make-span-event 'SlurEvent START)
53 parenthesisCloseSymbol = #(make-span-event 'SlurEvent STOP)
54 escapedExclamationSymbol = #(make-span-event 'CrescendoEvent STOP)
55 escapedParenthesisOpenSymbol = #(make-span-event 'PhrasingSlurEvent START)
56 escapedParenthesisCloseSymbol = #(make-span-event 'PhrasingSlurEvent STOP)
57 escapedBiggerSymbol = #(make-span-event 'DecrescendoEvent START)
58 escapedSmallerSymbol = #(make-span-event 'CrescendoEvent START)
64 \include "scale-definitions-init.ly"
66 melisma = #(make-span-event 'ManualMelismaEvent START)
67 melismaEnd = #(make-span-event 'ManualMelismaEvent STOP)
69 \include "grace-init.ly"
70 \include "midi-init.ly"
71 \include "book-paper-defaults.ly"
74 mm = #(ly:output-def-lookup $defaultbookpaper 'mm)
75 unit = #(ly:output-def-lookup $defaultbookpaper 'unit)
81 \include "engraver-init.ly"
85 #(set-default-paper-size "a4")
88 partCombineListener = \paper {
91 \consists Note_heads_engraver
92 \consists Rest_engraver
93 \type "Recording_group_engraver"
94 recordEventSequence = #notice-the-events-for-pc
102 #(set-part-combine-listener partCombineListener)
104 \include "dynamic-scripts-init.ly"
105 \include "spanners-init.ly"
106 \include "property-init.ly"
108 setDefaultDurationToQuarter = { c4 }
110 %% MAKE-HASH-TABLE in GUILE 1.6 takes mandatory size parameter.
111 #(define musicQuotes (make-hash-table 29))
113 #(define toplevel-book-handler ly:parser-print-book)
114 #(define toplevel-music-handler collect-music-for-book)
115 #(define toplevel-score-handler collect-scores-for-book)