]> git.donarmstrong.com Git - lilypond.git/blob - ly/property-init.ly
Add support for max-systems-per-page.
[lilypond.git] / ly / property-init.ly
1 % property-init.ly
2
3 \version "2.11.53"
4
5 stemUp = \override Stem #'direction = #UP
6 stemDown = \override Stem #'direction = #DOWN 
7 stemNeutral = \revert Stem #'direction
8
9 slurUp = \override Slur #'direction = #UP
10 slurDown = \override Slur #'direction = #DOWN
11 slurNeutral = \revert Slur #'direction
12
13 %% There's also dash, but setting dash period/length should be fixed.
14 slurDashed = {
15   \override Slur #'dash-period = #0.75
16   \override Slur #'dash-fraction = #0.4
17 }
18 slurDotted = {
19   \override Slur #'dash-period = #0.75
20   \override Slur #'dash-fraction = #0.1
21 }
22 slurSolid = {
23   \revert Slur #'dash-period
24   \revert Slur #'dash-fraction
25 }
26
27
28 phrasingSlurUp = \override PhrasingSlur #'direction = #UP
29 phrasingSlurDown = \override PhrasingSlur #'direction = #DOWN
30 phrasingSlurNeutral = \revert PhrasingSlur #'direction
31
32 mergeDifferentlyDottedOn = {
33   \override Staff.NoteCollision #'merge-differently-dotted = ##t
34 }
35 mergeDifferentlyDottedOff = {
36   \revert Staff.NoteCollision #'merge-differently-dotted
37 }
38
39 mergeDifferentlyHeadedOn = {
40   \override Staff.NoteCollision #'merge-differently-headed = ##t
41 }
42 mergeDifferentlyHeadedOff = {
43   \revert Staff.NoteCollision #'merge-differently-headed
44 }
45
46 shiftOn = \override NoteColumn #'horizontal-shift = #1
47 shiftOnn = \override NoteColumn #'horizontal-shift = #2
48 shiftOnnn = \override NoteColumn #'horizontal-shift = #3
49 shiftOff = \revert NoteColumn #'horizontal-shift
50
51 tieUp = \override Tie #'direction = #UP
52 tieDown = \override Tie #'direction = #DOWN
53 tieNeutral = \revert Tie #'direction
54
55 tieDashed = {
56   \override Tie #'dash-period = #0.75
57   \override Tie #'dash-fraction = #0.4
58 }
59 tieDotted = {
60   \override Tie #'dash-period = #0.75
61   \override Tie #'dash-fraction = #0.1
62 }
63 tieSolid = {
64   \revert Tie #'dash-period
65   \revert Tie #'dash-fraction
66 }
67
68 easyHeadsOn = {
69   \override NoteHead #'stencil = #ly:note-head::brew-ez-stencil
70   \override NoteHead #'font-size = #-7
71   \override NoteHead #'font-family = #'sans
72   \override NoteHead #'font-series = #'bold
73 }
74
75 easyHeadsOff = {
76   \revert NoteHead #'stencil
77   \revert NoteHead #'font-size
78   \revert NoteHead #'font-family
79   \revert NoteHead #'font-series
80 }
81
82 aikenHeads = \set shapeNoteStyles = #'#(do re mi fa #f la ti)
83
84 sacredHarpHeads = \set shapeNoteStyles = #'#(fa #f la fa #f la mi)
85
86 dynamicUp = {
87   \override DynamicText #'direction = #UP
88   \override DynamicLineSpanner #'direction = #UP
89 }
90
91 dynamicDown = {
92   \override DynamicText #'direction = #DOWN
93   \override DynamicLineSpanner #'direction = #DOWN
94 }
95
96 dynamicNeutral = {
97   \revert DynamicText #'direction
98   \revert DynamicLineSpanner #'direction
99 }
100
101
102 dotsUp = \override Dots #'direction = #UP
103 dotsDown = \override Dots #'direction = #DOWN
104 dotsNeutral = \revert Dots #'direction
105
106 tupletUp = \override TupletBracket #'direction = #UP
107 tupletDown = \override TupletBracket #'direction = #DOWN
108 tupletNeutral = \revert TupletBracket #'direction
109
110 cadenzaOn = \set Timing.timing = ##f
111 cadenzaOff = {
112   \set Timing.timing = ##t
113   \set Timing.measurePosition = #ZERO-MOMENT
114 }
115
116 % dynamic ly:dir?  text script, articulation script ly:dir? 
117 oneVoice = #(context-spec-music (make-voice-props-revert) 'Voice)
118 voiceOne = #(context-spec-music (make-voice-props-set 0) 'Voice)
119 voiceTwo = #(context-spec-music (make-voice-props-set 1) 'Voice)
120 voiceThree = #(context-spec-music (make-voice-props-set 2) 'Voice)
121 voiceFour = #(context-spec-music (make-voice-props-set 3) 'Voice)
122
123 voiceOneStyle = {
124   \override NoteHead #'style = #'diamond
125   \override NoteHead #'color = #red
126   \override Stem #'color = #red
127   \override Beam #'color = #red
128 }
129 voiceTwoStyle = {
130   \override NoteHead #'style = #'triangle
131   \override NoteHead #'color = #blue
132   \override Stem #'color = #blue
133   \override Beam #'color = #blue
134 }
135 voiceThreeStyle = {
136   \override NoteHead #'style = #'xcircle
137   \override NoteHead #'color = #green
138   \override Stem #'color = #green
139   \override Beam #'color = #green
140 }
141 voiceFourStyle = {
142   \override NoteHead #'style = #'cross
143   \override NoteHead #'color = #magenta
144   \override Stem #'color = #magenta
145   \override Beam #'color = #magenta
146 }
147 voiceNeutralStyle = {
148   \revert NoteHead #'style
149   \revert NoteHead #'color
150   \revert Stem #'color
151   \revert Beam #'color
152 }
153
154 teeny = {
155   \set fontSize = #-3
156 }
157
158 tiny = {
159   \set fontSize = #-2
160 }
161
162 small = {
163   \set fontSize = #-1
164 }
165
166 normalsize = {
167   \set fontSize = #0
168 }
169
170 large = {
171   \set fontSize = #1
172 }
173
174 huge = {
175   \set fontSize = #2
176 }
177
178 %% End the incipit and print a ``normal line start''.
179 endincipit = \context Staff {
180   \partial 16 s16  % Hack to handle e.g. \bar ".|" \endincipit
181   \once \override Staff.Clef #'full-size-change = ##t
182   \once \override Staff.Clef #'non-default = ##t
183   \bar ""
184 }
185
186 autoBeamOff = \set autoBeaming = ##f
187 autoBeamOn = \set autoBeaming = ##t
188
189 textLengthOn = {
190   \override TextScript #'extra-spacing-width = #'(0 . 0)
191   \override TextScript #'extra-spacing-height = #'(-inf.0 . +inf.0)
192 }
193
194 textLengthOff = {
195   \override TextScript #'extra-spacing-width = #'(+inf.0 . -inf.0)
196   \override TextScript #'extra-spacing-height = #'(0 . 0)
197 }
198
199 balloonLengthOn = {
200   \override BalloonTextItem #'extra-spacing-width = #'(0 . 0)
201   \override BalloonTextItem #'extra-spacing-height = #'(-inf.0 . +inf.0)
202 }
203
204 balloonLengthOff = {
205   \override BalloonTextItem #'extra-spacing-width = #'(+inf.0 . -inf.0)
206   \override BalloonTextItem #'extra-spacing-height = #'(0 . 0)
207 }
208
209
210 showStaffSwitch = \set followVoice = ##t
211 hideStaffSwitch = \set followVoice = ##f
212
213 expandFullBarRests = {
214   \set Score.skipBars = ##f
215 }
216
217 compressFullBarRests = {
218   \set Score.skipBars = ##t
219 }
220
221 numericTimeSignature = {
222   \override Staff.TimeSignature #'style = #'()
223 }
224
225 defaultTimeSignature = {
226   \revert Staff.TimeSignature #'style
227 }
228
229
230 % For drawing vertical chord brackets with \arpeggio
231 % This is a shorthand for the value of the print-function property 
232 % of either Staff.Arpeggio or PianoStaff.Arpeggio, depending whether 
233 % cross-staff brackets are desired. 
234
235 arpeggio = #(make-music 'ArpeggioEvent)
236
237 arpeggioArrowUp = {
238   \revert Arpeggio  #'stencil
239   \revert Arpeggio #'X-extent
240   \override Arpeggio  #'arpeggio-direction = #UP
241 }
242 arpeggioArrowDown = {
243   \revert Arpeggio #'stencil
244   \revert Arpeggio #'X-extent
245   \override Arpeggio  #'arpeggio-direction = #DOWN
246 }
247 arpeggioNormal = {
248   \revert Arpeggio #'stencil
249   \revert Arpeggio #'X-extent
250   \revert Arpeggio  #'arpeggio-direction
251 }
252 arpeggioBracket = {
253   \revert Arpeggio #'X-extent
254   \override Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket
255 }
256 arpeggioParenthesis = {
257   \override Arpeggio #'stencil = #ly:arpeggio::brew-chord-slur
258   \override Arpeggio #'X-extent = #ly:grob::stencil-width
259 }
260
261 glissando = #(make-music 'GlissandoEvent)
262
263 fermataMarkup = \markup { \musicglyph #"scripts.ufermata" } 
264
265 hideNotes = {
266   % hide notes, accidentals, etc.
267   \override Dots #'transparent = ##t
268   \override NoteHead #'transparent = ##t
269   \override NoteHead #'no-ledgers = ##t
270   \override Stem #'transparent = ##t
271   \override Beam #'transparent = ##t
272   \override Accidental #'transparent = ##t
273 }
274
275
276 unHideNotes = {
277   \revert Accidental #'transparent
278   \revert Beam #'transparent
279   \revert Stem #'transparent
280   \revert NoteHead #'transparent
281   \revert NoteHead #'no-ledgers
282   \revert Dots #'transparent
283 }
284
285 germanChords = {
286   \set chordRootNamer = #(chord-name->german-markup #t)
287   \set chordNoteNamer = #note-name->german-markup
288 }
289 semiGermanChords = {
290   \set chordRootNamer = #(chord-name->german-markup #f)
291   \set chordNoteNamer = #note-name->german-markup
292 }
293
294 frenchChords = {
295   \set chordRootNamer = #(chord-name->italian-markup #t)
296   \set chordPrefixSpacer = #0.4
297 }
298
299 italianChords = {
300   \set chordRootNamer = #(chord-name->italian-markup #f)
301   \set chordPrefixSpacer = #0.4
302 }
303
304 improvisationOn = {
305   \set squashedPosition = #0
306   \override NoteHead #'style = #'slash
307   \override Accidental #'stencil = ##f
308 }
309
310 improvisationOff = {
311   \unset squashedPosition
312   \revert NoteHead #'style
313   \revert Accidental #'stencil
314 }
315
316 textSpannerUp = \override TextSpanner #'direction = #UP
317 textSpannerDown = \override TextSpanner #'direction = #DOWN
318 textSpannerNeutral = \revert TextSpanner #'direction
319
320
321
322 bassFigureExtendersOn = {
323   \set useBassFigureExtenders = ##t
324   \set Staff.useBassFigureExtenders = ##t
325 }
326
327 bassFigureExtendersOff = {
328   \set useBassFigureExtenders = ##f
329   \set Staff.useBassFigureExtenders = ##f
330 }
331
332 bassFigureStaffAlignmentDown = {
333   \override Staff.BassFigureAlignmentPositioning #'direction = #DOWN
334 }
335
336 bassFigureStaffAlignmentUp = {
337   \override Staff.BassFigureAlignmentPositioning #'direction = #UP
338 }
339
340 bassFigureStaffAlignmentNeutral = {
341   \revert Staff.BassFigureAlignmentPositioning #'direction
342 }
343
344 predefinedFretboardsOff = {  
345   \set FretBoards.predefinedDiagramTable = ##f
346 }
347
348 predefinedFretboardsOn = {
349   \set FretBoards.predefinedDiagramTable = #fretboard-table
350 }
351
352 pointAndClickOff = #(define-music-function (parser location) ()
353                       (ly:set-option 'point-and-click #f)
354                       (make-music 'SequentialMusic 'void #t))
355
356 pointAndClickOn = #(define-music-function (parser location) ()
357                       (ly:set-option 'point-and-click #t)
358                       (make-music 'SequentialMusic 'void #t))