summaryrefslogtreecommitdiff
path: root/macros/generic/bagpipe/Green.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/generic/bagpipe/Green.tex
Initial commit
Diffstat (limited to 'macros/generic/bagpipe/Green.tex')
-rw-r--r--macros/generic/bagpipe/Green.tex61
1 files changed, 61 insertions, 0 deletions
diff --git a/macros/generic/bagpipe/Green.tex b/macros/generic/bagpipe/Green.tex
new file mode 100644
index 0000000000..d0b11b49ca
--- /dev/null
+++ b/macros/generic/bagpipe/Green.tex
@@ -0,0 +1,61 @@
+%&bagpipe
+\input bagpipe
+%\let\usemusixtex\relax
+%
+% Green.tex
+%% WUSPBA massed band setting
+%
+\newpitch\newgrace\noautoglue
+\ifx\medleyflag\relax\else\nopagenumbers\fi
+%
+%\landscape
+%
+% for line 1
+\def\barone{\notes\grg\pcps ab\etn\grip\qlc\etn\dblc\pcgc c\gre a\enotes\xbarre}
+\def\bartwo{\notes\grg\pcgc c\thrwd d\etn\dble\qle\etn\gra\pcc ef\enotes\xbarre}
+\def\barthree{\notes\dblc\pcc cf\etn\dble\pcps ec\etn\grg\qlb\enotes\xbarre}
+\def\barfour{\notes\grip\pcc bf\etn\dble\pcps ec\etn\grN\qla\enotes\alaligne}
+%
+% for line 2
+\def\barfive{\barone}
+\def\barsix{\bartwo}
+\def\barseven{\barthree}
+\def\bareight{\notes\grip\pcgc b\grN a\etn\dblc\pcps cb\etn\grN\qla\enotes}
+%
+% for line 3
+\def\barnine{\notes\dblc\pcc ce\etn\dblh\qlh\etn\grg\qlh\enotes\xbarre}
+\def\barten{\notes\grf\pcc gf\etn\dblf\pcc fe\etn\gra\qle\enotes\xbarre}
+\def\bareleven{\notes\grg\pcps ef\etn\dble\pcc ed\etn\shkd\qld\enotes\xbarre}
+\def\bartwelve{\notes\grg\pcps de\etn\dbld\pcc dc\etn\grip\qlc\enotes\alaligne}
+%
+% for line 4
+\def\barthirteen{\barnine}
+\def\barfourteen{\barten}
+\def\barfifteen{\notes\grg\pcps ef\etn\dble\qle\etn\gra\pcps ed\enotes\xbarre}
+\def\barsixteen{\notes\grg\pcgc c\thrwd d\etn\dble\qle\etn\gra\qle\enotes}
+%
+\line{\moyen The Green Hills of Tyrol\hss
+\rm March\hss revised \today\hss PM J Macleod}
+\bigskip
+%
+\generalmeter{\meterfrac 34}%
+%
+\debutmorceau
+%
+\autolines{13}{4}{48}%
+%line 1
+\leftrepeatsymbol
+\barone\bartwo\barthree\barfour
+% line 2
+\barfive\barsix\barseven\bareight\setrightrepeat\suspmorceau
+% line 3
+\reprmorceau
+\autolines{12}{4}{48}%
+\leftrepeatsymbol
+\barnine\barten\bareleven\bartwelve
+% line 4
+\autolines{12}{4}{48}%
+\barthirteen\barfourteen\barfifteen\barsixteen\setrightrepeat\suspmorceau
+%
+\byemedley
+\bye