%&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
