% property-init.ly
-\version "2.12.0"
+\version "2.14.0"
%% for dashed slurs, phrasing slurs, and ties
#(define (make-simple-dash-definition dash-fraction dash-period)
(list (list 0 1 dash-fraction dash-period)))
+%% common definition for all note head styles reverting
+%% (palm mute, harmonics, dead notes, ...)
+defaultNoteHeads =
+#(define-music-function (parser location) ()
+ (_i "Revert to the default note head style.")
+ (revert-head-style '(NoteHead TabNoteHead)))
+
+
%% arpeggios
%% 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
fermataMarkup =
#(make-music 'MultiMeasureTextEvent
- 'tweaks (list
- ; Set the 'text based on the 'direction
- (cons 'text (lambda (grob)
- (if (eq? (ly:grob-property grob 'direction) DOWN)
- (markup #:musicglyph "scripts.dfermata")
- (markup #:musicglyph "scripts.ufermata"))))
- (cons 'outside-staff-priority 40)))
-
+ 'tweaks (list
+ ;; Set the 'text based on the 'direction
+ (cons 'text (lambda (grob)
+ (if (eq? (ly:grob-property grob 'direction) DOWN)
+ (markup #:musicglyph "scripts.dfermata")
+ (markup #:musicglyph "scripts.ufermata"))))
+ (cons 'outside-staff-priority 40)
+ (cons 'outside-staff-padding 0)))
%% font sizes
%% harmonics
-harmonicsOn = \override NoteHead #'style = #'harmonic
-harmonicsOff = \revert NoteHead #'style
+harmonicsOn =
+#(define-music-function (parser location) ()
+ (_i "Set the default note head style to a diamond-shaped style.")
+ (override-head-style '(NoteHead TabNoteHead) 'harmonic))
+harmonicsOff = \defaultNoteHeads
+harmonicNote =
+#(define-music-function (parser location note) (ly:music?)
+ (_i "Print @var{note} with a diamond-shaped note head.")
+ (style-note-heads 'NoteHead 'harmonic note))
%% hideNotes
\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
}
palmMuteOn =
#(define-music-function (parser location) ()
+ (_i "Set the default note head style to a triangle-shaped style.")
(override-head-style 'NoteHead 'do))
-palmMuteOff =
-#(define-music-function (parser location) ()
- (revert-head-style 'NoteHead))
+palmMuteOff = \defaultNoteHeads
palmMute =
#(define-music-function (parser location note) (ly:music?)
+ (_i "Print @var{note} with a triangle-shaped note head.")
(style-note-heads 'NoteHead 'do note))
%% predefined fretboards
predefinedFretboardsOff =
- \set FretBoards.predefinedDiagramTable = ##f
+ \set predefinedDiagramTable = ##f
predefinedFretboardsOn =
- \set FretBoards.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
\revert 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.Rest #'stencil
\revert TabVoice.MultiMeasureRest #'stencil
\revert TabVoice.MultiMeasureRestNumber #'transparent
+ \revert TabVoice.MultiMeasureRestText #'transparent
% 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
}
xNotesOn =
#(define-music-function (parser location) ()
+ (_i "Set the default note head style to a cross-shaped style.")
(override-head-style '(TabNoteHead NoteHead) 'cross))
-xNotesOff =
-#(define-music-function (parser location) ()
- (revert-head-style '(TabNoteHead NoteHead)))
+xNotesOff = \defaultNoteHeads
xNote =
#(define-music-function (parser location note) (ly:music?)
+ (_i "Print @var{note} with a cross-shaped note head.")
(style-note-heads '(TabNoteHead NoteHead) 'cross note))