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
)))
9 %% common definition for all note head styles reverting
10 %% (palm mute, harmonics, dead notes, ...)
12 #(define-music-function
(parser location
) ()
13 (_i
"Revert to the default note head style.")
14 (revert-head-style
'(NoteHead TabNoteHead
)))
20 % For drawing vertical chord brackets with \arpeggio
21 % This is a shorthand for the value of the print-function property
22 % of either Staff.Arpeggio or PianoStaff.Arpeggio, depending whether
23 % cross-staff brackets are desired.
25 arpeggio
= #(make-music
'ArpeggioEvent
)
27 \revert Arpeggio
#'stencil
28 \revert Arpeggio
#'X-extent
29 \override Arpeggio
#'arpeggio-direction
= #UP
32 \revert Arpeggio
#'stencil
33 \revert Arpeggio
#'X-extent
34 \override Arpeggio
#'arpeggio-direction
= #DOWN
37 \revert Arpeggio
#'stencil
38 \revert Arpeggio
#'X-extent
39 \revert Arpeggio
#'arpeggio-direction
40 \revert Arpeggio
#'dash-definition
43 \revert Arpeggio
#'X-extent
44 \override Arpeggio
#'stencil
= #ly
:arpeggio
::brew-chord-bracket
46 arpeggioParenthesis
= {
47 \override Arpeggio
#'stencil
= #ly
:arpeggio
::brew-chord-slur
48 \override Arpeggio
#'X-extent
= #ly
:grob
::stencil-width
49 \revert Arpeggio
#'dash-definition
51 arpeggioParenthesisDashed
= {
52 \override Arpeggio
#'stencil
= #ly
:arpeggio
::brew-chord-slur
53 \override Arpeggio
#'X-extent
= #ly
:grob
::stencil-width
54 \override Arpeggio
#'dash-definition
= #'((0 1 0.4 0.75))
60 autoBeamOn
= \set autoBeaming
= ##t
61 autoBeamOff
= \set autoBeaming
= ##f
67 \override BalloonTextItem
#'extra-spacing-width
= #'(0 . 0)
68 \override BalloonTextItem
#'extra-spacing-height
= #'(-inf
.0 . +inf
.0)
71 \override BalloonTextItem
#'extra-spacing-width
= #'(+inf
.0 . -inf
.0)
72 \override BalloonTextItem
#'extra-spacing-height
= #'(0 . 0)
78 bassFigureExtendersOn
= {
79 \set useBassFigureExtenders
= ##t
80 \set Staff
.useBassFigureExtenders
= ##t
82 bassFigureExtendersOff
= {
83 \set useBassFigureExtenders
= ##f
84 \set Staff
.useBassFigureExtenders
= ##f
86 bassFigureStaffAlignmentDown
=
87 \override Staff
.BassFigureAlignmentPositioning
#'direction
= #DOWN
88 bassFigureStaffAlignmentUp
=
89 \override Staff
.BassFigureAlignmentPositioning
#'direction
= #UP
90 bassFigureStaffAlignmentNeutral
=
91 \revert Staff
.BassFigureAlignmentPositioning
#'direction
97 \set Timing
.timing
= ##f
98 \set Timing
.autoBeaming
= ##f
102 \set Timing
.timing
= ##t
103 \set Timing
.measurePosition
= #ZERO-MOMENT
104 \set Timing
.autoBeaming
= ##t
111 \set chordRootNamer
= #(chord-name-
>italian-markup
#t
)
112 \set chordPrefixSpacer
= #0.4
115 \set chordRootNamer
= #(chord-name-
>german-markup
#t
)
116 \set chordNoteNamer
= #note-name-
>german-markup
119 \set chordRootNamer
= #(chord-name-
>german-markup
#f)
120 \set chordNoteNamer
= #note-name-
>german-markup
123 \set chordRootNamer
= #(chord-name-
>italian-markup
#f)
124 \set chordPrefixSpacer
= #0.4
127 \set chordNameExceptions
= #powerChordExceptions
131 %% compressFullBarRests
133 compressFullBarRests
= \set Score
.skipBars
= ##t
134 expandFullBarRests
= \set Score
.skipBars
= ##f
139 dotsUp
= \override Dots
#'direction
= #UP
140 dotsDown
= \override Dots
#'direction
= #DOWN
141 dotsNeutral
= \revert Dots
#'direction
147 \override DynamicText
#'direction
= #UP
148 \override DynamicLineSpanner
#'direction
= #UP
151 \override DynamicText
#'direction
= #DOWN
152 \override DynamicLineSpanner
#'direction
= #DOWN
155 \revert DynamicText
#'direction
156 \revert DynamicLineSpanner
#'direction
163 \override NoteHead
#'stencil
= #note-head
::brew-ez-stencil
164 \override NoteHead
#'font-size
= #-
8
165 \override NoteHead
#'font-family
= #'sans
166 \override NoteHead
#'font-series
= #'bold
169 \revert NoteHead
#'stencil
170 \revert NoteHead
#'font-size
171 \revert NoteHead
#'font-family
172 \revert NoteHead
#'font-series
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
190 #(make-music
'MultiMeasureTextEvent
192 ;; Set the
'text based on the
'direction
193 (cons
'text
(lambda
(grob
)
194 (if
(eq?
(ly
:grob-property grob
'direction
) DOWN
)
195 (markup
#:musicglyph
"scripts.dfermata")
196 (markup
#:musicglyph
"scripts.ufermata"))))
197 (cons
'outside-staff-priority
40)
198 (cons
'outside-staff-padding
0)))
202 teeny
= \set fontSize
= #-
3
203 tiny
= \set fontSize
= #-
2
204 small
= \set fontSize
= #-
1
205 normalsize
= \set fontSize
= #0
206 large
= \set fontSize
= #1
207 huge
= \set fontSize
= #2
212 glissando
= #(make-music
'GlissandoEvent
)
218 #(define-music-function
(parser location
) ()
219 (_i
"Set the default note head style to a diamond-shaped style.")
220 (override-head-style
'NoteHead
'harmonic
))
221 harmonicsOff
= \defaultNoteHeads
223 #(define-music-function
(parser location note
) (ly
:music?
)
224 (_i
"Print @var{note} with a diamond-shaped note head.")
225 (style-note-heads
'NoteHead
'harmonic note
))
231 % hide notes, accidentals, etc.
232 \override Dots
#'transparent
= ##t
233 \override NoteHead
#'transparent
= ##t
234 \override NoteHead
#'no-ledgers
= ##t
235 \override Stem
#'transparent
= ##t
236 \override Beam
#'transparent
= ##t
237 \override Accidental
#'transparent
= ##t
240 \revert Accidental
#'transparent
241 \revert Beam
#'transparent
242 \revert Stem
#'transparent
243 \revert NoteHead
#'transparent
244 \revert NoteHead
#'no-ledgers
245 \revert Dots
#'transparent
252 \set squashedPosition
= #0
253 \override NoteHead
#'style
= #'slash
254 \override Accidental
#'stencil
= ##f
255 \override AccidentalCautionary
#'stencil
= ##f
258 \unset squashedPosition
259 \revert NoteHead
#'style
260 \revert Accidental
#'stencil
261 \revert AccidentalCautionary
#'stencil
267 mergeDifferentlyDottedOn
=
268 \override Staff
.NoteCollision
#'merge-differently-dotted
= ##t
269 mergeDifferentlyDottedOff
=
270 \revert Staff
.NoteCollision
#'merge-differently-dotted
271 mergeDifferentlyHeadedOn
=
272 \override Staff
.NoteCollision
#'merge-differently-headed
= ##t
273 mergeDifferentlyHeadedOff
=
274 \revert Staff
.NoteCollision
#'merge-differently-headed
277 %% numeric time signature
279 numericTimeSignature
= \override Staff
.TimeSignature
#'style
= #'numbered
280 defaultTimeSignature
= \revert Staff
.TimeSignature
#'style
286 #(define-music-function
(parser location
) ()
287 (_i
"Set the default note head style to a triangle-shaped style.")
288 (override-head-style
'NoteHead
'do
))
289 palmMuteOff
= \defaultNoteHeads
291 #(define-music-function
(parser location note
) (ly
:music?
)
292 (_i
"Print @var{note} with a triangle-shaped note head.")
293 (style-note-heads
'NoteHead
'do note
))
299 phrasingSlurUp
= \override PhrasingSlur
#'direction
= #UP
300 phrasingSlurDown
= \override PhrasingSlur
#'direction
= #DOWN
301 phrasingSlurNeutral
= \revert PhrasingSlur
#'direction
303 % dash-patterns (make-simple-dash-definition defined at top of file)
304 phrasingSlurDashPattern
=
305 #(define-music-function
(parser location dash-fraction dash-period
)
307 (_i
"Set up a custom style of dash pattern for @var{dash-fraction} ratio of
308 line to space repeated at @var{dash-period} interval.")
310 \override PhrasingSlur
#'dash-definition
=
311 $
(make-simple-dash-definition dash-fraction dash-period
)
314 \override PhrasingSlur
#'dash-definition
= #'((0 1 0.4 0.75))
316 \override PhrasingSlur
#'dash-definition
= #'((0 1 0.1 0.75))
317 phrasingSlurHalfDashed
=
318 \override PhrasingSlur
#'dash-definition
= #'((0 0.5 0.4 0.75)
320 phrasingSlurHalfSolid
=
321 \override PhrasingSlur
#'dash-definition
= #'((0 0.5 1 1)
324 \revert PhrasingSlur
#'dash-definition
330 #(define-music-function
(parser location
) ()
331 (_i
"Enable generation of code in final-format (e.g. pdf) files to reference the
332 originating lilypond source statement;
333 this is helpful when developing a score but generates bigger final-format files.")
334 (ly
:set-option
'point-and-click
#t
)
335 (make-music
'SequentialMusic
'void
#t
))
338 #(define-music-function
(parser location
) ()
339 (_i
"Suppress generating extra code in final-format (e.g. pdf) files to point
340 back to the lilypond source statement.")
341 (ly
:set-option
'point-and-click
#f)
342 (make-music
'SequentialMusic
'void
#t
))
345 %% predefined fretboards
347 predefinedFretboardsOff
=
348 \set predefinedDiagramTable
= ##f
349 predefinedFretboardsOn
=
350 \set predefinedDiagramTable
= #default-fret-table
355 aikenHeads
= \set shapeNoteStyles
= #'#(do re miMirror fa sol la ti
)
356 aikenHeadsMinor
= \set shapeNoteStyles
= #'#(la ti do re miMirror fa sol
)
358 \set shapeNoteStyles
= #'#(doFunk reFunk miFunk faFunk solFunk laFunk tiFunk
)
360 \set shapeNoteStyles
= #'#(laFunk tiFunk doFunk reFunk miFunk faFunk solFunk
)
361 sacredHarpHeads
= \set shapeNoteStyles
= #'#(fa sol la fa sol la mi
)
362 sacredHarpHeadsMinor
= \set shapeNoteStyles
= #'#(la mi fa sol la fa sol
)
363 southernHarmonyHeads
=
364 \set shapeNoteStyles
= #'#(faThin sol laThin faThin sol laThin miThin
)
365 southernHarmonyHeadsMinor
=
366 \set shapeNoteStyles
= #'#(laThin miThin faThin sol laThin faThin sol
)
368 \set shapeNoteStyles
= #'#(doWalker reWalker miWalker faWalker solFunk laWalker tiWalker
)
370 \set shapeNoteStyles
= #'#(laWalker tiWalker doWalker reWalker miWalker faWalker solFunk
)
375 shiftOn
= \override NoteColumn
#'horizontal-shift
= #1
376 shiftOnn
= \override NoteColumn
#'horizontal-shift
= #2
377 shiftOnnn
= \override NoteColumn
#'horizontal-shift
= #3
378 shiftOff
= \revert NoteColumn
#'horizontal-shift
384 slurUp
= \override Slur
#'direction
= #UP
385 slurDown
= \override Slur
#'direction
= #DOWN
386 slurNeutral
= \revert Slur
#'direction
388 % dash-patterns (make-simple-dash-definition defined at top of file)
390 #(define-music-function
(parser location dash-fraction dash-period
)
393 \override Slur
#'dash-definition
=
394 $
(make-simple-dash-definition dash-fraction dash-period
)
396 slurDashed
= \override Slur
#'dash-definition
= #'((0 1 0.4 0.75))
397 slurDotted
= \override Slur
#'dash-definition
= #'((0 1 0.1 0.75))
398 slurHalfDashed
= \override Slur
#'dash-definition
= #'((0 0.5 0.4 0.75)
400 slurHalfSolid
= \override Slur
#'dash-definition
= #'((0 0.5 1 1)
402 slurSolid
= \revert Slur
#'dash-definition
407 showStaffSwitch
= \set followVoice
= ##t
408 hideStaffSwitch
= \set followVoice
= ##f
413 stemUp
= \override Stem
#'direction
= #UP
414 stemDown
= \override Stem
#'direction
= #DOWN
415 stemNeutral
= \revert Stem
#'direction
420 % switch to full notation
423 \revert TabStaff
.TimeSignature
#'stencil
424 % stems (the half note gets a double stem)
425 \revert TabVoice
.Stem
#'length
426 \revert TabVoice
.Stem
#'no-stem-extend
427 \revert TabVoice
.Stem
#'flag-style
428 \revert TabVoice
.Stem
#'details
429 \revert TabVoice
.Stem
#'transparent
430 \override TabVoice
.Stem
#'stencil
= #tabvoice
::draw-double-stem-for-half-notes
431 \set autoBeaming
= ##t
432 \revert NoteColumn
#'ignore-collision
434 \revert TabVoice
.Beam
#'stencil
435 \revert TabVoice
.StemTremolo
#'stencil
436 \revert TabVoice
.Dots
#'stencil
437 \revert TabVoice
.Tie
#'stencil
438 \revert TabVoice
.Tie
#'after-line-breaking
439 \revert TabVoice
.RepeatTie
#'stencil
440 \revert TabVoice
.RepeatTie
#'after-line-breaking
441 \revert TabVoice
.LaissezVibrerTie
#'stencil
442 \revert TabVoice
.Slur
#'stencil
443 \revert TabVoice
.PhrasingSlur
#'stencil
445 \revert TabVoice
.TupletBracket
#'stencil
446 \revert TabVoice
.TupletNumber
#'stencil
448 \revert TabVoice
.DynamicText
#'transparent
449 \revert TabVoice
.DynamicTextSpanner
#'stencil
450 \revert TabVoice
.DynamicTextSpanner
#'stencil
451 \revert TabVoice
.Hairpin
#'transparent
453 \revert TabVoice
.Rest
#'stencil
454 \revert TabVoice
.MultiMeasureRest
#'stencil
455 \revert TabVoice
.MultiMeasureRestNumber
#'transparent
456 \revert TabVoice
.MultiMeasureRestText
#'transparent
458 \revert TabVoice
.Glissando
#'stencil
459 \revert TabVoice
.Script
#'stencil
460 \revert TabVoice
.TextScript
#'stencil
461 \revert TabVoice
.TextSpanner
#'stencil
462 \revert TabStaff
.Arpeggio
#'stencil
463 \revert TabStaff
.NoteColumn
#'ignore-collision
466 %tie/repeat tie behaviour
467 hideSplitTiedTabNotes
= {
468 \override TabVoice
.TabNoteHead
#'(details tied-properties break-visibility
) = #all-invisible
469 \override TabVoice
.TabNoteHead
#'(details tied-properties parenthesize
) = ##f
470 \override TabVoice
.TabNoteHead
#'(details repeat-tied-properties note-head-visible
) = ##f
471 \override TabVoice
.TabNoteHead
#'(details repeat-tied-properties parenthesize
) = ##f
474 showSplitTiedTabNotes
= {
475 \override TabVoice
.TabNoteHead
#'(details tied-properties break-visibility
) = #begin-of-line-visible
476 \override TabVoice
.TabNoteHead
#'(details tied-properties parenthesize
) = ##t
477 \override TabVoice
.TabNoteHead
#'(details repeat-tied-properties note-head-visible
) = ##t
478 \override TabVoice
.TabNoteHead
#'(details repeat-tied-properties parenthesize
) = ##t
484 \override TextScript
#'extra-spacing-width
= #'(0 . 0)
485 \override TextScript
#'extra-spacing-height
= #'(-inf
.0 . +inf
.0)
488 \override TextScript
#'extra-spacing-width
= #'(+inf
.0 . -inf
.0)
489 \override TextScript
#'extra-spacing-height
= #'(0 . 0)
495 textSpannerUp
= \override TextSpanner
#'direction
= #UP
496 textSpannerDown
= \override TextSpanner
#'direction
= #DOWN
497 textSpannerNeutral
= \revert TextSpanner
#'direction
503 tieUp
= \override Tie
#'direction
= #UP
504 tieDown
= \override Tie
#'direction
= #DOWN
505 tieNeutral
= \revert Tie
#'direction
507 % dash-patterns (make-simple-dash-definition defined at top of file)
509 #(define-music-function
(parser location dash-fraction dash-period
)
512 \override Tie
#'dash-definition
=
513 $
(make-simple-dash-definition dash-fraction dash-period
)
515 tieDashed
= \override Tie
#'dash-definition
= #'((0 1 0.4 0.75))
516 tieDotted
= \override Tie
#'dash-definition
= #'((0 1 0.1 0.75))
517 tieHalfDashed
= \override Tie
#'dash-definition
= #'((0 0.5 0.4 0.75)
519 tieHalfSolid
= \override Tie
#'dash-definition
= #'((0 0.5 1 1)
521 tieSolid
= \revert Tie
#'dash-definition
526 tupletUp
= \override TupletBracket
#'direction
= #UP
527 tupletDown
= \override TupletBracket
#'direction
= #DOWN
528 tupletNeutral
= \revert TupletBracket
#'direction
533 % dynamic ly:dir? text script, articulation script ly:dir?
534 voiceOne
= #(context-spec-music
(make-voice-props-set
0) 'Voice
)
535 voiceTwo
= #(context-spec-music
(make-voice-props-set
1) 'Voice
)
536 voiceThree
= #(context-spec-music
(make-voice-props-set
2) 'Voice
)
537 voiceFour
= #(context-spec-music
(make-voice-props-set
3) 'Voice
)
538 oneVoice
= #(context-spec-music
(make-voice-props-revert
) 'Voice
)
544 \override NoteHead
#'style
= #'diamond
545 \override NoteHead
#'color
= #red
546 \override Stem
#'color
= #red
547 \override Beam
#'color
= #red
550 \override NoteHead
#'style
= #'triangle
551 \override NoteHead
#'color
= #blue
552 \override Stem
#'color
= #blue
553 \override Beam
#'color
= #blue
556 \override NoteHead
#'style
= #'xcircle
557 \override NoteHead
#'color
= #green
558 \override Stem
#'color
= #green
559 \override Beam
#'color
= #green
562 \override NoteHead
#'style
= #'cross
563 \override NoteHead
#'color
= #magenta
564 \override Stem
#'color
= #magenta
565 \override Beam
#'color
= #magenta
567 voiceNeutralStyle
= {
568 \revert NoteHead
#'style
569 \revert NoteHead
#'color
578 #(define-music-function
(parser location
) ()
579 (_i
"Set the default note head style to a cross-shaped style.")
580 (override-head-style
'(TabNoteHead NoteHead
) 'cross
))
581 xNotesOff
= \defaultNoteHeads
583 #(define-music-function
(parser location note
) (ly
:music?
)
584 (_i
"Print @var{note} with a cross-shaped note head.")
585 (style-note-heads
'(TabNoteHead NoteHead
) 'cross note
))
588 %% dead notes (these need to come after "x notes")
590 % Define aliases of cross-head notes for specific purposes
591 deadNotesOn
= \xNotesOn
592 deadNotesOff
= \xNotesOff