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