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

Moved Pitchnames into own file

Browse source
This commit is contained in:
Eric Teunis de Boone 2019-01-03 17:32:41 +01:00
parent 82ebc8771c
commit bd29d4f030
2 changed files with 29 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
bagpipe.ly
View file

@ -1,4 +1,4 @@
%{
%{
Bagpipe music settings for Lilypond.
This file builds on work by Andrew McNabb (http://www.mcnabbs.org/andrew/)
@ -9,28 +9,6 @@
\version "2.19.28"
% Notes of the scale of the Great Highland Bagpipe. Extra high notes for bombarde.
% Flat notes used mainly in some modern music.
pitchnamesBagpipe = #`(
(G . ,(ly:make-pitch 0 4 NATURAL))
(a . ,(ly:make-pitch 0 5 NATURAL))
(b . ,(ly:make-pitch 0 6 NATURAL))
(bflat . ,(ly:make-pitch 0 6 FLAT))
(c . ,(ly:make-pitch 1 0 SHARP))
(cflat . ,(ly:make-pitch 1 0 FLAT))
(d . ,(ly:make-pitch 1 1 NATURAL))
(e . ,(ly:make-pitch 1 2 NATURAL))
(f . ,(ly:make-pitch 1 3 SHARP))
(fflat . ,(ly:make-pitch 1 3 FLAT))
(g . ,(ly:make-pitch 1 4 NATURAL))
(gflat . ,(ly:make-pitch 1 4 FLAT))
(A . ,(ly:make-pitch 1 5 NATURAL))
(B . ,(ly:make-pitch 1 6 NATURAL))
(C . ,(ly:make-pitch 2 0 SHARP))
)
pitchnames = \pitchnamesBagpipe
#(ly:parser-set-note-names pitchnames)
% Bagpipe music is written in something like D major. If we use
% flattened notes, the flat should be shown on all instances.
@ -133,4 +111,5 @@ marchTime = {
#(ly:set-option 'relative-includes #t)
\include "lib/pitchnames.ily"
\include "lib/embellishments.ily"

27
lib/pitchnames.ily Normal file
View file

@ -0,0 +1,27 @@
% =================================================== %
% Pitch Names %
% =================================================== %
% Notes of the scale of the Great Highland Bagpipe. Extra high notes for bombarde.
% Flat notes used mainly in some modern music.
pitchnamesBagpipe = #`(
(G . ,(ly:make-pitch 0 4 NATURAL))
(a . ,(ly:make-pitch 0 5 NATURAL))
(b . ,(ly:make-pitch 0 6 NATURAL))
(bflat . ,(ly:make-pitch 0 6 FLAT))
(c . ,(ly:make-pitch 1 0 SHARP))
(cflat . ,(ly:make-pitch 1 0 FLAT))
(d . ,(ly:make-pitch 1 1 NATURAL))
(e . ,(ly:make-pitch 1 2 NATURAL))
(f . ,(ly:make-pitch 1 3 SHARP))
(fflat . ,(ly:make-pitch 1 3 FLAT))
(g . ,(ly:make-pitch 1 4 NATURAL))
(gflat . ,(ly:make-pitch 1 4 FLAT))
(A . ,(ly:make-pitch 1 5 NATURAL))
(B . ,(ly:make-pitch 1 6 NATURAL))
(C . ,(ly:make-pitch 2 0 SHARP))
)
pitchnames = \pitchnamesBagpipe
#(ly:parser-set-note-names pitchnames)