kastdeur
/
bagpipe.ly
mirror of https://github.com/kastdeur/bagpipe.ly.git
1
0
Fork 0
Code Issues Releases Activity

Fixed showKeySignature to actually work. 

Added Mist Covered Sleeves.
This commit is contained in:
Sven Axelsson 2010-04-13 19:20:53 +02:00
parent 94fb0af2bb
commit c51248feff
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
bagpipe_new.ly
View File

@ -42,17 +42,26 @@ bagpipeKey = {
% Show the key signature e.g. for BMW compatibility.
showKeySignature = {
\override Staff.KeySignature #'stencil = #'ly:key-signature-interface::print
\override StaffGroup.KeySignature #'stencil = #'ly:key-signature-interface::print
\override Score.KeySignature #'stencil = #'ly:key-signature-interface::print
}
% Show the true key signature (E-flat major). Use together with
% \transpose f a to print scores for other instruments.
showTrueKeySignature = {
\override Staff.KeySignature #'stencil = #'ly:key-signature-interface::print
\override StaffGroup.KeySignature #'stencil = #'ly:key-signature-interface::print
\override Score.KeySignature #'stencil = #'ly:key-signature-interface::print
\override Stem #'direction = #0
\override Slur #'direction = #0
\override Tie #'direction = #0
}
disgrace = #(define-music-function (parser location music) (ly:music?) (make-music 'SequentialMusic 'void #t))
removeGracenotes = {
% grace = \disgrace
}
% Various tweaks to get good defaults for bagpipe music.
\paper {
top-margin = 4\mm