1 // bookofpsalmsetup.mup
3 define CPRGHT(YR) "\s(14)\(copyright)"+YR+" by Christian Mondrup (scancm\@biobase.dk). Typeset with Mup, non-commercial copying welcome." @
5 // Editorial accidentals
6 define EDACC(PRT) rom(8) above PRT @
21 define STAFFOCT(STF,OCT)
31 define PARTNMFONT1 "\s(18)\f(TX)" @
32 define PARTNMFONT2 "\s(14)\f(TB)" @
33 define CANTUS PARTNMFONT1+"CANTVS." @
34 define MEDIUS PARTNMFONT1+"MEDIVS." @
35 define TENOR1 PARTNMFONT1+"TENOR," @
36 define TENOR2 PARTNMFONT2+"or \f(TX)Playnsong." @
37 define BASSUS PARTNMFONT1+"BASSVS." @
40 define CANTUSLBL(TAG) left(_win.w PRTOFFS,TAG.y-2) CANTUS @
41 define MEDIUSLBL(TAG) left(_win.w PRTOFFS,TAG.y-2) MEDIUS @
43 left(_win.w PRTOFFS,TAG.y) TENOR1
44 left(_win.w PRTOFFS,TAG.y-5) TENOR2 @
45 define BASSUSLBL(TAG) left(_win.w PRTOFFS,TAG.y-2) BASSUS @
47 define RECORDER "74" @
49 define BARLN(TAG,OFFS) line (TAG.x OFFS,TAG.y+4) to (TAG.x OFFS,TAG.y-4) @
51 define SCORETITLE(ARGS)
57 define SCORESETUP(PCKFACT,KEY)
91 midi all: 0 "tempo="+TEMPO;
92 midi 1: 0 "channel=2"; 0 "program="+RECORDER;
93 midi 2: 0 "channel=3"; 0 "program="+RECORDER;
94 midi 3: 0 "channel=4"; 0 "program="+RECORDER;
95 midi 4: 0 "channel=5"; 0 "program="+RECORDER;