]> dxcluster.org Git - music.git/blob - bookofpsalmsetup.mup
final(ish) version of palestrina christi munera
[music.git] / bookofpsalmsetup.mup
1 // bookofpsalmsetup.mup
2
3 define CPRGHT(YR) "\s(14)\(copyright)"+YR+" by Christian Mondrup (scancm\@biobase.dk). Typeset with Mup, non-commercial copying welcome." @
4
5 // Editorial accidentals
6 define EDACC(PRT) rom(8) above PRT @
7 define FLT "\(flat)" @
8 define NA "\(nat)" @
9 define SH "\(sharp)" @
10
11 define FULLBAR 
12         score
13           barstyle = 1-4;
14         music @
15
16 define DIVBAR 
17         score
18           barstyle = ;
19         music @
20
21 define STAFFOCT(STF,OCT)
22         staff STF
23           defoct = OCT
24         music @
25
26 define MTR(ARG)
27         score
28           time = ARGn
29         music @
30
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." @
38 define PRTOFFS +2 @
39
40 define CANTUSLBL(TAG) left(_win.w PRTOFFS,TAG.y-2) CANTUS @
41 define MEDIUSLBL(TAG) left(_win.w PRTOFFS,TAG.y-2) MEDIUS @
42 define TENORLBL(TAG)
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 @
46
47 define RECORDER "74" @
48
49 define BARLN(TAG,OFFS) line (TAG.x OFFS,TAG.y+4) to (TAG.x OFFS,TAG.y-4) @
50
51 define SCORETITLE(ARGS)
52 header
53         title bold (22) ARGS
54         title (16) " "
55 @
56
57 define SCORESETUP(PCKFACT,KEY)
58 score
59         //key = 1&
60         key = KEY
61         time = 4/4n
62
63         scale = .6
64
65         units = cm
66         leftmargin = 1.2
67         topmargin = .5
68         packfact = PCKFACT
69         scoresep = 20
70
71         measnum = y
72
73         lyricsalign = .5
74         lyricssize = 16
75         size = 16
76
77         staffs = 4
78         bracket = 1-4
79         barstyle = 1-4
80         release = 40
81         label = "                     "
82 staff 1
83         clef = soprano
84 staff 2
85         clef = alto
86 staff 3
87         clef = tenor
88 staff 4
89         clef = bass
90 music
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; 
96 @
97
98 define CLEFCHANGE
99         // clef change
100 score
101         time=1/4n
102         barstyle=
103         stafflines=5n
104 staff 1
105         clef=treble
106 staff 2
107         clef=treble
108 staff 3
109         clef=treble8
110 staff 4
111         clef=bass
112 music
113 @