5 %% for dashed slurs, phrasing slurs, and ties
6 #(define (make-simple-dash-definition dash-fraction dash-period)
7 (list (list 0 1 dash-fraction dash-period)))
12 % For drawing vertical chord brackets with \arpeggio
13 % This is a shorthand for the value of the print-function property
14 % of either Staff.Arpeggio or PianoStaff.Arpeggio, depending whether
15 % cross-staff brackets are desired.
17 arpeggio = #(make-music 'ArpeggioEvent)
19 \revert Arpeggio #'stencil
20 \revert Arpeggio #'X-extent
21 \override Arpeggio #'arpeggio-direction = #UP
24 \revert Arpeggio #'stencil
25 \revert Arpeggio #'X-extent
26 \override Arpeggio #'arpeggio-direction = #DOWN
29 \revert Arpeggio #'stencil
30 \revert Arpeggio #'X-extent
31 \revert Arpeggio #'arpeggio-direction
32 \revert Arpeggio #'dash-definition
35 \revert Arpeggio #'X-extent
36 \override Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket
38 arpeggioParenthesis = {
39 \override Arpeggio #'stencil = #ly:arpeggio::brew-chord-slur
40 \override Arpeggio #'X-extent = #ly:grob::stencil-width
41 \revert Arpeggio #'dash-definition
43 arpeggioParenthesisDashed = {
44 \override Arpeggio #'stencil = #ly:arpeggio::brew-chord-slur
45 \override Arpeggio #'X-extent = #ly:grob::stencil-width
46 \override Arpeggio #'dash-definition = #'((0 1 0.4 0.75))
52 autoBeamOn = \set autoBeaming = ##t
53 autoBeamOff = \set autoBeaming = ##f
59 \override BalloonTextItem #'extra-spacing-width = #'(0 . 0)
60 \override BalloonTextItem #'extra-spacing-height = #'(-inf.0 . +inf.0)
63 \override BalloonTextItem #'extra-spacing-width = #'(+inf.0 . -inf.0)
64 \override BalloonTextItem #'extra-spacing-height = #'(0 . 0)
70 bassFigureExtendersOn = {
71 \set useBassFigureExtenders = ##t
72 \set Staff.useBassFigureExtenders = ##t
74 bassFigureExtendersOff = {
75 \set useBassFigureExtenders = ##f
76 \set Staff.useBassFigureExtenders = ##f
78 bassFigureStaffAlignmentDown =
79 \override Staff.BassFigureAlignmentPositioning #'direction = #DOWN
80 bassFigureStaffAlignmentUp =
81 \override Staff.BassFigureAlignmentPositioning #'direction = #UP
82 bassFigureStaffAlignmentNeutral =
83 \revert Staff.BassFigureAlignmentPositioning #'direction
88 cadenzaOn = \set Timing.timing = ##f
90 \set Timing.timing = ##t
91 \set Timing.measurePosition = #ZERO-MOMENT
98 \set chordRootNamer = #(chord-name->italian-markup #t)
99 \set chordPrefixSpacer = #0.4
102 \set chordRootNamer = #(chord-name->german-markup #t)
103 \set chordNoteNamer = #note-name->german-markup
106 \set chordRootNamer = #(chord-name->german-markup #f)
107 \set chordNoteNamer = #note-name->german-markup
110 \set chordRootNamer = #(chord-name->italian-markup #f)
111 \set chordPrefixSpacer = #0.4
115 %% compressFullBarRests
117 compressFullBarRests = \set Score.skipBars = ##t
118 expandFullBarRests = \set Score.skipBars = ##f
123 dotsUp = \override Dots #'direction = #UP
124 dotsDown = \override Dots #'direction = #DOWN
125 dotsNeutral = \revert Dots #'direction
131 \override DynamicText #'direction = #UP
132 \override DynamicLineSpanner #'direction = #UP
135 \override DynamicText #'direction = #DOWN
136 \override DynamicLineSpanner #'direction = #DOWN
139 \revert DynamicText #'direction
140 \revert DynamicLineSpanner #'direction
147 \override NoteHead #'stencil = #note-head::brew-ez-stencil
148 \override NoteHead #'font-size = #-8
149 \override NoteHead #'font-family = #'sans
150 \override NoteHead #'font-series = #'bold
153 \revert NoteHead #'stencil
154 \revert NoteHead #'font-size
155 \revert NoteHead #'font-family
156 \revert NoteHead #'font-series
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
174 #(make-music 'MultiMeasureTextEvent
175 ; Set the 'text based on the 'direction
176 'tweaks (list (cons 'text (lambda (grob)
177 (if (eq? (ly:grob-property grob 'direction) DOWN)
178 (markup #:musicglyph "scripts.dfermata")
179 (markup #:musicglyph "scripts.ufermata"))))))
184 teeny = \set fontSize = #-3
185 tiny = \set fontSize = #-2
186 small = \set fontSize = #-1
187 normalsize = \set fontSize = #0
188 large = \set fontSize = #1
189 huge = \set fontSize = #2
194 glissando = #(make-music 'GlissandoEvent)
199 harmonicsOn = \override NoteHead #'style = #'harmonic
200 harmonicsOff = \revert NoteHead #'style
206 % hide notes, accidentals, etc.
207 \override Dots #'transparent = ##t
208 \override NoteHead #'transparent = ##t
209 \override NoteHead #'no-ledgers = ##t
210 \override Stem #'transparent = ##t
211 \override Beam #'transparent = ##t
212 \override Accidental #'transparent = ##t
215 \revert Accidental #'transparent
216 \revert Beam #'transparent
217 \revert Stem #'transparent
218 \revert NoteHead #'transparent
219 \revert NoteHead #'no-ledgers
220 \revert Dots #'transparent
227 \set squashedPosition = #0
228 \override NoteHead #'style = #'slash
229 \override Accidental #'stencil = ##f
232 \unset squashedPosition
233 \revert NoteHead #'style
234 \revert Accidental #'stencil
240 mergeDifferentlyDottedOn =
241 \override Staff.NoteCollision #'merge-differently-dotted = ##t
242 mergeDifferentlyDottedOff =
243 \revert Staff.NoteCollision #'merge-differently-dotted
244 mergeDifferentlyHeadedOn =
245 \override Staff.NoteCollision #'merge-differently-headed = ##t
246 mergeDifferentlyHeadedOff =
247 \revert Staff.NoteCollision #'merge-differently-headed
250 %% numeric time signature
252 numericTimeSignature = \override Staff.TimeSignature #'style = #'()
253 defaultTimeSignature = \revert Staff.TimeSignature #'style
259 #(define-music-function (parser location) ()
260 (override-head-style 'NoteHead 'do))
262 #(define-music-function (parser location) ()
263 (revert-head-style 'NoteHead))
265 #(define-music-function (parser location note) (ly:music?)
266 (style-note-heads 'NoteHead 'do note))
272 phrasingSlurUp = \override PhrasingSlur #'direction = #UP
273 phrasingSlurDown = \override PhrasingSlur #'direction = #DOWN
274 phrasingSlurNeutral = \revert PhrasingSlur #'direction
276 % dash-patterns (make-simple-dash-definition defined at top of file)
277 phrasingSlurDashPattern =
278 #(define-music-function (parser location dash-fraction dash-period)
281 \override PhrasingSlur #'dash-definition =
282 $(make-simple-dash-definition dash-fraction dash-period)
285 \override PhrasingSlur #'dash-definition = #'((0 1 0.4 0.75))
287 \override PhrasingSlur #'dash-definition = #'((0 1 0.1 0.75))
288 phrasingSlurHalfDashed =
289 \override PhrasingSlur #'dash-definition = #'((0 0.5 0.4 0.75)
291 phrasingSlurHalfSolid =
292 \override PhrasingSlur #'dash-definition = #'((0 0.5 1 1)
295 \revert PhrasingSlur #'dash-definition
301 #(define-music-function (parser location) ()
302 (ly:set-option 'point-and-click #t)
303 (make-music 'SequentialMusic 'void #t))
305 #(define-music-function (parser location) ()
306 (ly:set-option 'point-and-click #f)
307 (make-music 'SequentialMusic 'void #t))
310 %% predefined fretboards
312 predefinedFretboardsOff =
313 \set FretBoards.predefinedDiagramTable = ##f
314 predefinedFretboardsOn =
315 \set FretBoards.predefinedDiagramTable = #fretboard-table
320 aikenHeads = \set shapeNoteStyles = #'#(do re mi fa #f la ti)
321 sacredHarpHeads = \set shapeNoteStyles = #'#(fa #f la fa #f la mi)
326 shiftOn = \override NoteColumn #'horizontal-shift = #1
327 shiftOnn = \override NoteColumn #'horizontal-shift = #2
328 shiftOnnn = \override NoteColumn #'horizontal-shift = #3
329 shiftOff = \revert NoteColumn #'horizontal-shift
335 slurUp = \override Slur #'direction = #UP
336 slurDown = \override Slur #'direction = #DOWN
337 slurNeutral = \revert Slur #'direction
339 % dash-patterns (make-simple-dash-definition defined at top of file)
341 #(define-music-function (parser location dash-fraction dash-period)
344 \override Slur #'dash-definition =
345 $(make-simple-dash-definition dash-fraction dash-period)
347 slurDashed = \override Slur #'dash-definition = #'((0 1 0.4 0.75))
348 slurDotted = \override Slur #'dash-definition = #'((0 1 0.1 0.75))
349 slurHalfDashed = \override Slur #'dash-definition = #'((0 0.5 0.4 0.75)
351 slurHalfSolid = \override Slur #'dash-definition = #'((0 0.5 1 1)
353 slurSolid = \revert Slur #'dash-definition
358 showStaffSwitch = \set followVoice = ##t
359 hideStaffSwitch = \set followVoice = ##f
364 stemUp = \override Stem #'direction = #UP
365 stemDown = \override Stem #'direction = #DOWN
366 stemNeutral = \revert Stem #'direction
373 \revert TabStaff.TimeSignature #'stencil
374 % stems (the half note gets a double stem)
375 \override TabVoice.Stem #'stencil = #tabvoice::draw-double-stem-for-half-notes
377 \revert TabVoice.Beam #'stencil
378 \revert TabVoice.Dots #'stencil
379 \revert TabVoice.Tie #'stencil
380 \revert TabVoice.Tie #'after-line-breaking
381 \revert TabVoice.RepeatTie #'stencil
382 \revert TabVoice.RepeatTie #'after-line-breaking
383 \revert TabVoice.LaissezVibrerTie #'stencil
384 \revert TabVoice.Slur #'stencil
385 \revert PhrasingSlur #'stencil
387 \revert TabVoice.TupletBracket #'stencil
388 \revert TabVoice.TupletNumber #'stencil
390 \revert DynamicText #'transparent
391 \revert DynamicTextSpanner #'stencil
392 \revert TabVoice.DynamicTextSpanner #'stencil
393 \revert TabVoice.Hairpin #'transparent
395 \revert TabVoice.Rest #'stencil
396 \revert TabVoice.MultiMeasureRest #'stencil
398 \revert TabVoice.Script #'stencil
399 \revert TabVoice.TextScript #'stencil
400 \revert TabStaff.Arpeggio #'stencil
407 \override TextScript #'extra-spacing-width = #'(0 . 0)
408 \override TextScript #'extra-spacing-height = #'(-inf.0 . +inf.0)
411 \override TextScript #'extra-spacing-width = #'(+inf.0 . -inf.0)
412 \override TextScript #'extra-spacing-height = #'(0 . 0)
418 textSpannerUp = \override TextSpanner #'direction = #UP
419 textSpannerDown = \override TextSpanner #'direction = #DOWN
420 textSpannerNeutral = \revert TextSpanner #'direction
426 tieUp = \override Tie #'direction = #UP
427 tieDown = \override Tie #'direction = #DOWN
428 tieNeutral = \revert Tie #'direction
430 % dash-patterns (make-simple-dash-definition defined at top of file)
432 #(define-music-function (parser location dash-fraction dash-period)
435 \override Tie #'dash-definition =
436 $(make-simple-dash-definition dash-fraction dash-period)
438 tieDashed = \override Tie #'dash-definition = #'((0 1 0.4 0.75))
439 tieDotted = \override Tie #'dash-definition = #'((0 1 0.1 0.75))
440 tieHalfDashed = \override Tie #'dash-definition = #'((0 0.5 0.4 0.75)
442 tieHalfSolid = \override Tie #'dash-definition = #'((0 0.5 1 1)
444 tieSolid = \revert Tie #'dash-definition
449 tupletUp = \override TupletBracket #'direction = #UP
450 tupletDown = \override TupletBracket #'direction = #DOWN
451 tupletNeutral = \revert TupletBracket #'direction
456 % dynamic ly:dir? text script, articulation script ly:dir?
457 voiceOne = #(context-spec-music (make-voice-props-set 0) 'Voice)
458 voiceTwo = #(context-spec-music (make-voice-props-set 1) 'Voice)
459 voiceThree = #(context-spec-music (make-voice-props-set 2) 'Voice)
460 voiceFour = #(context-spec-music (make-voice-props-set 3) 'Voice)
461 oneVoice = #(context-spec-music (make-voice-props-revert) 'Voice)
467 \override NoteHead #'style = #'diamond
468 \override NoteHead #'color = #red
469 \override Stem #'color = #red
470 \override Beam #'color = #red
473 \override NoteHead #'style = #'triangle
474 \override NoteHead #'color = #blue
475 \override Stem #'color = #blue
476 \override Beam #'color = #blue
479 \override NoteHead #'style = #'xcircle
480 \override NoteHead #'color = #green
481 \override Stem #'color = #green
482 \override Beam #'color = #green
485 \override NoteHead #'style = #'cross
486 \override NoteHead #'color = #magenta
487 \override Stem #'color = #magenta
488 \override Beam #'color = #magenta
490 voiceNeutralStyle = {
491 \revert NoteHead #'style
492 \revert NoteHead #'color
501 #(define-music-function (parser location) ()
502 (override-head-style '(TabNoteHead NoteHead) 'cross))
504 #(define-music-function (parser location) ()
505 (revert-head-style '(TabNoteHead NoteHead)))
507 #(define-music-function (parser location note) (ly:music?)
508 (style-note-heads '(TabNoteHead NoteHead) 'cross note))
511 %% dead notes (these need to come after "x notes")
513 % Define aliases of cross-head notes for specific purposes
514 deadNotesOn = \xNotesOn
515 deadNotesOff = \xNotesOff