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 "markup-init.ly"
12 \include "music-functions-init.ly"
14 %% default note names are dutch
15 \include "nederlands.ly"
17 \include "drumpitch-init.ly"
18 \include "chord-modifiers-init.ly"
19 \include "script-init.ly"
21 % declarations for standard directions
33 %% should also set allowBeamBreak, but how to do it "portably"? (ie. also
34 %% working with lyric sections)
36 %% try \once \set Score.allowBeamBreak = ##t
38 %% rather name \newline, \pageBreak ?
39 break
= #(make-event-chord
(list
(make-music
'LineBreakEvent
'break-permission
'force
)))
40 noBreak
= #(make-event-chord
(list
(make-music
'LineBreakEvent
'break-permission
'())))
41 pageBreak
= #(make-event-chord
(list
42 (make-music
'LineBreakEvent
'break-permission
'force
)
43 (make-music
'PageBreakEvent
'break-permission
'force
)))
44 noPageBreak
= #(make-event-chord
(list
(make-music
'PageBreakEvent
'break-permission
'())))
45 pageTurn
= #(make-event-chord
(list
46 (make-music
'LineBreakEvent
'break-permission
'force
)
47 (make-music
'PageBreakEvent
'break-permission
'force
)
48 (make-music
'PageTurnEvent
'break-permission
'force
)))
49 noPageTurn
= #(make-event-chord
(list
(make-music
'PageTurnEvent
'break-permission
'())))
50 allowPageTurn
= #(make-event-chord
(list
(make-music
'PageTurnEvent
'break-permission
'allow
)))
52 stopStaff
= #(make-event-chord
(list
(make-span-event
'StaffSpanEvent STOP
)))
53 startStaff
= #(make-event-chord
(list
(make-span-event
'StaffSpanEvent START
)))
57 % Code articulation definitions
59 noBeam
= #(make-music
'BeamForbidEvent
)
60 pipeSymbol
= #(make-music
'BarCheck
)
61 bracketOpenSymbol
= #(make-span-event
'BeamEvent START
)
62 bracketCloseSymbol
= #(make-span-event
'BeamEvent STOP
)
63 tildeSymbol
= #(make-music
'TieEvent
)
64 parenthesisOpenSymbol
= #(make-span-event
'SlurEvent START
)
65 parenthesisCloseSymbol
= #(make-span-event
'SlurEvent STOP
)
66 escapedExclamationSymbol
= #(make-span-event
'CrescendoEvent STOP
)
67 escapedParenthesisOpenSymbol
= #(make-span-event
'PhrasingSlurEvent START
)
68 escapedParenthesisCloseSymbol
= #(make-span-event
'PhrasingSlurEvent STOP
)
69 escapedBiggerSymbol
= #(make-span-event
'DecrescendoEvent START
)
70 escapedSmallerSymbol
= #(make-span-event
'CrescendoEvent START
)
74 \include "scale-definitions-init.ly"
76 melisma
= #(context-spec-music
(make-property-set
'melismaBusy
#t
) 'Bottom
)
77 melismaEnd
= #(context-spec-music
(make-property-unset
'melismaBusy
) 'Bottom
)
79 laissezVibrer
= #(make-music
'LaissezVibrerEvent
)
80 repeatTie
= #(make-music
'RepeatTieEvent
)
82 \include "grace-init.ly"
83 \include "midi-init.ly"
84 \include "paper-defaults.ly"
87 mm
= #(ly
:output-def-lookup $defaultpaper
'mm
)
88 unit
= #(ly
:output-def-lookup $defaultpaper
'unit
)
94 \include "engraver-init.ly"
96 #(set-paper-dimension-variables
(current-module
))
99 #(set-default-paper-size
(ly
:get-option
'paper-size
))
101 partCombineListener
= \layout {
104 skipTypesetting
= ##t
105 ignoreBarChecks
= ##t
110 \include "dynamic-scripts-init.ly"
111 \include "spanners-init.ly"
112 \include "property-init.ly"
114 setDefaultDurationToQuarter
= { c4 }
116 %% MAKE-HASH-TABLE in GUILE 1.6 takes mandatory size parameter.
117 #(define musicQuotes
(make-hash-table
29))
119 #(define toplevel-book-handler print-book-with-defaults
)
120 #(define toplevel-music-handler collect-music-for-book
)
121 #(define toplevel-score-handler collect-scores-for-book
)
122 #(define toplevel-text-handler collect-scores-for-book
)