% property-init.ly
-\version "2.12.0"
+\version "2.16.0"
%% for dashed slurs, phrasing slurs, and ties
#(define (make-simple-dash-definition dash-fraction dash-period)
%% common definition for all note head styles reverting
%% (palm mute, harmonics, dead notes, ...)
-defaultNoteHeads=
+defaultNoteHeads =
#(define-music-function (parser location) ()
(_i "Revert to the default note head style.")
- (revert-head-style 'NoteHead))
+ (revert-head-style '(NoteHead TabNoteHead)))
+accidentalStyle =
+#(define-music-function
+ (parser location context style) ((symbol?) string?)
+ (_i "Set accidental style to @var{style}, a string. If an optional
+@var{context} symbol is given, e.g. @code{#'Staff} or @code{#'Voice},
+the settings are applied to that context. Otherwise, the context
+defaults to @samp{Staff}, except for piano styles, which use
+@samp{GrandStaff} as a context." )
+ (if context
+ (set-accidental-style (string->symbol style) context)
+ (set-accidental-style (string->symbol style))))
%% arpeggios
}
+%% bar lines
+
+defineBarLine =
+#(define-void-function
+ (parser location bar glyph-list) (string? list?)
+ (_i "Define bar line settings for bar line @var{bar}.
+ The list @var{glyph-list} must have three entries which define
+ the appearance at the end of line, at the beginning of the next line,
+ and the span bar, respectively." )
+ (if (not (= (length glyph-list) 3))
+ (ly:error (_ "Argument list for bar '~a' must have three components.") bar)
+ (define-bar-line bar
+ (car glyph-list)
+ (cadr glyph-list)
+ (caddr glyph-list))))
+
+
%% bass figures
bassFigureExtendersOn = {
%% cadenzas
-cadenzaOn = \set Timing.timing = ##f
+cadenzaOn = {
+ \set Timing.timing = ##f
+ \set Timing.autoBeaming = ##f
+}
+
cadenzaOff = {
\set Timing.timing = ##t
\set Timing.measurePosition = #ZERO-MOMENT
+ \set Timing.autoBeaming = ##t
}
\set chordRootNamer = #(chord-name->italian-markup #f)
\set chordPrefixSpacer = #0.4
}
+powerChords = {
+ \set chordNameExceptions = #powerChordExceptions
+}
%% compressFullBarRests
harmonicsOn =
#(define-music-function (parser location) ()
(_i "Set the default note head style to a diamond-shaped style.")
- (override-head-style 'NoteHead 'harmonic))
+ (override-head-style '(NoteHead TabNoteHead) 'harmonic))
harmonicsOff = \defaultNoteHeads
harmonicNote =
#(define-music-function (parser location note) (ly:music?)
\override NoteHead #'transparent = ##t
\override NoteHead #'no-ledgers = ##t
\override Stem #'transparent = ##t
+ \override Flag #'transparent = ##t
\override Beam #'transparent = ##t
\override Accidental #'transparent = ##t
+ \override Rest #'transparent = ##t
+ \override TabNoteHead #'transparent = ##t
}
unHideNotes = {
\revert Accidental #'transparent
\revert Beam #'transparent
\revert Stem #'transparent
+ \revert Flag #'transparent
\revert NoteHead #'transparent
\revert NoteHead #'no-ledgers
\revert Dots #'transparent
+ \revert Rest #'transparent
+ \revert TabNoteHead #'transparent
}
\set squashedPosition = #0
\override NoteHead #'style = #'slash
\override Accidental #'stencil = ##f
+ \override AccidentalCautionary #'stencil = ##f
}
improvisationOff = {
\unset squashedPosition
\revert NoteHead #'style
\revert Accidental #'stencil
+ \revert AccidentalCautionary #'stencil
}
#(define-music-function (parser location dash-fraction dash-period)
(number? number?)
(_i "Set up a custom style of dash pattern for @var{dash-fraction} ratio of
-line to space repeated at @var{dash-period} interval.")
+line to space repeated at @var{dash-period} interval for phrasing slurs.")
#{
\override PhrasingSlur #'dash-definition =
$(make-simple-dash-definition dash-fraction dash-period)
(ly:set-option 'point-and-click #f)
(make-music 'SequentialMusic 'void #t))
+pointAndClickTypes =
+#(define-void-function (parser location types) (list-or-symbol?)
+ (_i "Set a type or list of types (such as @code{#'note-event}) for which point-and-click info is generated.")
+ (ly:set-option 'point-and-click types))
%% predefined fretboards
predefinedFretboardsOff =
\set predefinedDiagramTable = ##f
predefinedFretboardsOn =
- \set predefinedDiagramTable = #fretboard-table
+ \set predefinedDiagramTable = #default-fret-table
%% shape note heads
-aikenHeads = \set shapeNoteStyles = #'#(do re mi fa #f la ti)
-sacredHarpHeads = \set shapeNoteStyles = #'#(fa #f la fa #f la mi)
+aikenHeads = \set shapeNoteStyles = #'#(do re miMirror fa sol la ti)
+aikenHeadsMinor = \set shapeNoteStyles = #'#(la ti do re miMirror fa sol)
+funkHeads =
+ \set shapeNoteStyles = #'#(doFunk reFunk miFunk faFunk solFunk laFunk tiFunk)
+funkHeadsMinor =
+ \set shapeNoteStyles = #'#(laFunk tiFunk doFunk reFunk miFunk faFunk solFunk)
+sacredHarpHeads = \set shapeNoteStyles = #'#(fa sol la fa sol la mi)
+sacredHarpHeadsMinor = \set shapeNoteStyles = #'#(la mi fa sol la fa sol)
+southernHarmonyHeads =
+ \set shapeNoteStyles = #'#(faThin sol laThin faThin sol laThin miThin)
+southernHarmonyHeadsMinor =
+ \set shapeNoteStyles = #'#(laThin miThin faThin sol laThin faThin sol)
+walkerHeads =
+ \set shapeNoteStyles = #'#(doWalker reWalker miWalker faWalker solFunk laWalker tiWalker)
+walkerHeadsMinor =
+ \set shapeNoteStyles = #'#(laWalker tiWalker doWalker reWalker miWalker faWalker solFunk)
%% shifts
slurDashPattern =
#(define-music-function (parser location dash-fraction dash-period)
(number? number?)
+ (_i "Set up a custom style of dash pattern for @var{dash-fraction}
+ratio of line to space repeated at @var{dash-period} interval for slurs.")
#{
\override Slur #'dash-definition =
$(make-simple-dash-definition dash-fraction dash-period)
% stems (the half note gets a double stem)
\revert TabVoice.Stem #'length
\revert TabVoice.Stem #'no-stem-extend
- \revert TabVoice.Stem #'flag-style
+ \revert TabVoice.Flag #'style
\revert TabVoice.Stem #'details
- \revert TabVoice.Stem #'transparent
+ \revert TabVoice.Stem #'stencil
+ \revert TabVoice.Flag #'stencil
\override TabVoice.Stem #'stencil = #tabvoice::draw-double-stem-for-half-notes
- \set autoBeaming = ##t
- \revert NoteColumn #'ignore-collision
+ \override TabVoice.Stem #'X-extent = #tabvoice::make-double-stem-width-for-half-notes
+ \set TabVoice.autoBeaming = ##t
+ \revert TabVoice.NoteColumn #'ignore-collision
% beams, dots
\revert TabVoice.Beam #'stencil
+ \revert TabVoice.StemTremolo #'stencil
\revert TabVoice.Dots #'stencil
\revert TabVoice.Tie #'stencil
\revert TabVoice.Tie #'after-line-breaking
\revert TabVoice.TupletBracket #'stencil
\revert TabVoice.TupletNumber #'stencil
% dynamic signs
- \revert TabVoice.DynamicText #'transparent
+ \revert TabVoice.DynamicText #'stencil
\revert TabVoice.DynamicTextSpanner #'stencil
\revert TabVoice.DynamicTextSpanner #'stencil
- \revert TabVoice.Hairpin #'transparent
+ \revert TabVoice.Hairpin #'stencil
% rests
\revert TabVoice.Rest #'stencil
\revert TabVoice.MultiMeasureRest #'stencil
- \revert TabVoice.MultiMeasureRestNumber #'transparent
+ \revert TabVoice.MultiMeasureRestNumber #'stencil
+ \revert TabVoice.MultiMeasureRestText #'stencil
% markups etc.
+ \revert TabVoice.Glissando #'stencil
\revert TabVoice.Script #'stencil
\revert TabVoice.TextScript #'stencil
+ \revert TabVoice.TextSpanner #'stencil
\revert TabStaff.Arpeggio #'stencil
\revert TabStaff.NoteColumn #'ignore-collision
}
tieDashPattern =
#(define-music-function (parser location dash-fraction dash-period)
(number? number?)
+ (_i "Set up a custom style of dash pattern for @var{dash-fraction}
+ratio of line to space repeated at @var{dash-period} interval for ties.")
#{
\override Tie #'dash-definition =
$(make-simple-dash-definition dash-fraction dash-period)
\override NoteHead #'style = #'diamond
\override NoteHead #'color = #red
\override Stem #'color = #red
+ \override Flag #'color = #red
\override Beam #'color = #red
}
voiceTwoStyle = {
\override NoteHead #'style = #'triangle
\override NoteHead #'color = #blue
\override Stem #'color = #blue
+ \override Flag #'color = #blue
\override Beam #'color = #blue
}
voiceThreeStyle = {
\override NoteHead #'style = #'xcircle
\override NoteHead #'color = #green
\override Stem #'color = #green
+ \override Flag #'color = #green
\override Beam #'color = #green
}
voiceFourStyle = {
\override NoteHead #'style = #'cross
\override NoteHead #'color = #magenta
\override Stem #'color = #magenta
+ \override Flag #'color = #magenta
\override Beam #'color = #magenta
}
voiceNeutralStyle = {
\revert NoteHead #'style
\revert NoteHead #'color
\revert Stem #'color
+ \revert Flag #'color
\revert Beam #'color
}
+%% volta brackets
+
+allowVoltaHook =
+#(define-void-function (parser location bar) (string?)
+ (allow-volta-hook bar))
+
%% x notes
xNotesOn =