kastdeur/bagpipe.ly
1
0
Fork 0
mirror of https://github.com/kastdeur/bagpipe.ly.git synced 2025-01-07 00:13:35 +01:00
Code Issues Releases Activity

Updated support files to 2.16

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

12
bagpipe_new.ly
View file

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

2
cheatsheet.ly
View file

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

8
format.ly
View file

@ -2,7 +2,7 @@
Header formatting for bagpipe tunes. Customize to get your name in the tag line. 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 % 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 \fromproperty #'header:meter
\line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger } \line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger }
} }
#(ly:export (if (not (ly:get-option 'without-comment)) $(if (not (ly:get-option 'without-comment))
(markup #:justify-field 'header:comment) (markup #:justify-field 'header:comment)
(markup))) (markup))
} }
} }
} }

3
formatbook.ly
View file

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