Updated support files to 2.16

This commit is contained in:
Sven Axelsson 2012-09-16 21:04:09 +02:00
parent 24f2144d12
commit 5ef76ceea2
4 changed files with 12 additions and 13 deletions

View File

@ -7,7 +7,7 @@
(http://www.murrays.nu)
%}
\version "2.12.0"
\version "2.16.0"
% Notes of the scale of the Great Highland Bagpipe. Extra high notes for bombarde.
% Flat notes used mainly in some modern music.
@ -36,7 +36,7 @@ pitchnames = \pitchnamesBagpipe
% flattened notes, the flat should be shown on all instances.
bagpipeKey = {
\key d \major
#(set-accidental-style 'forget)
\accidentalStyle "forget"
}
% Show the key signature e.g. for BMW compatibility.
@ -133,13 +133,13 @@ marchTime = {
% Add appropriate tweaks needed for piping grace notes to look great.
stemspace = #(define-music-function (parser location extent) (pair?) #{
\once \override Staff.Stem #'X-extent = #$extent
\once \override Staff.Stem #'X-extent = #extent
#})
pgrace = #(define-music-function (parser location notes) (ly:music?) #{
\override Score.GraceSpacing #'spacing-increment = #0
\override Score.Stem #'beamlet-max-length-proportion = #'(0.5 . 0.5)
\small \grace $notes \normalsize
\revert Score.Stem #'beamlet-default-length
\override Score.Stem #'beamlet-max-length-proportion = #'(0.5 . 0.5)
\small \grace $notes \normalsize
\revert Score.Stem #'beamlet-default-length
#})
% Single pgrace notes

View File

@ -2,7 +2,7 @@
All of the bagpipe specific markup.
%}
\version "2.12.0"
\version "2.16.0"
#(ly:set-option 'point-and-click #f)

View File

@ -2,7 +2,7 @@
Header formatting for bagpipe tunes. Customize to get your name in the tag line.
%}
\version "2.12.0"
\version "2.16.0"
% Bring in the time/date package. Set format to month day, year
@ -30,9 +30,9 @@ today = #(date->string (current-date) "~B ~e, ~Y")
\fromproperty #'header:meter
\line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger }
}
#(ly:export (if (not (ly:get-option 'without-comment))
(markup #:justify-field 'header:comment)
(markup)))
$(if (not (ly:get-option 'without-comment))
(markup #:justify-field 'header:comment)
(markup))
}
}
}

View File

@ -2,7 +2,7 @@
Header formatting for bagpipe tunes. Customize to get your name in the tag line.
%}
\version "2.12.0"
\version "2.16.0"
% Bring in the time/date package. Set format to month day, year
@ -44,5 +44,4 @@ today = #(date->string (current-date) "~B ~e, ~Y")
}
}
}
}