mensural.mup

   1 //!Mup-Arkkra
   2
   3 // mensural.mup
   4
   5 // ----------------------------------------------------------------------------
   6
   7 // Overall stem length
   8
   9 define STMLEN 6 @
  10
  11 // Notehead used for longa and breve
  12
  13 define QUDRTOFFS +1.75 @
  14 //define LO +2 @
  15 define LO -0 @
  16 define LNADD -.2 @
  17 define LNADD2 LNADD LNADD @
  18 define LNGVERT .7 @
  19 define LNGVERTU .7 @
  20 define LNGVERTD 1 @
  21 //define LNGHOR 2.5 @
  22 define LNGHOR 3 @
  23 define HOR2DIST -1.5 @
  24 define LNGUSTEM STMLEN -LNGVERTU QUDRTOFFS -2 @
  25 define LNGDSTEM STMLEN +LNGVERT QUDRTOFFS -2 @
  26
  27 define UPPERHORLINE
  28         medium line (P1.x LO,P1.y OFFS1 QUDRTOFFS) to (P1.x LO +LNGHOR,P1.y OFFS1 QUDRTOFFS) @
  29
  30 define LOWERHORLINE
  31         medium line (P1.x LO,P1.y OFFS1 HOR2DIST QUDRTOFFS) to (P1.x LO +LNGHOR,P1.y OFFS1 HOR2DIST QUDRTOFFS) @
  32
  33 define LEFTVERLINE
  34         line (P1.x LO,P1.y OFFS1 +LNGVERTU QUDRTOFFS) to (P1.x LO,P1.y OFFS1 HOR2DIST -LNGVERTD QUDRTOFFS) @
  35
  36 define RIGHTVERLINE
  37         line (P1.x LO +LNGHOR,P1.y OFFS1 +LNGVERTU +USTEM QUDRTOFFS) to (P1.x LO +LNGHOR,P1.y OFFS1 HOR2DIST -LNGVERTD -DSTEM QUDRTOFFS) @
  38
  39 define QUADRHD(P1,OFFS1,USTEM,DSTEM)
  40         UPPERHORLINE
  41         LOWERHORLINE
  42         LEFTVERLINE
  43         RIGHTVERLINE @
  44
  45 define LONGAU(P2,OFFS2) QUADRHD(P2,OFFS2,LNGUSTEM,0) @
  46 define LONGAD(P2,OFFS2) QUADRHD(P2,OFFS2,0,LNGDSTEM) @
  47 define BREVE(P2,OFFS2) QUADRHD(P2,OFFS2,0,0) @
  48
  49 // ----------------------------------------------------------------------------
  50
  51 // noteheads used for semibreve, minima, semiminima, fusa & semifusa
  52
  53 define DMNDHD "\s(12) \(diamond)" @
  54 define FILLHD "\s(12) \(filldiamond)" @
  55 define STMXOFFS +2.4 @
  56 define STMYUOFFS +2 @
  57 define STMYDOFFS -0 @
  58 define FLAGXOFFS1 +2 @
  59 define FLAGYOFFS1 .2 @
  60 define FLAGYOFFS2 2 @
  61 define FLAGYOFFS3 1.4 @
  62 define FLAGYOFFS4 3.2 @
  63
  64 define STEMU line (P1.x STMXOFFS,P1.y OFFS1 STMYUOFFS) to (P1.x STMXOFFS,P1.y OFFS1  STMYUOFFS +STMLEN) @
  65
  66 define STEMD line (P1.x STMXOFFS,P1.y OFFS1 STMYDOFFS) to (P1.x STMXOFFS,P1.y OFFS1  STMYDOFFS -STMLEN) @
  67
  68 define FLAGU1 line (P1.x STMXOFFS,P1.y OFFS1  STMYUOFFS +STMLEN -FLAGYOFFS1) to (P1.x STMXOFFS FLAGXOFFS1,P1.y OFFS1  STMYUOFFS +STMLEN -FLAGYOFFS2) @
  69
  70 define FLAGU2 line (P1.x STMXOFFS,P1.y OFFS1  STMYUOFFS +STMLEN -FLAGYOFFS3) to (P1.x STMXOFFS FLAGXOFFS1,P1.y OFFS1  STMYUOFFS +STMLEN -FLAGYOFFS4) @
  71
  72 define FLAGD1 line (P1.x STMXOFFS,P1.y OFFS1  STMYDOFFS -STMLEN +FLAGYOFFS1) to (P1.x STMXOFFS FLAGXOFFS1,P1.y OFFS1  STMYDOFFS -STMLEN +FLAGYOFFS2) @
  73
  74 define FLAGD2 line (P1.x STMXOFFS,P1.y OFFS1  STMYDOFFS -STMLEN +FLAGYOFFS3) to (P1.x STMXOFFS FLAGXOFFS1,P1.y OFFS1  STMYDOFFS -STMLEN +FLAGYOFFS4) @
  75
  76 define SEMIBREVE(P1,OFFS1)
  77         print (P1.x,P1.y OFFS1) DMNDHD @
  78
  79 define CLRDSEMIBREVE(P1,OFFS1)
  80         print (P1.x,P1.y OFFS1) FILLHD @
  81
  82 define MINIMU(P1,OFFS1)
  83         print (P1.x,P1.y OFFS1) DMNDHD
  84         STEMU @
  85
  86 define MINIMD(P1,OFFS1)
  87         print (P1.x,P1.y OFFS1) DMNDHD
  88         STEMD @
  89
  90 define SEMIMINU(P1,OFFS1)
  91         print (P1.x,P1.y OFFS1) FILLHD
  92         STEMU @
  93
  94 define SEMIMIND(P1,OFFS1)
  95         print (P1.x,P1.y OFFS1) FILLHD
  96         STEMD @
  97
  98 define FUSAU(P1,OFFS1)
  99         print (P1.x,P1.y OFFS1) FILLHD
 100         STEMU
 101         FLAGU1 @
 102
 103 define SEMIFUSAU(P1,OFFS1)
 104         print (P1.x,P1.y OFFS1) FILLHD
 105         STEMU
 106         FLAGU1
 107         FLAGU2 @
 108
 109 define FUSAD(P1,OFFS1)
 110         print (P1.x,P1.y OFFS1) FILLHD
 111         STEMD
 112         FLAGD1 @
 113
 114 define SEMIFUSAD(P1,OFFS1)
 115         print (P1.x,P1.y OFFS1) FILLHD
 116         STEMD
 117         FLAGD1
 118         FLAGD2 @
 119
 120 // ----------------------------------------------------------------------------
 121
 122 // prolongation dots
 123
 124 define DOT "\s(12) \(dot)" @
 125 define UDOTYOFFS +1.5 @
 126 define LDOTYOFFS -.5 @
 127 define CDOTYOFFS +.5 @
 128 define DOTXOFFS +3.2 @
 129
 130 define UDOT(P1,OFFS1)
 131         print (P1.x DOTXOFFS,P1.y OFFS1 UDOTYOFFS) DOT @
 132
 133 define LDOT(P1,OFFS1)
 134         print (P1.x DOTXOFFS,P1.y OFFS1 LDOTYOFFS) DOT @
 135
 136 define CDOT(P1,OFFS1)
 137         print (P1.x DOTXOFFS,P1.y OFFS1 CDOTYOFFS) DOT @
 138
 139 // ----------------------------------------------------------------------------
 140
 141 // Acidentals
 142
 143 define SHARPXOFFS -2.5 @
 144 define SHDST .75 @
 145
 146 define SHARP(P1,OFFS1)
 147         line (P1.x SHARPXOFFS,P1.y OFFS1+2) to (P1.x SHARPXOFFS+2,P1.y OFFS1);
 148         line (P1.x SHARPXOFFS+SHDST,P1.y OFFS1+2) to (P1.x SHARPXOFFS+SHDST+2,P1.y OFFS1);
 149         line (P1.x SHARPXOFFS,P1.y OFFS1) to (P1.x SHARPXOFFS+2,P1.y OFFS1+2);
 150         line (P1.x SHARPXOFFS+SHDST,P1.y OFFS1) to (P1.x SHARPXOFFS+SHDST+2,P1.y OFFS1+2); @
 151
 152 // ----------------------------------------------------------------------------
 153
 154 // ledger line
 155
 156 define LEDGERLEN +4.75 @
 157
 158 define LEDGER(P1,OFFS1)
 159         line (P1.x,P1.y OFFS1) to (P1.x LEDGERLEN,P1.y OFFS1) @
 160
 161 define PLEDGER(P1,XOFFS,YOFFS)
 162         line (P1.x XOFFS,P1.y YOFFS) to (P1.x XOFFS LEDGERLEN,P1.y YOFFS) @
 163
 164 // ----------------------------------------------------------------------------
 165
 166 // Rests
 167
 168 define RXOFFS +2 @
 169 define RLINEADD +.2 @
 170 define RLINEADD2 RLINEADD RLINEADD @
 171
 172 define RLONGALINELEN 4 @
 173
 174 define RLONGA(P1,OFFS1)
 175         medium line (P1.x RXOFFS,P1.y OFFS1) to (P1.x RXOFFS,P1.y OFFS1 -RLONGALINELEN) @
 176
 177 define RBREVELINELEN 2 @
 178
 179 define RBREVE(P1,OFFS1)
 180         medium line (P1.x RXOFFS,P1.y OFFS1) to (P1.x RXOFFS,P1.y OFFS1 -RBREVELINELEN) @
 181
 182 define RLINELEN 1.2 @
 183
 184 define RSEMIBREVE(P1,OFFS1)
 185         medium line (P1.x RXOFFS,P1.y OFFS1) to (P1.x RXOFFS,P1.y OFFS1 -RLINELEN) @
 186
 187 define RMINIM(P1,OFFS1)
 188         medium line (P1.x RXOFFS,P1.y OFFS1) to (P1.x RXOFFS,P1.y OFFS1 +RLINELEN) @
 189
 190 define RFLAGYOFFS1 .1 @
 191
 192 define RFLAG1 line (P1.x RLINEADD RXOFFS,P1.y OFFS1 +RLINELEN -RFLAGYOFFS1) to (P1.x  RLINEADD +1 RXOFFS,P1.y OFFS1 +RLINELEN -.5) @
 193
 194 define RSEMIMINIM(P1,OFFS1)
 195         medium line (P1.x RXOFFS,P1.y OFFS1) to (P1.x RXOFFS,P1.y OFFS1 +RLINELEN)
 196         RFLAG1 @
 197
 198 // ----------------------------------------------------------------------------
 199
 200 // Clefs
 201
 202 define GCLF "\s(12) \(gclef)" @
 203 define CCLF "\s(12) \(cclef)" @
 204 define FCLF "\s(12) \(fclef)" @
 205
 206 define TREBLEOFFS -7 @
 207
 208 define TREBLECLF(P1)
 209         print (P1.x, P1.y TREBLEOFFS) GCLF @
 210
 211 define PTREBLECLF(P1, TROFFS)
 212         print (P1.x TROFFS, P1.y TREBLEOFFS) GCLF @
 213
 214 define TREBLECLF8(P1)
 215         print (P1.x, P1.y TREBLEOFFS) GCLF
 216         print (P1.x +2, P1.y TREBLEOFFS -2.2) "\f(TI) \s(10) 8"
 217 @
 218
 219 define PTREBLECLF8(P1, TROFFS)
 220         print (P1.x TROFFS, P1.y TREBLEOFFS) GCLF
 221         print (P1.x +2 TROFFS, P1.y TREBLEOFFS -2.2) "\f(TI) \s(10) 8"
 222 @
 223
 224 define BARITONOFFS -0 @
 225 define TENOROFFS -2 @
 226 define ALTOOFFS -4 @
 227 define DESCOFFS -6 @
 228 define BASSOFFS -4 @
 229
 230 define BARITONCLF(P1)
 231         print (P1.x, P1.y BARITONOFFS) CCLF @
 232
 233 define TENORCLF(P1)
 234         print (P1.x, P1.y TENOROFFS) CCLF @
 235
 236 define ALTOCLF(P1)
 237         print (P1.x, P1.y ALTOOFFS) CCLF @
 238
 239 define DESCCLF(P1)
 240         print (P1.x, P1.y DESCOFFS) CCLF @
 241
 242 define BASSCLF(P1)
 243         print (P1.x, P1.y BASSOFFS) FCLF @
 244
 245 define PBASSCLF(P1,CLOFFS)
 246         print (P1.x CLOFFS, P1.y BASSOFFS) FCLF @
 247
 248 // ----------------------------------------------------------------------------
 249
 250 // Tempus signatures
 251
 252 define PRFXOFFS -6 @
 253 define PRFXOFFS2 -1.125 @
 254 define PRFYOFFS -1.75 @
 255 define DUPYOFFS +2.6 @
 256 define DUPXOFFS -1.05 @
 257 define DUPLEN -2.7 @
 258
 259 define DUP(P1)
 260         line(P1.x DUPXOFFS,P1.y DUPYOFFS) to (P1.x DUPXOFFS,P1.y DUPLEN) @
 261
 262 // The "Q" parameter must be the "R" parameter divided by the square root
 263 // of 2.  Unfortunately, Mup doesn't support multiplication and division.
 264
 265 define CIRC(X, Y, R, Q)
 266         curve (X+R,Y) to (X+Q,Y+Q) to (X,Y+R) to (X-Q,Y+Q) to (X-R,Y) \
 267                 to (X-Q,Y-Q) to (X,Y-R) to (X+Q,Y-Q) to (X+R,Y) @
 268
 269 define LARC(X, Y, R, Q)
 270         curve (X+Q,Y+Q) to (X,Y+R) to (X-Q,Y+Q) to (X-R,Y) \
 271                 to (X-Q,Y-Q) to (X,Y-R) to (X+Q,Y-Q) @
 272
 273 define RARC(X, Y, R, Q)
 274         curve (X-Q,Y+Q) to (X,Y+R) to (X+Q,Y+Q) to (X+R,Y) \
 275                 to (X+Q,Y-Q) to (X,Y-R) to (X-Q,Y-Q) @
 276
 277 define CIRCL "\f(AR) \s(14) O" @
 278 define CIRCR 1.75 @
 279 define CIRCQ 1.237 @
 280 define CIRCL2(PS) CIRC(PS.x PRFXOFFS2,PS.y,CIRCR,CIRCQ) @
 281 define HLFCIRCL "\f(AR) \s(14) C" @
 282 define HLFCIRCL2(PS) LARC(PS.x PRFXOFFS2,PS.y,CIRCR,CIRCQ) @
 283 define BULLET "\f(AR) \s(8) \(bullet)" @
 284
 285 //define PERF(P1) print(P1.x PRFXOFFS,P1.y PRFYOFFS) CIRCL @
 286 define PERF(P1) CIRCL2(P1) @
 287 //define IMPERF(P1) print(P1.x PRFXOFFS,P1.y PRFYOFFS) HLFCIRCL @
 288 define IMPERF(P1) HLFCIRCL2(P1) @
 289
 290 //define PRLXOFFS -4.25 @
 291 define PRLXOFFS -3.65 @
 292 define PRLXOFFS2 -4.2 @
 293 define PRLYOFFS -.85 @
 294
 295 define IMPERFDUP(P2)
 296         IMPERF(P2)
 297         DUP(P2) @
 298
 299 define PERFDUP(P2)
 300         PERF(P2)
 301         DUP(P2) @
 302
 303 define PERFPROL(P2)
 304         PERF(P2)
 305         print(P2.x PRLXOFFS,P2.y PRLYOFFS) BULLET @
 306
 307 define PERFDUPPROL(P3)
 308         PERFDUP(P3)
 309         print(P3.x PRLXOFFS,P3.y PRLYOFFS) BULLET @
 310
 311 define IMPERFDUPPROL(P3)
 312         IMPERFDUP(P3)
 313         print(P3.x PRLXOFFS,P3.y PRLYOFFS) BULLET @
 314
 315 define IMPERFPROL(P3)
 316         IMPERF(P3)
 317         print(P3.x PRLXOFFS2,P3.y PRLYOFFS) BULLET @
 318
 319 // ----------------------------------------------------------------------------
 320
 321 // Modern time signatures
 322
 323 define CMMN "\s(12) \(com)" @
 324 define CT "\s(12) \(cut)" @
 325
 326 define MTRFONT "\f(NB)\s(16)" @
 327 define TRPL MTRFONT+"3" @
 328
 329 define TRIPLEOFFS -2 @
 330 define PTRIPLE(P1,TROFFS) print(P1.x TROFFS,P1.y TRIPLEOFFS) TRPL @
 331
 332 define COMMONOFFS -2 @
 333 define CUTOFFS -3 @
 334
 335 define COMMON(P1) print(P1.x,P1.y COMMONOFFS) CMMN @
 336 define PCOMMON(P1,COFFS) print(P1.x COFFS,P1.y COMMONOFFS) CMMN @
 337
 338 define CUT(P1) print(P1.x,P1.y CUTOFFS) CT @
 339
 340 define METERFRAC(P1,MOFFS,M1,M2)
 341         print(P1.x MOFFS,P1.y MOFFS) MTRFONT+M1;
 342         print(P1.x MOFFS,P1.y-4) MTRFONT+M2; @