3 // For transposition and part extraction see accompanying shell script all.sh
7 define COPYRGHTSZ "14" @
9 define COPYRGHTSZ "10" @
12 define CPRGHT "\f(TR)\s("+COPYRGHTSZ+")\(copyright)2000 by Christian Mondrup (scancm\@biobase.dk) & Emilio Cano Molina (emiliocano\@mundoclasico.com).\nTypeset with Mup, non-commercial copying welcome." @
14 define TRANSLATION "Moreover when ye fast, be not, as the hypocrites, of a sad countenance:\nfor they disfigure their faces, that they may appear unto men to fast.\nVerily I say unto you, they have their reward.\n\n\f(TI)Matthew 6,16" @
16 define COMPOSER "\s(15)Sebastián de Vivanco (1550-1622)\nLibro 23 del Archivo de la Catedral de Toledo" @
28 endif endif endif endif
31 ifdef LOWKEY undef ORIGKEY endif
34 ifdef SUPERIUS undef SCORE endif
35 ifdef ALTUS1 undef SCORE endif
36 ifdef ALTUS2 undef SCORE endif
37 ifdef TENOR undef SCORE endif
38 ifdef BASSUS undef SCORE endif
41 title bold (30) "Cum ieiunatis"
42 title (20) "Feria IV Cinerum"
45 title (14) "Orig. a fifth higher"
72 endif endif endif endif endif
89 addtranspose = up major 2
94 addtranspose = up perfect 5
96 addtranspose = down perfect 4
107 label = "\f(TB)\s(18) Svperius"
109 label2 = "\f(TR)\s(16)S"
112 //transpose = up perfect 8
116 label = "\f(TB)\s(18) Altvs I"
118 label2 = "\f(TR)\s(16)AI"
122 transpose = up perfect 8
126 label = "\f(TB)\s(18) Altvs II"
128 label2 = "\f(TR)\s(16)AII"
132 transpose = up perfect 8
137 label = "\f(TB)\s(18) Tenor"
139 label2 = "\f(TR)\s(16)T"
144 label = "\f(TB)\s(18) Bassus"
146 label2 = "\f(TR)\s(16)B"
151 // title bold (50) "Cum ieiunatis\n"
152 // title (30) "Feria IV Cinerum\n"
155 // title (14) "Orig. a fifth higher\n"
159 // title bold (30) "Sebastián de Vivanco (1550-1622)\n"
160 // title (25) "Libro 23 del Archivo de la Catedral de Toledo\n"
170 define RECORDER "74" @
172 midi all: 0 "tempo=100";
173 midi 1: 0 "channel=2"; 0 "program="+RECORDER;
174 midi 2: 0 "channel=3"; 0 "program="+RECORDER;
175 midi 3: 0 "channel=4"; 0 "program="+RECORDER;
176 midi 4: 0 "channel=5"; 0 "program="+RECORDER;
177 midi 5: 0 "channel=6"; 0 "program="+RECORDER;
180 1 1: [len 0; cue] 8f+; 2..s;
181 1 2: [len 0; cue] 8d; 2..s;
182 2 1: [len 0; cue] 8b; 2..s;
183 2 2: [len 0; cue] 8f-; 2..s;
184 3 1: [len 0; cue] 8b; 2..s;
185 3 2: [len 0; cue] 8f-; 2..s;
186 4 1: [len 0; cue] 8g+; 2..s;
187 4 2: [len 0; cue] 8d; 2..s;
188 5 1: [len 0; cue] 8d+; 2..s;
189 5 2: [len 0; cue] 8b-; 2..s;
201 lyrics 1: "Cum ie-iu-";
206 right(_win.e,COMPY) COMPOSER
223 lyrics 2: "ie-iu-na-";
233 lyrics 2: "tis, no-";
238 ifdef ALTUS2 right(_win.e,COMPY) COMPOSER endif
247 lyrics 3: "ie-iu-na-";
251 ifdef TENOR right(_win.e,COMPY) COMPOSER endif
256 lyrics 1: 2.s;4; "<>";
258 lyrics 2: 4s;2;4; "fi-e-";
262 lyrics 4: "ie-iu-nan-";
274 lyrics 4: "tis, no-";
276 lyrics 5: "Cum ie-iu-";
277 ifdef BASSUS right(_win.e,COMPY) COMPOSER endif
284 lyrics 2: 4s;2.;"no-";
286 lyrics 3: "te fi-e-";
297 lyrics 2: "li, no-li-te";
299 lyrics 3: "ri no-li-te";
303 lyrics 5: "no-li-te";
310 lyrics 2: "fi-e-ri si-";
312 lyrics 3: "fi-e-ri si-";
316 lyrics 5: "fi-e-ri si-";
320 1: 8c+; ; 4; 4.b; 8a;
321 lyrics 1: 8s;8;4;2; "cut hy-po-";
323 lyrics 2,4,5: "cut hy-po-cri-";
325 lyrics 3: "cut hy-po-";
332 lyrics 1: "cri-tae, tris-";
334 lyrics 2: 4;2.; "tae, tris-";
336 lyrics 3: "cri-tae, tris-";
337 4: 8g; a; 4b; 8g; f; e; d;
338 lyrics 4,5: 4s;4;2; "tae, tris-";
346 lyrics 2: 2s;2; "tes._";
348 lyrics 3: "tes. Ex-";
350 lyrics 4,5: 2s;2; "tes.";
356 lyrics 1,5: "Ex-ter-mi-";
358 lyrics 2: 8s;4.;8s;8;4; "<> Ex-ter-";
360 lyrics 3: "ter-mi-nant";
362 lyrics 4: "Ex-ter-mi-nant";
368 lyrics 1: "nant e-nim fa-";
370 lyrics 2: "mi-nant e-nim";
372 lyrics 3: "e-nim fa-";
374 lyrics 4: "e-nim fa-";
376 lyrics 5: "nant e-nim fa-";
381 lyrics 1,4,5: "ci-es su-";
383 lyrics 2: "fa-ci-es su-";
385 lyrics 3: "ci-es su-as,";
403 lyrics 1,5: 4s;2.; "<>";
405 lyrics 2: 2s;2; "as,";
407 lyrics 3: "pa-re-ant_";
409 lyrics 4: "ut ap-pa-";
415 lyrics 1: "ut ap-pa-";
419 lyrics 3: "ho-mi-ni";
421 lyrics 4: "re-ant ho-";
427 lyrics 1: "re-ant ho-";
429 lyrics 2: "ap-pa-re-ant_";
431 lyrics 3: 2s;2; "bus,";
433 lyrics 4: "mi-ni-bus,";
435 lyrics 5: "ut ap-pa-";
440 lyrics 1: "mi-ni-bus,";
442 lyrics 2: 16s;8.;4;2; "<> ho-mi-";
444 lyrics 3: "ut ap-pa-";
447 lyrics 5: "re-ant ho-";
455 lyrics 3: "re-ant ho-";
457 lyrics 4: "ut ap-pa-";
459 lyrics 5: "mi-ni-bus ie-";
464 lyrics 1: "ut ap-pa-";
468 lyrics 3: "mi-ni-bus";
469 4: 4f+; e+; 4.d+; 8c+;
470 lyrics 4: "re-ant ho-";
472 lyrics 5: 2;; "iu-nan-";
477 lyrics 1: "re-ant ho-";
479 lyrics 2: "ap-pa-re-";
481 lyrics 3: "ut ap-pa-";
483 lyrics 4: "mi-ni-bus, ut";
485 lyrics 5: 2s;2; "tes";
490 lyrics 1: 2.;4;"mi-ni-";
492 lyrics 2: "ant ho-mi-ni-";
494 lyrics 3: "re-ant ho-";
516 lyrics 2: 4;2.; "iu-nan-";
519 lyrics 4: "ant ho-mi-ni-";
524 1: 4.d+; 8c+; b; a; 4b~;
526 lyrics 2: 2s;2; "tes,";
528 lyrics 3: "bus ie-iu-nan-";
537 lyrics 1: 2s;2;"tes,";
540 4: 4c+; 4.d+; 8c+; 4b~;
541 lyrics 4: 4;2.; "iu-nan-";
543 lyrics 5: 2s;2; "nan-";
548 lyrics 1: "ie-iu-nan-";
552 lyrics 3: "tes, ie-";
554 lyrics 4: 2s;2; "tes.";
556 lyrics 5: "tes, ie-iu-";
562 lyrics 2: 4s;2.; "nan-";
567 lyrics 5: 2s;2; "nan-";
584 lyrics 1: "A-men di-";
600 lyrics 3: "A-men di-";
602 lyrics 4: 8s;4.;2; "<> vo-";
609 lyrics 1: 2s;2; "bis,_";
614 lyrics 4: "bis, di-co vo-";
616 lyrics 5: 8s;4.;2; "<> vo-";
621 lyrics 1: 8s;2..; "<>";
625 lyrics 3: 2s; 4;; "bis, di-";
628 lyrics 5: 2s;2; "bis,";
636 3: 8e; f; 4.g; 8f; 4~;
643 lyrics 1: "men di-co";
646 3: 4f; 8e; d; 4c; b-;
647 lyrics 3: 2.s;4; "co";
649 lyrics 4: 2s;2; "bis,";
651 lyrics 5: "A-men di-";
677 lyrics 5: 2s;2; "bis,";
682 lyrics 1: 4;2.; "co vo-";
686 lyrics 3: 8s;4.;2; "<> vo-";
690 lyrics 5: "di-co vo-";
697 lyrics 2: "ce-pe-runt";
699 lyrics 3: "bis: re-ce-pe-";
703 lyrics 5: "bis: re-";
709 lyrics 2: "mer-ce-dem";
711 lyrics 3: "runt mer-ce-";
714 lyrics 5: "ce-pe-runt mer-";
719 lyrics 1: "re-ce-pe-";
723 lyrics 3: 4;2.; "dem su-";
727 lyrics 5: "ce-dem su-";
732 lyrics 1: "runt mer-ce-";
738 lyrics 4: "ce-pe-runt mer-";
745 lyrics 1: 4;2.; "dem su";
747 lyrics 2: "ce-pe-runt, re-";
751 lyrics 4: "ce-dem su-";
759 2: 4e; f; b-; 8r; b-;
760 lyrics 2: "ce-pe-runt, re-";
762 lyrics 3: "ce-pe-runt,";
763 4: 4c+; ; 8g; a; 4b~;
764 lyrics 4: "am, mer-ce-dem su-";
766 lyrics 5: "runt mer-ce-dem";
771 lyrics 1: "ce-pe-runt mer-";
779 lyrics 5: "su-am, mer-";
783 1: 4b; g; 8a; g; a; b;
784 lyrics 1: 4;;2; "ce-dem su-";
786 lyrics 2: "runt mer-ce-dem";
788 lyrics 3: "pe-runt mer-";
790 lyrics 4: "ce-pe-runt";
797 2: 8g; f; e; d; e; d; c; b-;
798 lyrics 2,5: 1; "su-";
800 lyrics 3: "ce-dem su-";
802 lyrics 4: 4;2;4; "mer-ce-dem";
825 endbar pad -24 =_endsc
828 define TRANSLOFFS -30 @
830 define TRANSLOFFS -22 @
833 print (_win.w +5,_endsc.s TRANSLOFFS) TRANSLATION+"