X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fproperty-init.ly;h=269648639b7d81b54b53b37aeb72cddf470b3a46;hb=cced43289cf170305e6e6517180659a1c4fa91db;hp=c0b352254ad0f195cb20d99465180ca5c706440a;hpb=caac677710724849651381d11577f61dd9618bcf;p=lilypond.git diff --git a/ly/property-init.ly b/ly/property-init.ly index c0b352254a..269648639b 100644 --- a/ly/property-init.ly +++ b/ly/property-init.ly @@ -1,6 +1,6 @@ % property-init.ly -\version "2.15.10" +\version "2.16.0" %% for dashed slurs, phrasing slurs, and ties #(define (make-simple-dash-definition dash-fraction dash-period) @@ -84,6 +84,23 @@ balloonLengthOff = { } +%% 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 = { @@ -604,6 +621,12 @@ voiceNeutralStyle = { } +%% volta brackets + +allowVoltaHook = +#(define-void-function (parser location bar) (string?) + (allow-volta-hook bar)) + %% x notes xNotesOn =