302 lines
12 KiB
Plaintext
302 lines
12 KiB
Plaintext
|
% =================================================== %
|
|||
|
% Embellishments %
|
|||
|
% =================================================== %
|
|||
|
%
|
|||
|
% Add appropriate tweaks needed for piping grace notes to look great.
|
|||
|
stemspace =
|
|||
|
#(define-music-function (extent) (pair?) #{
|
|||
|
\once \override Staff.Stem.X-extent = #extent
|
|||
|
#})
|
|||
|
|
|||
|
pgrace =
|
|||
|
#(define-music-function (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
|
|||
|
#})
|
|||
|
|
|||
|
% Echo beats
|
|||
|
echoG = \fixed c'' { \pgrace { g,16 } }
|
|||
|
echoa = \fixed c'' { \pgrace { a,16 } }
|
|||
|
echob = \fixed c'' { \pgrace { b,16 } }
|
|||
|
echoc = \fixed c'' { \pgrace { cis16 } }
|
|||
|
echod = \fixed c'' { \pgrace { d16 } }
|
|||
|
echoe = \fixed c'' { \pgrace { e16 } }
|
|||
|
echof = \fixed c'' { \pgrace { fis16 } }
|
|||
|
echog = \fixed c'' { \pgrace { g16 } }
|
|||
|
echoA = \fixed c'' { \pgrace { a16 } }
|
|||
|
|
|||
|
% Single grace notes
|
|||
|
grG = \fixed c'' { \pgrace { g,32 } }
|
|||
|
gra = \fixed c'' { \pgrace { a,32 } }
|
|||
|
grb = \fixed c'' { \pgrace { b,32 } }
|
|||
|
grc = \fixed c'' { \pgrace { cis32 } }
|
|||
|
grd = \fixed c'' { \pgrace { d32 } }
|
|||
|
gre = \fixed c'' { \pgrace { e32 } }
|
|||
|
grf = \fixed c'' { \pgrace { fis32 } }
|
|||
|
grg = \fixed c'' { \pgrace { g32 } }
|
|||
|
grA = \fixed c'' { \pgrace { a32 } }
|
|||
|
|
|||
|
% Doublings
|
|||
|
dblG = \fixed c'' { \pgrace { g32[ g, d] } }
|
|||
|
dbla = \fixed c'' { \pgrace { g32[ a, d] } }
|
|||
|
dblb = \fixed c'' { \pgrace { g32[ b, d] } }
|
|||
|
dblc = \fixed c'' { \pgrace { g32[ cis d] } }
|
|||
|
dbld = \fixed c'' { \pgrace { g32[ d e] } }
|
|||
|
dble = \fixed c'' { \pgrace { g32[ e fis] } }
|
|||
|
dblf = \fixed c'' { \pgrace { g32[ fis g] } }
|
|||
|
% These are the same as the half doublings.
|
|||
|
dblg = \fixed c'' { \pgrace { g32[ fis] } }
|
|||
|
dblA = \fixed c'' { \pgrace { a32[ g] } }
|
|||
|
|
|||
|
% Half doublings
|
|||
|
hdblG = \fixed c'' { \pgrace { g,32[ d] } }
|
|||
|
hdbla = \fixed c'' { \pgrace { a,32[ d] } }
|
|||
|
hdblb = \fixed c'' { \pgrace { b,32[ d] } }
|
|||
|
hdblc = \fixed c'' { \pgrace { cis32[ d] } }
|
|||
|
hdbld = \fixed c'' { \pgrace { d32[ e] } }
|
|||
|
hdble = \fixed c'' { \pgrace { e32[ fis] } }
|
|||
|
hdblf = \fixed c'' { \pgrace { fis32[ g] } }
|
|||
|
hdblg = \fixed c'' { \pgrace { g32[ fis] } }
|
|||
|
hdblA = \fixed c'' { \pgrace { a32[ g] } }
|
|||
|
|
|||
|
% Thumb doublings
|
|||
|
tdblG = \fixed c'' { \pgrace { a32[ g, d] } }
|
|||
|
tdbla = \fixed c'' { \pgrace { a32[ a, d] } }
|
|||
|
tdblb = \fixed c'' { \pgrace { a32[ b, d] } }
|
|||
|
tdblc = \fixed c'' { \pgrace { a32[ cis d] } }
|
|||
|
tdbld = \fixed c'' { \pgrace { a32[ d e] } }
|
|||
|
tdble = \fixed c'' { \pgrace { a32[ e fis] } }
|
|||
|
tdblf = \fixed c'' { \pgrace { a32[ fis g] } }
|
|||
|
tdblg = \fixed c'' { \pgrace { a32[ g fis] } }
|
|||
|
|
|||
|
% Shakes / Pele
|
|||
|
shakea = \fixed c'' { \pgrace { g32[ a, e a, g,] } }
|
|||
|
shakeb = \fixed c'' { \pgrace { g32[ b, e b, g,] } }
|
|||
|
shakec = \fixed c'' { \pgrace { g32[ cis e cis g,] } }
|
|||
|
shaked = \fixed c'' { \pgrace { g32[ d e d g,] } }
|
|||
|
wshaked = \fixed c'' { \pgrace { g32[ d e d cis] } }
|
|||
|
shakee = \fixed c'' { \pgrace { g32[ e fis e a,] } }
|
|||
|
shakef = \fixed c'' { \pgrace { g32[ fis g fis e] } }
|
|||
|
shakeg = \fixed c'' { \pgrace { a32[ fis g a,] } }
|
|||
|
shakeA = \fixed c'' { \pgrace { a32[ g a a,] } }
|
|||
|
|
|||
|
% Half shakes / Half Pele
|
|||
|
hshakea = \fixed c'' { \pgrace { a,32[ e a, g,] } }
|
|||
|
hshakeb = \fixed c'' { \pgrace { b,32[ e b, g,] } }
|
|||
|
hshakec = \fixed c'' { \pgrace { cis32[ e cis g,] } }
|
|||
|
hshaked = \fixed c'' { \pgrace { d32[ e d g,] } }
|
|||
|
whshaked = \fixed c'' { \pgrace { d32[ e d cis] } }
|
|||
|
hshakee = \fixed c'' { \pgrace { e32[ fis e a,] } }
|
|||
|
hshakef = \fixed c'' { \pgrace { fis32[ g fis e] } }
|
|||
|
hshakeg = \fixed c'' { \pgrace { g32[ a g fis] } }
|
|||
|
hshakeA = \fixed c'' { \pgrace { a32[ g a a,] } }
|
|||
|
|
|||
|
% Thumb shakes / Thumb Peles
|
|||
|
tshakea = \fixed c'' { \pgrace { a32[ a, e a, g,] } }
|
|||
|
tshakeb = \fixed c'' { \pgrace { a32[ b, e b, g,] } }
|
|||
|
tshakec = \fixed c'' { \pgrace { a32[ cis e cis g,] } }
|
|||
|
tshaked = \fixed c'' { \pgrace { a32[ d e d g,] } }
|
|||
|
wtshaked = \fixed c'' { \pgrace { a32[ d e d cis] } }
|
|||
|
tshakee = \fixed c'' { \pgrace { a32[ e fis e a,] } }
|
|||
|
tshakef = \fixed c'' { \pgrace { a32[ fis g fis e] } }
|
|||
|
tshakeg = \fixed c'' { \pgrace { a32[ g a g fis] } }
|
|||
|
tshakeA = \fixed c'' { \pgrace { a32[ g a a,] } }
|
|||
|
|
|||
|
% Slurs / g, - g,race Strike
|
|||
|
slura = \fixed c'' { \pgrace { g32[ a, g,] } }
|
|||
|
slurb = \fixed c'' { \pgrace { g32[ b, g,] } }
|
|||
|
slurc = \fixed c'' { \pgrace { g32[ cis g,] } }
|
|||
|
slurd = \fixed c'' { \pgrace { g32[ d g,] } }
|
|||
|
wslurd = \fixed c'' { \pgrace { g32[ d cis] } }
|
|||
|
slure = \fixed c'' { \pgrace { g32[ e a,] } }
|
|||
|
slurf = \fixed c'' { \pgrace { g32[ fis e] } }
|
|||
|
slurg = \fixed c'' { \pgrace { a32[ fis a,] } }
|
|||
|
slurA = \fixed c'' { \pgrace { fis32[ a,] } }
|
|||
|
|
|||
|
% Half slurs / Half Strike
|
|||
|
hslura = \fixed c'' { \pgrace { a,32[ g,] } }
|
|||
|
hslurb = \fixed c'' { \pgrace { b,32[ g,] } }
|
|||
|
hslurc = \fixed c'' { \pgrace { cis32[ g,] } }
|
|||
|
hslurd = \fixed c'' { \pgrace { d32[ g,] } }
|
|||
|
whslurd = \fixed c'' { \pgrace { d32[ cis] } }
|
|||
|
hslure = \fixed c'' { \pgrace { e32[ a,] } }
|
|||
|
hslurf = \fixed c'' { \pgrace { fis32[ e] } }
|
|||
|
hslurg = \fixed c'' { \pgrace { g32[ fis] } }
|
|||
|
hslurA = \fixed c'' { \pgrace { a32[ a,] } }
|
|||
|
|
|||
|
% Thumb slurs / Thumb Strike
|
|||
|
tslura = \fixed c'' { \pgrace { a32[ a, g,] } }
|
|||
|
tslurb = \fixed c'' { \pgrace { a32[ b, g,] } }
|
|||
|
tslurc = \fixed c'' { \pgrace { a32[ cis g,] } }
|
|||
|
tslurd = \fixed c'' { \pgrace { a32[ d g,] } }
|
|||
|
wtslurd = \fixed c'' { \pgrace { a32[ d cis] } }
|
|||
|
tslure = \fixed c'' { \pgrace { a32[ e a,] } }
|
|||
|
tslurf = \fixed c'' { \pgrace { a32[ fis e] } }
|
|||
|
tslurg = \fixed c'' { \pgrace { a32[ g fis] } }
|
|||
|
tslurA = \fixed c'' { \pgrace { fis32[ a,] } }
|
|||
|
|
|||
|
% Catches / g,-Grace g,rip
|
|||
|
catcha = \fixed c'' { \pgrace { g32[ a, g, d g,] } }
|
|||
|
catchb = \fixed c'' { \pgrace { g32[ b, g, d g,] } }
|
|||
|
catchc = \fixed c'' { \pgrace { g32[ cis g, d g,] } }
|
|||
|
catchd = \fixed c'' { \pgrace { g32[ d g, d g,] } }
|
|||
|
wcatchd = \fixed c'' { \pgrace { g32[ d g, b, g,] } }
|
|||
|
catche = \fixed c'' { \pgrace { g32[ e g, d g,] } }
|
|||
|
|
|||
|
% Half Catches / Half g,rip
|
|||
|
hcatcha = \fixed c'' { \pgrace { a,32[ g, d g,] } }
|
|||
|
hcatchb = \fixed c'' { \pgrace { b,32[ g, d g,] } }
|
|||
|
hcatchc = \fixed c'' { \pgrace { cis32[ g, d g,] } }
|
|||
|
hcatchd = \fixed c'' { \pgrace { d32[ g, d g,] } }
|
|||
|
whcatchd = \fixed c'' { \pgrace { d32[ g, b, g,] } }
|
|||
|
hcatche = \fixed c'' { \pgrace { e32[ g, d g,] } }
|
|||
|
|
|||
|
% Thumb catches / Thumb g,rip
|
|||
|
tcatcha = \fixed c'' { \pgrace { a32[ a, g, d g,] } }
|
|||
|
tcatchb = \fixed c'' { \pgrace { a32[ b, g, d g,] } }
|
|||
|
tcatchc = \fixed c'' { \pgrace { a32[ cis g, d g,] } }
|
|||
|
tcatchd = \fixed c'' { \pgrace { a32[ d g, d g,] } }
|
|||
|
wtcatchd = \fixed c'' { \pgrace { a32[ d g, b, g,] } }
|
|||
|
tcatche = \fixed c'' { \pgrace { a32[ e g, d g,] } }
|
|||
|
|
|||
|
% Triple strikes
|
|||
|
tripleA = \fixed c'' { \pgrace { a32[ g a g a g] } }
|
|||
|
|
|||
|
% Throws
|
|||
|
thrwd = \fixed c'' { \pgrace { g,32[ d cis] } }
|
|||
|
Gthrwd = \fixed c'' { \pgrace { d32[ cis] } }
|
|||
|
gripthrwd = \fixed c'' { \pgrace { g,32[ d g, cis] } }
|
|||
|
thrwe = \fixed c'' { \pgrace { e32[ a, fis a,] } }
|
|||
|
wthrwe = \fixed c'' { \pgrace { e32[ d fis d] } }
|
|||
|
thrwf = \fixed c'' { \pgrace { fis32[ e g e] } }
|
|||
|
hvthrwd = { \gripthrwd}
|
|||
|
|
|||
|
% Birls
|
|||
|
birl = \fixed c'' { \pgrace { a,32[ g, a, g,] } }
|
|||
|
wbirl = \fixed c'' { \pgrace { g,32[ a, g,] } }
|
|||
|
gbirl = \fixed c'' { \pgrace { g32[ a, g, a, g,] } }
|
|||
|
dbirl = \fixed c'' { \pgrace { d32[ a, g, a, g,] } }
|
|||
|
|
|||
|
% g,rips / Leumluath
|
|||
|
grip = \fixed c'' { \pgrace { g,32[ d g,] } }
|
|||
|
bgrip = \fixed c'' { \pgrace { g,32[ b, g,] } }
|
|||
|
egrip = \fixed c'' { \pgrace { g,32[ e g,] } }
|
|||
|
fgrip = \fixed c'' { \pgrace { g,32[ fis g,] } }
|
|||
|
|
|||
|
% Taorluaths
|
|||
|
taor = \fixed c'' { \pgrace { g,32[ d g, e] } }
|
|||
|
taorjmd = \fixed c'' { \pgrace { g,32[ d a, e] } }
|
|||
|
taorold = \fixed c'' { \pgrace { g,32[ d g, a, e] } }
|
|||
|
btaor = \fixed c'' { \pgrace { g,32[ b, g, e] } }
|
|||
|
Gtaor = \fixed c'' { \pgrace { d32[ g, e] } }
|
|||
|
taoramb = \fixed c'' { \pgrace { g,32[ d g, b, e] } }
|
|||
|
taoramc = \fixed c'' { \pgrace { g,32[ d g, cis e] } }
|
|||
|
taoramd = \fixed c'' { \pgrace { g,32[ d g, cis d e] } }
|
|||
|
|
|||
|
% Peles
|
|||
|
pella = \fixed c'' { \pgrace { g32[ a, e a, g,] } }
|
|||
|
pelb = \fixed c'' { \pgrace { g32[ b, e b, g,] } }
|
|||
|
pelc = \fixed c'' { \pgrace { g32[ cis e cis g,] } }
|
|||
|
peld = \fixed c'' { \pgrace { g32[ d e d g,] } }
|
|||
|
pele = \fixed c'' { \pgrace { g32[ e fis e g,] } }
|
|||
|
pelf = \fixed c'' { \pgrace { g32[ fis g fis e] } }
|
|||
|
lpeld = \fixed c'' { \pgrace { g32[ d e d cis] } }
|
|||
|
|
|||
|
% Thumb Peles
|
|||
|
tpella = \fixed c'' { \pgrace { a32[ a, e a, g,] } }
|
|||
|
tpelb = \fixed c'' { \pgrace { a32[ b, e b, g,] } }
|
|||
|
tpelc = \fixed c'' { \pgrace { a32[ cis e cis g,] } }
|
|||
|
tpeld = \fixed c'' { \pgrace { a32[ d e d g,] } }
|
|||
|
tpele = \fixed c'' { \pgrace { a32[ e fis e g,] } }
|
|||
|
tpelf = \fixed c'' { \pgrace { a32[ fis g fis e] } }
|
|||
|
tpelhg = \fixed c'' { \pgrace { a32[ g a g fis] } }
|
|||
|
ltpeld = \fixed c'' { \pgrace { a32[ d e d cis] } }
|
|||
|
|
|||
|
% Half Peles
|
|||
|
hpella = \fixed c'' { \pgrace { a,32[ e a, g,] } }
|
|||
|
hpelb = \fixed c'' { \pgrace { b,32[ e b, g,] } }
|
|||
|
hpelc = \fixed c'' { \pgrace { cis32[ e cis g,] } }
|
|||
|
hpeld = \fixed c'' { \pgrace { d32[ e d g,] } }
|
|||
|
hpele = \fixed c'' { \pgrace { e32[ fis e g,] } }
|
|||
|
hpelf = \fixed c'' { \pgrace { fis32[ g fis e] } }
|
|||
|
hpelhg = \fixed c'' { \pgrace { g32[ a g fis] } }
|
|||
|
lhpeld = \fixed c'' { \pgrace { d32[ e d cis] } }
|
|||
|
|
|||
|
|
|||
|
% Special piobaireachd notations
|
|||
|
% Crunluaths
|
|||
|
crun = \fixed c'' { \pgrace { g,32[ d g, e a, fis a, ] } }
|
|||
|
dcrun = \fixed c'' { \pgrace { g,32[ b, g, e a, fis a, ] } }
|
|||
|
Gcrun = \fixed c'' { \pgrace { d32[ g, e g, fis a, ] } }
|
|||
|
crunG = \fixed c'' { \pgrace { g,32[ d g, e g, fis g, ] } }
|
|||
|
crunamb = \fixed c'' { \pgrace { g,32[ d g, b, e b, fis b, ] } }
|
|||
|
crunamc = \fixed c'' { \pgrace { g,32[ d g, cis e cis fis cis ] } }
|
|||
|
crunamd = \fixed c'' { \pgrace { g,32[ d g, cis d e d fis d ] } }
|
|||
|
crunambfosg = \fixed c'' { \pgrace { e32[ b, fis b, ] } }
|
|||
|
crunamcfosg = \fixed c'' { \pgrace { e32[ cis fis cis ] } }
|
|||
|
crunamdfosg = \fixed c'' { \pgrace { e32[ d fis d ] } }
|
|||
|
|
|||
|
grGcad = \fixed c'' { \pgrace { g,16 } }
|
|||
|
gracad = \fixed c'' { \pgrace { a,16 } }
|
|||
|
grecad = \fixed c'' { \pgrace { e16 } }
|
|||
|
cad = \fixed c'' { \pgrace { \stemspace #'(0 . 0.5) g32[ e8 d32] } }
|
|||
|
hcad = \fixed c'' { \pgrace { \stemspace #'(0 . 0.5) g32[ e8] } }
|
|||
|
tcad = \fixed c'' { \pgrace { e8[ d32] } }
|
|||
|
thcad = \fixed c'' { \pgrace { e8 } }
|
|||
|
rodin = { \bgrip }
|
|||
|
% This is the same as thrwe
|
|||
|
dre = \fixed c'' { \pgrace { e32[ a, fis a,] } }
|
|||
|
% This is the same as thrwf
|
|||
|
dare = \fixed c'' { \pgrace { fis32[ e g e] } }
|
|||
|
bari = \fixed c'' { \pgrace { e32[ g, fis g,] } }
|
|||
|
dari = \fixed c'' { \pgrace { fis32[ e g e fis e] } }
|
|||
|
fdari = \fixed c'' { \pgrace { e32[ g e fis e] } }
|
|||
|
pthrwd = \fixed c'' { \pgrace { g,16[ d32 cis] } }
|
|||
|
darodo = \fixed c'' { \pgrace { g,32[ d g, cis g,] } }
|
|||
|
Gdarodo = \fixed c'' { \pgrace { d32[ g, cis g,] } }
|
|||
|
pdarodo = \fixed c'' { \pgrace { g,16[ d32 g, cis g,16] } }
|
|||
|
pGdarodo = \fixed c'' { \pgrace { d32[ g, cis g,16] } }
|
|||
|
% Weird stuff from Joseph MacDonald’s book
|
|||
|
fifteenthcutting = \fixed c'' { \pgrace { g,32[ d a, e a, fis a, e a, d] } }
|
|||
|
fifteenthcuttingG = \fixed c'' { \pgrace { g,32[ d a, e g, fis g, e g, d] } }
|
|||
|
Gfifteenthcutting = \fixed c'' { \pgrace { d32[ a, e a, fis a, e a, d] } }
|
|||
|
GfifteenthcuttingG = \fixed c'' { \pgrace { d32[ a, e g, fis g, e g, d] } }
|
|||
|
seventeenthcutting = \fixed c'' { \pgrace { g,32[ d a, e a, fis a, e a, d a, cis] } }
|
|||
|
seventeenthcuttingG = \fixed c'' { \pgrace { g,32[ d a, e g, fis g, e g, d g, cis] } }
|
|||
|
Gseventeenthcutting = \fixed c'' { \pgrace { d32[ a, e a, fis a, e a, d a, cis] } }
|
|||
|
GseventeenthcuttingG = \fixed c'' { \pgrace { d32[ a, e g, fis g, e g, d g, cis] } }
|
|||
|
barluadh = \fixed c'' { \pgrace { g,32[ d a, e a, fis a, e a, d a, cis a, b, a, e a, fis a,] } }
|
|||
|
barluadhG = \fixed c'' { \pgrace { g,32[ d a, e g, fis g, e g, d g, cis g, b, g, e g, fis g,] } }
|
|||
|
Gbarluadh = \fixed c'' { \pgrace { d32[ a, e a, fis a, e a, d a, cis a, b, a, e a, fis a,] } }
|
|||
|
GbarluadhG = \fixed c'' { \pgrace { d32[ a, e g, fis g, e g, d g, cis g, b, g, e g, fis g,] } }
|
|||
|
% Non-gracenote piobaireachd markup.
|
|||
|
trebling = \markup {
|
|||
|
\override #'(baseline-skip . 0.4)
|
|||
|
\column {
|
|||
|
\musicglyph #"scripts.tenuto"
|
|||
|
\musicglyph #"scripts.tenuto"
|
|||
|
\musicglyph #"scripts.tenuto"
|
|||
|
}
|
|||
|
}
|
|||
|
% Abbreviated notation common in piobaireachd scores.
|
|||
|
txtaor = \markup { \center-align "T" }
|
|||
|
txcrun = \markup { \center-align "C" }
|
|||
|
txtaorcrun = \markup {
|
|||
|
\override #'(baseline-skip . 1.8)
|
|||
|
\column {
|
|||
|
\center-align "T"
|
|||
|
\center-align "C"
|
|||
|
}
|
|||
|
}
|
|||
|
txtaoram = \markup { \center-align \scale #'(-1 . -1) "T" }
|
|||
|
txcrunam = \markup { \center-align \scale #'(-1 . -1) "C" }
|
|||
|
txtaorcrunam = \markup {
|
|||
|
\override #'(baseline-skip . 1.8)
|
|||
|
\column {
|
|||
|
\center-align \scale #'(-1 . -1) "T"
|
|||
|
\center-align \scale #'(-1 . -1) "C"
|
|||
|
}
|
|||
|
}
|