% ihrl.mtp

% (setq compilation-read-command nil)
% (setq compile-command "abcpp -MIDI ihrl.mtp ihrlmid.mtx; prepmx ihrlmid; pmxab ihrlmid")
% (setq compile-command "abcpp -SCORE ihrl.mtp ihrlsc.mtx; mtx ihrlsc")
% (setq compile-command "abcpp -DISKANT ihrl.mtp ihrlsop.mtx; mtx ihrlsop")
% (setq compile-command "abcpp -ALT ihrl.mtp ihrlalt.mtx; mtx ihrlalt")
% (setq compile-command "abcpp -TENOR ihrl.mtp ihrlten.mtx; mtx ihrlten")
% (setq compile-command "abcpp -BASS ihrl.mtp ihrlbas.mtx; mtx ihrlbas")

#define ISTAFF "12"
#define PSK1 "6"
#define PSK2 "3"
#define VOICEOOHS "54"

#ifdef SCORE MIDI DISKANT
#define S_ ""
#else
#define S_ "% "
#endif

#ifdef SCORE MIDI ALT
#define A_ ""
#else
#define A_ "% "
#endif

#ifdef SCORE MIDI TENOR
#define T_ ""
#else
#define T_ "% "
#endif

#ifdef SCORE MIDI BASS
#define B_ ""
#else
#define B_ "% "
#endif

MySATB: Voices S A T B; Clefs G G G8 F; Choral
MyDescant: Voices V1; Vocal; Clefs G
MyTenor: Voices V1; Vocal; Clefs G8
MyBass: Voices V1; Vocal; Clefs F

#ifdef SCORE
Size: 16
Pages: 1
Systems: 3
Style: MySATB
Octave: 4 4 4 3
Name: Diskant. Alt. Tenor. Ba\ss.
#define SOFFS "+2"
#define AOFFS "+0"
#define TOFFS "+2"
#define BOFFS "-5"
#elifdef MIDI
Style: MySATB
Octave: 4 4 3 3
An#elifdef DISKANT
Pages: 1
Systems: 4
Style: MyDescant
Octave: 4
Name: Diskant. 
#define SOFFS "+4"
#elifdef ALT
Pages: 1
Systems: 4
Style: MyDescant
Octave: 4
Name: Alt.
#define AOFFS "+3"
#elifdef TENOR
Pages: 1
Systems: 4
Style: MyTenor
Octave: 4
Name: Tenor.
#define TOFFS "+4"
#elifdef BASS
Pages: 1
Systems: 4
Style: MyBass
Octave: 3
Name: Ba\ss.
#define BOFFS "+5"
#endif

Meter: m4/2/0/6
Title: Ihr lieben Kinder freuet euch
Composer: \vbox{\composa\composb}

%% \raggedbottom
%% \parskip PSK1\Interligne plus PSK2\Interligne minus PSK2\Interligne
%% \input mensural
%% \font\names = cmr10

%% \def\composa{\llap{\names Joachim a Burgk (1546-1610)}}
%% \def\composb{\llap{\names From M. Praetorius, Musae Sioniae, Sechster Theil, 1609, XCI}}
%% \startbarno=2
%% \def\writebarno{\ifnum\barno>2\lrlap{\tenrm\the\barno\barnoadd}\fi}
%% \def\raisebarno{3.5\internote}
%% \def\shiftbarno{1.3\Interligne}

% 1 - 2
%% \\let\interstaffsav\interstaff\def\interstaff#1{}\interstaffsav{ISTAFF}\
%% Abr 
#ifdef MIDI
%% It140iVOICEOOHS:VOICEOOHS:VOICEOOHS:VOICEOOHS
#endif
S_@SOFFS g4 g g a2 | g4 {~ [[ g8 a b c ] d4.c c2 }~ b4 |
S_L: Ihr lie-ben Kin-der freu-et
A_@AOFFS d4 e e f2 | d {~ g4.f e }~ f g2 |
A_L: Ihr lie-ben Kin-der freu-et euch/
T_@TOFFS b4 c b {~ d.c | b8 a b2 }~ b4 c2 d |
T_L: Ihr lie-ben Kin-der freu-et
B_@BOFFS g4 c- e d2 | g g a g |
B_L: Ihr lie-ben Kin-der freu-et euch/

% 3 - 4
S_c2 r4 b d2 e | d b a g |
S_L: euch/ freut euch ihr Al-ten zu-gleich/
A_r4 g g2 g4 a (t g2 | g4 )t fs g2 c- e4 d |
A_L: freut euch ihr Al-ten zu-gleich/ da{\ss} Gott sein
T_c2,b b,a b4 c | a2 g r4 a c b |
T_L: euch/ freut euch ihr Al-ten zu-gleich/ da{\ss} Gott sein
B_r4 c- e g2 f4 e c | d2 r4 g f2,e (t g4 |
B_L: freut euch ihr Al-ten zu-gleich/ da{\ss} Gott sein Zu-

% 5 - 6
S_r2 r4 g c2,b (t d4 | d4 )t a g2 e d |
S_L: da{\ss} Gott sein Zu-sag hat be-weist/
A_g4 f {~ e.d c }~ a d d | g e e d cs c d2 |
A_L: Zu-sag hat be-weist/ da{\ss} Gott sein Zu-sag hat be-weist/
T_d2,a g2,fsi oes g4 bf | g a c g a a d2- |
T_L: Zu-sag hat be-weist/ da{\ss} Gott sein Zu-sag hat be-weist/
B_g4 )t d c2 a g | rp |
B_L: sag hat be-weist/

% 7 - 8
S_r4 a+ a2,a a,b | {~ c4.b a }~ g fs a bf {~ (t a |
S_L: die er ge-tan im Pa-ra-deis/ Ky-ri-e-
A_r4 f f2,e f,g | {~ g4.f e }~ e d f oen d2 |
A_L: die er ge-tan im Pa-ra-deis/ Ky-ri-
T_r4 d+ d2,cs d,d | {~ e4.d c }~ b a d2,a |
T_L: die er ge-tan im Pa-ra-deis/ Ky-ri-
B_r4 d+ d2,a d,g | c2- c d g4 fs |
B_L: die er ge-tan im Pa-ra-deis/ Ky-ri-

% 9 - 10
S_a8 )t g }~ {~ g2,fs }~ g4 a a2 | a4 a2,b {~ c4.b a }~ g |
S_L: lei-son/ die er ge-tan im Pa-ra-
A_d2 d d4 f f2 | e4 f2,g {~ g4.f e }~ e |
A_L: e-lei-son/ die er ge-tan im Pa-ra-
T_bf2 a b4ni oen d d2 | cs4 d2,d {~ e4.d cn }~ b |
T_L: e-lei-son/ die er ge-tan im Pa-ra-
B_g2 d g4- d+ d2 | a4 d2,g c2- c |
B_L: e-lei-son/ die er ge-tan im Pa-ra-

% 11
S_fs4 a bf {~ a.g }~ {~ g2,f }~ |
S_L: deis/ Ky-ri-e-lei-
A_d4 f oen d2.d d |
A_L: deis/ Ky-ri-e-lei-
T_a4 d2,a bf a |
T_L: deis/ Ky-ri-e-lei-
B_d2,g fs4 g2 d |
B_L: deis/ Ky-ri-e-lei-

% 12
#ifndef MIDI
S_m1/8/0/0 \longau{2}\ rpb
S_L: son.
A_m1/8/0/0 \longau{-1}\ rpb
A_L: son.
T_m1/8/0/0 \longau{2}\ rpb
T_L: son.
B_m1/8/0/0 \longau{0}\ X2 rpb
B_L: son.
#else
Sg0 rb
A_d0 rb
T_g0 rb
B_g0- rb
#endif