]> git.donarmstrong.com Git - lilypond.git/blob - ly/property-init.ly
Merge branch 'master' of ssh+git://git.sv.gnu.org/srv/git/lilypond
[lilypond.git] / ly / property-init.ly
1 % property-init.ly
2
3 \version "2.11.38"
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 shiftOn = \override NoteColumn  #'horizontal-shift = #1
33 shiftOnn = \override NoteColumn  #'horizontal-shift = #2
34 shiftOnnn = \override NoteColumn  #'horizontal-shift = #3
35 shiftOff = \revert NoteColumn #'horizontal-shift
36
37 tieUp = \override Tie  #'direction = #UP
38 tieDown = \override Tie  #'direction = #DOWN
39 tieNeutral = \revert Tie #'direction
40
41 tieDashed = {
42   \override Tie #'dash-period = #0.75
43   \override Tie #'dash-fraction = #0.4
44 }
45 tieDotted = {
46   \override Tie #'dash-period = #0.75
47   \override Tie #'dash-fraction = #0.1
48 }
49 tieSolid = {
50   \revert Tie #'dash-period
51   \revert Tie #'dash-fraction
52 }
53
54 easyHeadsOn = {
55   \override NoteHead  #'stencil = #ly:note-head::brew-ez-stencil
56   \override NoteHead #'font-size = #-7
57   \override NoteHead #'font-family = #'sans
58   \override NoteHead #'font-series = #'bold
59 }
60
61 easyHeadsOff = {
62   \revert NoteHead #'stencil
63   \revert NoteHead #'font-size
64   \revert NoteHead #'font-family
65   \revert NoteHead #'font-series
66 }
67
68 aikenHeads = \set shapeNoteStyles = ##(do re mi fa #f la ti)
69
70 sacredHarpHeads =
71   \set shapeNoteStyles = ##(fa #f la fa #f la mi)
72
73 dynamicUp = {
74   \override DynamicText  #'direction = #UP
75   \override DynamicLineSpanner  #'direction = #UP
76 }
77
78 dynamicDown = {
79   \override DynamicText  #'direction = #DOWN
80   \override DynamicLineSpanner  #'direction = #DOWN
81 }
82
83 dynamicNeutral = {
84   \revert DynamicText #'direction
85   \revert DynamicLineSpanner #'direction
86 }
87
88
89 dotsUp = \override Dots  #'direction = #UP
90 dotsDown = \override Dots  #'direction = #DOWN
91 dotsNeutral = \revert Dots #'direction 
92
93 tupletUp = \override TupletBracket  #'direction = #UP
94 tupletDown = \override TupletBracket  #'direction = #DOWN
95 tupletNeutral = \revert TupletBracket #'direction
96
97 cadenzaOn = \set Timing.timing = ##f
98 cadenzaOff = {
99   \set Timing.timing = ##t
100   \set Timing.measurePosition = #ZERO-MOMENT
101 }
102
103 % dynamic ly:dir?  text script, articulation script ly:dir?     
104 oneVoice = #(context-spec-music (make-voice-props-revert) 'Voice)
105 voiceOne = #(context-spec-music (make-voice-props-set 0) 'Voice)
106 voiceTwo = #(context-spec-music (make-voice-props-set 1) 'Voice)
107 voiceThree =#(context-spec-music (make-voice-props-set 2) 'Voice)
108 voiceFour = #(context-spec-music (make-voice-props-set 3) 'Voice)
109
110 voiceOneStyle = {
111   \override NoteHead #'style = #'diamond
112   \override NoteHead #'color = #red
113   \override Stem #'color = #red
114   \override Beam #'color = #red
115 }
116 voiceTwoStyle = {
117   \override NoteHead #'style = #'triangle
118   \override NoteHead #'color = #blue
119   \override Stem #'color = #blue
120   \override Beam #'color = #blue
121 }
122 voiceThreeStyle = {
123   \override NoteHead #'style = #'xcircle
124   \override NoteHead #'color = #green
125   \override Stem #'color = #green
126   \override Beam #'color = #green
127 }
128 voiceFourStyle = {
129   \override NoteHead #'style = #'cross
130   \override NoteHead #'color = #magenta
131   \override Stem #'color = #magenta
132   \override Beam #'color = #magenta
133 }
134 voiceNeutralStyle = {
135   \revert NoteHead #'style
136   \revert NoteHead #'color
137   \revert Stem #'color
138   \revert Beam #'color
139 }
140
141         
142 tiny = {
143   \set fontSize = #-2
144 }
145
146 small = {
147   \set fontSize = #-1
148 }
149
150 normalsize = {
151   \set fontSize = #0
152 }
153
154 large = {
155   \set fontSize = #1
156 }
157
158 huge = {
159   \set fontSize = #2
160 }
161
162 %% End the incipit and print a ``normal line start''.
163 endincipit =  \context Staff {
164   \partial 16 s16  % Hack to handle e.g. \bar ".|" \endincipit
165   \once \override Staff.Clef  #'full-size-change = ##t
166   \once \override Staff.Clef  #'non-default = ##t
167   \bar ""
168 }
169
170 autoBeamOff = \set autoBeaming = ##f
171 autoBeamOn = \set autoBeaming = ##t
172
173 textLengthOn = {
174   \override TextScript  #'extra-spacing-width = #'(0 . 0)
175   \override TextScript  #'infinite-spacing-height = ##t
176 }
177
178 textLengthOff = {
179   \override TextScript  #'extra-spacing-width = #'(+inf.0 . -inf.0)
180   \override TextScript  #'infinite-spacing-height = ##f
181 }
182
183 showStaffSwitch = \set followVoice = ##t
184 hideStaffSwitch = \set followVoice = ##f
185
186 expandFullBarRests = {
187   \set Score.skipBars = ##f
188 }
189
190 compressFullBarRests = {
191   \set Score.skipBars = ##t
192 }
193
194
195 % For drawing vertical chord brackets with \arpeggio
196 % This is a shorthand for the value of the print-function property 
197 % of either Staff.Arpeggio or PianoStaff.Arpeggio, depending whether 
198 % cross-staff brackets are desired. 
199
200 arpeggio = #(make-music 'ArpeggioEvent)
201
202 arpeggioUp = \sequential {
203   \revert Arpeggio  #'stencil
204   \override Arpeggio  #'arpeggio-direction = #UP
205 }
206 arpeggioDown = \sequential {
207   \revert Arpeggio #'stencil
208   \override Arpeggio  #'arpeggio-direction = #DOWN
209 }
210 arpeggioNeutral = \sequential {
211   \revert Arpeggio #'stencil
212   \revert Arpeggio  #'arpeggio-direction
213 }
214 arpeggioBracket = \sequential {
215   \override Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket
216 }
217
218 glissando = #(make-music 'GlissandoEvent)
219
220 fermataMarkup = \markup { \musicglyph #"scripts.ufermata" } 
221
222 hideNotes =\sequential {
223   % hide notes, accidentals, etc.
224   \override Dots  #'transparent = ##t
225   \override NoteHead  #'transparent = ##t
226   \override NoteHead  #'no-ledgers = ##t
227   \override Stem  #'transparent = ##t
228   \override Beam  #'transparent = ##t
229   \override Accidental  #'transparent = ##t
230 }
231
232
233 unHideNotes = \sequential {
234   \revert Accidental #'transparent
235   \revert Beam #'transparent
236   \revert Stem #'transparent
237   \revert NoteHead #'transparent
238   \revert NoteHead #'no-ledgers
239   \revert Dots #'transparent 
240 }
241
242 germanChords = {
243     \set chordRootNamer = #(chord-name->german-markup #t)
244     \set chordNoteNamer = #note-name->german-markup
245 }
246 semiGermanChords = {
247     \set chordRootNamer = #(chord-name->german-markup #f)
248     \set chordNoteNamer = #note-name->german-markup
249 }
250
251 frenchChords = {
252     \set chordRootNamer = #(chord-name->italian-markup #t)
253     \set chordPrefixSpacer = #0.4
254 }
255
256 italianChords = {
257     \set chordRootNamer = #(chord-name->italian-markup #f)
258     \set chordPrefixSpacer = #0.4
259 }
260
261 improvisationOn =  {
262     \set squashedPosition = #0
263     \override NoteHead  #'style = #'slash
264     \override Accidental #'stencil = ##f
265 }
266
267 improvisationOff =  {
268     \unset squashedPosition 
269     \revert NoteHead #'style
270     \revert Accidental #'stencil
271 }
272
273 textSpannerUp = \override TextSpanner #'direction = #UP
274 textSpannerDown = \override TextSpanner #'direction = #DOWN
275 textSpannerNeutral = \revert TextSpanner #'direction
276
277