3 // For transposition and part extraction see accompanying shell script all.sh
6 define COPYRGHTSZ "14" @
8 define COPYRGHTSZ "10" @
11 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." @
13 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" @
15 define COMPOSER "\s(15)Sebastián de Vivanco (1550-1622)\nLibro 23 del Archivo de la Catedral de Toledo" @
27 endif endif endif endif
30 ifdef LOWKEY undef ORIGKEY endif
33 ifdef SUPERIUS undef SCORE endif
34 ifdef ALTUS1 undef SCORE endif
35 ifdef ALTUS2 undef SCORE endif
36 ifdef TENOR undef SCORE endif
37 ifdef BASSUS undef SCORE endif
40 title bold (30) "Cum ieiunatis"
41 title (20) "Feria IV Cinerum"
44 title (14) "Orig. a fifth higher"
71 endif endif endif endif endif
88 addtranspose = up major 2
93 addtranspose = up perfect 5
95 addtranspose = down perfect 4
106 label = "\f(TB)\s(18) Svperius"
108 label2 = "\f(TR)\s(16)S"
111 //transpose = up perfect 8
115 label = "\f(TB)\s(18) Altvs I"
117 label2 = "\f(TR)\s(16)AI"
121 transpose = up perfect 8
125 label = "\f(TB)\s(18) Altvs II"
127 label2 = "\f(TR)\s(16)AII"
131 transpose = up perfect 8
136 label = "\f(TB)\s(18) Tenor"
138 label2 = "\f(TR)\s(16)T"
143 label = "\f(TB)\s(18) Bassus"
145 label2 = "\f(TR)\s(16)B"
150 // title bold (50) "Cum ieiunatis\n"
151 // title (30) "Feria IV Cinerum\n"
154 // title (14) "Orig. a fifth higher\n"
158 // title bold (30) "Sebastián de Vivanco (1550-1622)\n"
159 // title (25) "Libro 23 del Archivo de la Catedral de Toledo\n"
169 define RECORDER "74" @
171 midi all: 0 "tempo=100";
172 midi 1: 0 "channel=2"; 0 "program="+RECORDER;
173 midi 2: 0 "channel=3"; 0 "program="+RECORDER;
174 midi 3: 0 "channel=4"; 0 "program="+RECORDER;
175 midi 4: 0 "channel=5"; 0 "program="+RECORDER;
176 midi 5: 0 "channel=6"; 0 "program="+RECORDER;
179 1 1: [len 0; cue] 8f+; 2..s;
180 1 2: [len 0; cue] 8d; 2..s;
181 2 1: [len 0; cue] 8b; 2..s;
182 2 2: [len 0; cue] 8f-; 2..s;
183 3 1: [len 0; cue] 8b; 2..s;
184 3 2: [len 0; cue] 8f-; 2..s;
185 4 1: [len 0; cue] 8g+; 2..s;
186 4 2: [len 0; cue] 8d; 2..s;
187 5 1: [len 0; cue] 8d+; 2..s;
188 5 2: [len 0; cue] 8b-; 2..s;
200 lyrics 1: "Cum ie-iu-";
205 right(_win.e,COMPY) COMPOSER
222 lyrics 2: "ie-iu-na-";
232 lyrics 2: "tis, no-";
237 ifdef ALTUS2 right(_win.e,COMPY) COMPOSER endif
246 lyrics 3: "ie-iu-na-";
250 ifdef TENOR right(_win.e,COMPY) COMPOSER endif
255 lyrics 1: 2.s;4; "<>";
257 lyrics 2: 4s;2;4; "fi-e-";
261 lyrics 4: "ie-iu-nan-";
273 lyrics 4: "tis, no-";
275 lyrics 5: "Cum ie-iu-";
276 ifdef BASSUS right(_win.e,COMPY) COMPOSER endif
283 lyrics 2: 4s;2.;"no-";
285 lyrics 3: "te fi-e-";
296 lyrics 2: "li, no-li-te";
298 lyrics 3: "ri no-li-te";
302 lyrics 5: "no-li-te";
309 lyrics 2: "fi-e-ri si-";
311 lyrics 3: "fi-e-ri si-";
315 lyrics 5: "fi-e-ri si-";
319 1: 8c+; ; 4; 4.b; 8a;
320 lyrics 1: 8s;8;4;2; "cut hy-po-";
322 lyrics 2,4,5: "cut hy-po-cri-";
324 lyrics 3: "cut hy-po-";
331 lyrics 1: "cri-tae, tris-";
333 lyrics 2: 4;2.; "tae, tris-";
335 lyrics 3: "cri-tae, tris-";
336 4: 8g; a; 4b; 8g; f; e; d;
337 lyrics 4,5: 4s;4;2; "tae, tris-";
345 lyrics 2: 2s;2; "tes._";
347 lyrics 3: "tes. Ex-";
349 lyrics 4,5: 2s;2; "tes.";
355 lyrics 1,5: "Ex-ter-mi-";
357 lyrics 2: 8s;4.;8s;8;4; "<> Ex-ter-";
359 lyrics 3: "ter-mi-nant";
361 lyrics 4: "Ex-ter-mi-nant";
367 lyrics 1: "nant e-nim fa-";
369 lyrics 2: "mi-nant e-nim";
371 lyrics 3: "e-nim fa-";
373 lyrics 4: "e-nim fa-";
375 lyrics 5: "nant e-nim fa-";
380 lyrics 1,4,5: "ci-es su-";
382 lyrics 2: "fa-ci-es su-";
384 lyrics 3: "ci-es su-as,";
402 lyrics 1,5: 4s;2.; "<>";
404 lyrics 2: 2s;2; "as,";
406 lyrics 3: "pa-re-ant_";
408 lyrics 4: "ut ap-pa-";
414 lyrics 1: "ut ap-pa-";
418 lyrics 3: "ho-mi-ni";
420 lyrics 4: "re-ant ho-";
426 lyrics 1: "re-ant ho-";
428 lyrics 2: "ap-pa-re-ant_";
430 lyrics 3: 2s;2; "bus,";
432 lyrics 4: "mi-ni-bus,";
434 lyrics 5: "ut ap-pa-";
439 lyrics 1: "mi-ni-bus,";
441 lyrics 2: 16s;8.;4;2; "<> ho-mi-";
443 lyrics 3: "ut ap-pa-";
446 lyrics 5: "re-ant ho-";
454 lyrics 3: "re-ant ho-";
456 lyrics 4: "ut ap-pa-";
458 lyrics 5: "mi-ni-bus ie-";
463 lyrics 1: "ut ap-pa-";
467 lyrics 3: "mi-ni-bus";
468 4: 4f+; e+; 4.d+; 8c+;
469 lyrics 4: "re-ant ho-";
471 lyrics 5: 2;; "iu-nan-";
476 lyrics 1: "re-ant ho-";
478 lyrics 2: "ap-pa-re-";
480 lyrics 3: "ut ap-pa-";
482 lyrics 4: "mi-ni-bus, ut";
484 lyrics 5: 2s;2; "tes";
489 lyrics 1: 2.;4;"mi-ni-";
491 lyrics 2: "ant ho-mi-ni-";
493 lyrics 3: "re-ant ho-";
515 lyrics 2: 4;2.; "iu-nan-";
518 lyrics 4: "ant ho-mi-ni-";
523 1: 4.d+; 8c+; b; a; 4b~;
525 lyrics 2: 2s;2; "tes,";
527 lyrics 3: "bus ie-iu-nan-";
536 lyrics 1: 2s;2;"tes,";
539 4: 4c+; 4.d+; 8c+; 4b~;
540 lyrics 4: 4;2.; "iu-nan-";
542 lyrics 5: 2s;2; "nan-";
547 lyrics 1: "ie-iu-nan-";
551 lyrics 3: "tes, ie-";
553 lyrics 4: 2s;2; "tes.";
555 lyrics 5: "tes, ie-iu-";
561 lyrics 2: 4s;2.; "nan-";
566 lyrics 5: 2s;2; "nan-";
583 lyrics 1: "A-men di-";
599 lyrics 3: "A-men di-";
601 lyrics 4: 8s;4.;2; "<> vo-";
608 lyrics 1: 2s;2; "bis,_";
613 lyrics 4: "bis, di-co vo-";
615 lyrics 5: 8s;4.;2; "<> vo-";
620 lyrics 1: 8s;2..; "<>";
624 lyrics 3: 2s; 4;; "bis, di-";
627 lyrics 5: 2s;2; "bis,";
635 3: 8e; f; 4.g; 8f; 4~;
642 lyrics 1: "men di-co";
645 3: 4f; 8e; d; 4c; b-;
646 lyrics 3: 2.s;4; "co";
648 lyrics 4: 2s;2; "bis,";
650 lyrics 5: "A-men di-";
676 lyrics 5: 2s;2; "bis,";
681 lyrics 1: 4;2.; "co vo-";
685 lyrics 3: 8s;4.;2; "<> vo-";
689 lyrics 5: "di-co vo-";
696 lyrics 2: "ce-pe-runt";
698 lyrics 3: "bis: re-ce-pe-";
702 lyrics 5: "bis: re-";
708 lyrics 2: "mer-ce-dem";
710 lyrics 3: "runt mer-ce-";
713 lyrics 5: "ce-pe-runt mer-";
718 lyrics 1: "re-ce-pe-";
722 lyrics 3: 4;2.; "dem su-";
726 lyrics 5: "ce-dem su-";
731 lyrics 1: "runt mer-ce-";
737 lyrics 4: "ce-pe-runt mer-";
744 lyrics 1: 4;2.; "dem su";
746 lyrics 2: "ce-pe-runt, re-";
750 lyrics 4: "ce-dem su-";
758 2: 4e; f; b-; 8r; b-;
759 lyrics 2: "ce-pe-runt, re-";
761 lyrics 3: "ce-pe-runt,";
762 4: 4c+; ; 8g; a; 4b~;
763 lyrics 4: "am, mer-ce-dem su-";
765 lyrics 5: "runt mer-ce-dem";
770 lyrics 1: "ce-pe-runt mer-";
778 lyrics 5: "su-am, mer-";
782 1: 4b; g; 8a; g; a; b;
783 lyrics 1: 4;;2; "ce-dem su-";
785 lyrics 2: "runt mer-ce-dem";
787 lyrics 3: "pe-runt mer-";
789 lyrics 4: "ce-pe-runt";
796 2: 8g; f; e; d; e; d; c; b-;
797 lyrics 2,5: 1; "su-";
799 lyrics 3: "ce-dem su-";
801 lyrics 4: 4;2;4; "mer-ce-dem";
824 endbar pad -24 =_endsc
827 define TRANSLOFFS -30 @
829 define TRANSLOFFS -22 @
832 print (_win.w +5,_endsc.s TRANSLOFFS) TRANSLATION+"