mirror of
https://github.com/kastdeur/bagpipe.ly.git
synced 2025-01-04 23:23:32 +01:00
Updated support files to 2.16
This commit is contained in:
parent
24f2144d12
commit
5ef76ceea2
4 changed files with 12 additions and 13 deletions
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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))
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -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")
|
|||
}
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue