% property-init.ly
-\version "2.11.53"
+\version "2.12.0"
stemUp = \override Stem #'direction = #UP
stemDown = \override Stem #'direction = #DOWN
slurDown = \override Slur #'direction = #DOWN
slurNeutral = \revert Slur #'direction
+#(define (make-simple-dash-definition dash-fraction dash-period)
+ (list (list 0 1 dash-fraction dash-period)))
+
slurDashed = {
- \override Slur #'dash-period = #0.75
- \override Slur #'dash-fraction = #0.4
-}
+ \override Slur #'dash-definition = #'((0 1 0.4 0.75))
+}
+slurDashPattern =
+#(define-music-function (parser location dash-fraction dash-period)
+ (number? number?)
+ #{
+ \override Slur #'dash-definition =
+ $(make-simple-dash-definition dash-fraction dash-period)
+ #})
slurDotted = {
- \override Slur #'dash-period = #0.75
- \override Slur #'dash-fraction = #0.1
+ \override Slur #'dash-definition = #'((0 1 0.1 0.75))
+}
+slurHalfDashed = {
+ \override Slur #'dash-definition = #'((0 0.5 0.4 0.75)
+ (0.5 1 1 1))
+}
+slurHalfSolid = {
+ \override Slur #'dash-definition = #'((0 0.5 1 1)
+ (0.5 1 0.4 0.75))
}
slurSolid = {
- \revert Slur #'dash-period
- \revert Slur #'dash-fraction
+ \revert Slur #'dash-definition
}
phrasingSlurNeutral = \revert PhrasingSlur #'direction
phrasingSlurDashed = {
- \override PhrasingSlur #'dash-period = #0.75
- \override PhrasingSlur #'dash-fraction = #0.4
-}
+ \override PhrasingSlur #'dash-definition = #'((0 1 0.4 0.75))
+}
+phrasingSlurDashPattern =
+#(define-music-function (parser location dash-fraction dash-period)
+ (number? number?)
+ #{
+ \override PhrasingSlur #'dash-definition =
+ $(make-simple-dash-definition dash-fraction dash-period)
+ #})
phrasingSlurDotted = {
- \override PhrasingSlur #'dash-period = #0.75
- \override PhrasingSlur #'dash-fraction = #0.1
+ \override PhrasingSlur #'dash-definition = #'((0 1 0.1 0.75))
+}
+phrasingSlurHalfDashed = {
+ \override PhrasingSlur #'dash-definition = #'((0 0.5 0.4 0.75)
+ (0.5 1 1 1))
+}
+phrasingSlurHalfSolid = {
+ \override PhrasingSlur #'dash-definition = #'((0 0.5 1 1)
+ (0.5 1 0.4 0.75))
}
phrasingSlurSolid = {
- \revert PhrasingSlur #'dash-period
- \revert PhrasingSlur #'dash-fraction
+ \revert PhrasingSlur #'dash-definition
}
mergeDifferentlyDottedOn = {
tieNeutral = \revert Tie #'direction
tieDashed = {
- \override Tie #'dash-period = #0.75
- \override Tie #'dash-fraction = #0.4
-}
+ \override Tie #'dash-definition = #'((0 1 0.4 0.75))
+}
+tieDashPattern =
+#(define-music-function (parser location dash-fraction dash-period)
+ (number? number?)
+ #{
+ \override Tie #'dash-definition =
+ $(make-simple-dash-definition dash-fraction dash-period)
+ #})
tieDotted = {
- \override Tie #'dash-period = #0.75
- \override Tie #'dash-fraction = #0.1
+ \override Tie #'dash-definition = #'((0 1 0.1 0.75))
+}
+tieHalfDashed = {
+ \override Tie #'dash-definition = #'((0 0.5 0.4 0.75)
+ (0.5 1 1 1))
+}
+tieHalfSolid = {
+ \override Tie #'dash-definition = #'((0 0.5 1 1)
+ (0.5 1 0.4 0.75))
}
tieSolid = {
- \revert Tie #'dash-period
- \revert Tie #'dash-fraction
+ \revert Tie #'dash-definition
}
easyHeadsOn = {
arpeggioNormal = {
\revert Arpeggio #'stencil
\revert Arpeggio #'X-extent
- \revert Arpeggio #'arpeggio-direction
+ \revert Arpeggio #'arpeggio-direction
+ \revert Arpeggio #'dash-definition
}
arpeggioBracket = {
\revert Arpeggio #'X-extent
arpeggioParenthesis = {
\override Arpeggio #'stencil = #ly:arpeggio::brew-chord-slur
\override Arpeggio #'X-extent = #ly:grob::stencil-width
+ \revert Arpeggio #'dash-definition
}
+arpeggioParenthesisDashed = {
+ \override Arpeggio #'stencil = #ly:arpeggio::brew-chord-slur
+ \override Arpeggio #'X-extent = #ly:grob::stencil-width
+ \override Arpeggio #'dash-definition = #'((0 1 0.4 0.75))
+}
+
+
glissando = #(make-music 'GlissandoEvent)
\set chordPrefixSpacer = #0.4
}
+harmonicsOn = \override NoteHead #'style = #'harmonic
+
+harmonicsOff = \revert NoteHead #'style
+
improvisationOn = {
\set squashedPosition = #0
\override NoteHead #'style = #'slash
pointAndClickOn = #(define-music-function (parser location) ()
(ly:set-option 'point-and-click #t)
(make-music 'SequentialMusic 'void #t))
+
+palmMuteOn = {
+ \override NoteHead #'style = #'do
+}
+
+palmMuteOff = {
+ \revert NoteHead #'style
+}
+
+palmMute =
+#(define-music-function (parser location note) (ly:music?)
+ ;; are we inside a <...>?
+ (if (eq? (ly:music-property note 'name) 'NoteEvent)
+ ;; yes -> add a tweak
+ (begin (set! (ly:music-property note 'tweaks)
+ (acons 'style 'do (ly:music-property note 'tweaks)))
+ note)
+ ;; no -> use predefined commands to switch to triangle-shaped note heads
+ #{
+ \palmMuteOn
+ $note
+ \palmMuteOff
+ #}))
+
+deadNotesOn = {
+ \override TabNoteHead #'style = #'cross
+ \override NoteHead #'style = #'cross
+}
+
+deadNotesOff = {
+ \revert TabNoteHead #'style
+ \revert NoteHead #'style
+}
+
+deadNote =
+#(define-music-function (parser location note) (ly:music?)
+ ;; are we inside a <...>?
+ (if (eq? (ly:music-property note 'name) 'NoteEvent)
+ ;; yes -> add a tweak
+ (begin (set! (ly:music-property note 'tweaks)
+ (acons 'style 'cross (ly:music-property note 'tweaks)))
+ note)
+ ;; no -> use predefined commmands for changing
+ ;; note head and tablature fret signs
+ #{
+ \deadNotesOn
+ $note
+ \deadNotesOff
+ #}))
+
+tabFullNotation = {
+ % time signature
+ \revert TabStaff.TimeSignature #'stencil
+ % stems (the half note gets a double stem)
+ \override TabVoice.Stem #'stencil = #tabvoice::draw-double-stem-for-half-notes
+ % beams, dots
+ \revert TabVoice.Beam #'stencil
+ \revert TabVoice.Dots #'stencil
+ \revert TabVoice.Tie #'stencil
+ \revert TabVoice.Tie #'after-line-breaking
+ \revert TabVoice.RepeatTie #'stencil
+ \revert TabVoice.RepeatTie #'after-line-braking
+ \revert TabVoice.LaissezVibrerTie #'stencil
+ \revert TabVoice.Slur #'stencil
+ \revert PhrasingSlur #'stencil
+ % tuplet stuff
+ \revert TabVoice.TupletBracket #'stencil
+ \revert TabVoice.TupletNumber #'stencil
+ % dynamic signs
+ \revert DynamicText #'transparent
+ \revert DynamicTextSpanner #'stencil
+ \revert TabVoice.DynamicTextSpanner #'stencil
+ \revert TabVoice.Hairpin #'transparent
+ % rests
+ \revert TabVoice.Rest #'stencil
+ \revert TabVoice.MultiMeasureRest #'stencil
+ % markups etc.
+ \revert TabVoice.Script #'stencil
+ \revert TabVoice.TextScript #'stencil
+ \revert TabStaff.Arpeggio #'stencil
+}