From: Dirk Koopman Date: Fri, 29 Jun 2012 10:55:22 +0000 (+0100) Subject: add a load of mscore files X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=60e16ee8d3b4895436bc683ba69a78c8c2e5f4ec;p=music.git add a load of mscore files --- diff --git a/.gitignore b/.gitignore index 223fb3f..1c016f4 100644 --- a/.gitignore +++ b/.gitignore @@ -1,5 +1,14 @@ +*/*ps +*/*mid +*/*midi +*/*pdf +*/*/*ps +*/*/*mid +*/*/*midi +*/*/*pdf *ps *mid +*midi *pdf *~ a @@ -10,3 +19,4 @@ b *swp *.cvsignore *bak +.* diff --git a/Ad Astra eflat.mscz b/Ad Astra eflat.mscz new file mode 100644 index 0000000..95aaba5 Binary files /dev/null and b/Ad Astra eflat.mscz differ diff --git a/Ad Astra.mscz b/Ad Astra.mscz new file mode 100644 index 0000000..ab6771e Binary files /dev/null and b/Ad Astra.mscz differ diff --git a/Awake Thou Wintry Earth-oneline.mscz b/Awake Thou Wintry Earth-oneline.mscz new file mode 100644 index 0000000..ba05025 Binary files /dev/null and b/Awake Thou Wintry Earth-oneline.mscz differ diff --git a/bach/Awake Thou Wintry Earth.mscz b/bach/Awake Thou Wintry Earth.mscz new file mode 100644 index 0000000..a410cd8 Binary files /dev/null and b/bach/Awake Thou Wintry Earth.mscz differ diff --git a/bailey/View me Lord.mscz b/bailey/View me Lord.mscz new file mode 100644 index 0000000..8e241ce Binary files /dev/null and b/bailey/View me Lord.mscz differ diff --git a/bookofpsalmsetup.mup b/bookofpsalmsetup.mup new file mode 100644 index 0000000..08b81a0 --- /dev/null +++ b/bookofpsalmsetup.mup @@ -0,0 +1,113 @@ +// bookofpsalmsetup.mup + +define CPRGHT(YR) "\s(14)\(copyright)"+YR+" by Christian Mondrup (scancm\@biobase.dk). Typeset with Mup, non-commercial copying welcome." @ + +// Editorial accidentals +define EDACC(PRT) rom(8) above PRT @ +define FLT "\(flat)" @ +define NA "\(nat)" @ +define SH "\(sharp)" @ + +define FULLBAR + score + barstyle = 1-4; + music @ + +define DIVBAR + score + barstyle = ; + music @ + +define STAFFOCT(STF,OCT) + staff STF + defoct = OCT + music @ + +define MTR(ARG) + score + time = ARGn + music @ + +define PARTNMFONT1 "\s(18)\f(TX)" @ +define PARTNMFONT2 "\s(14)\f(TB)" @ +define CANTUS PARTNMFONT1+"CANTVS." @ +define MEDIUS PARTNMFONT1+"MEDIVS." @ +define TENOR1 PARTNMFONT1+"TENOR," @ +define TENOR2 PARTNMFONT2+"or \f(TX)Playnsong." @ +define BASSUS PARTNMFONT1+"BASSVS." @ +define PRTOFFS +2 @ + +define CANTUSLBL(TAG) left(_win.w PRTOFFS,TAG.y-2) CANTUS @ +define MEDIUSLBL(TAG) left(_win.w PRTOFFS,TAG.y-2) MEDIUS @ +define TENORLBL(TAG) + left(_win.w PRTOFFS,TAG.y) TENOR1 + left(_win.w PRTOFFS,TAG.y-5) TENOR2 @ +define BASSUSLBL(TAG) left(_win.w PRTOFFS,TAG.y-2) BASSUS @ + +define RECORDER "74" @ + +define BARLN(TAG,OFFS) line (TAG.x OFFS,TAG.y+4) to (TAG.x OFFS,TAG.y-4) @ + +define SCORETITLE(ARGS) +header + title bold (22) ARGS + title (16) " " +@ + +define SCORESETUP(PCKFACT,KEY) +score + //key = 1& + key = KEY + time = 4/4n + + scale = .6 + + units = cm + leftmargin = 1.2 + topmargin = .5 + packfact = PCKFACT + scoresep = 20 + + measnum = y + + lyricsalign = .5 + lyricssize = 16 + size = 16 + + staffs = 4 + bracket = 1-4 + barstyle = 1-4 + release = 40 + label = " " +staff 1 + clef = soprano +staff 2 + clef = alto +staff 3 + clef = tenor +staff 4 + clef = bass +music + midi all: 0 "tempo="+TEMPO; + midi 1: 0 "channel=2"; 0 "program="+RECORDER; + midi 2: 0 "channel=3"; 0 "program="+RECORDER; + midi 3: 0 "channel=4"; 0 "program="+RECORDER; + midi 4: 0 "channel=5"; 0 "program="+RECORDER; +@ + +define CLEFCHANGE + // clef change +score + time=1/4n + barstyle= + stafflines=5n +staff 1 + clef=treble +staff 2 + clef=treble +staff 3 + clef=treble8 +staff 4 + clef=bass +music +@ diff --git a/harvey/Magnificat-chant.mscz b/harvey/Magnificat-chant.mscz new file mode 100644 index 0000000..95633cc Binary files /dev/null and b/harvey/Magnificat-chant.mscz differ diff --git a/harvey/Wherefore O Father.mscz b/harvey/Wherefore O Father.mscz new file mode 100644 index 0000000..75a8359 Binary files /dev/null and b/harvey/Wherefore O Father.mscz differ diff --git a/hassler/missa-dixit-maria/title.sxw b/hassler/missa-dixit-maria/title.sxw new file mode 100644 index 0000000..b761283 Binary files /dev/null and b/hassler/missa-dixit-maria/title.sxw differ diff --git a/mensural.mup b/mensural.mup new file mode 100755 index 0000000..d065e98 --- /dev/null +++ b/mensural.mup @@ -0,0 +1,340 @@ +// mensural.mup + +// ---------------------------------------------------------------------------- + +// Overall stem length + +define STMLEN 6 @ + +// Notehead used for longa and breve + +define QUDRTOFFS +1.75 @ +//define LO +2 @ +define LO -0 @ +define LNADD -.2 @ +define LNADD2 LNADD LNADD @ +define LNGVERT .7 @ +define LNGVERTU .7 @ +define LNGVERTD 1 @ +//define LNGHOR 2.5 @ +define LNGHOR 3 @ +define HOR2DIST -1.5 @ +define LNGUSTEM STMLEN -LNGVERTU QUDRTOFFS -2 @ +define LNGDSTEM STMLEN +LNGVERT QUDRTOFFS -2 @ + +define UPPERHORLINE + medium line (P1.x LO,P1.y OFFS1 QUDRTOFFS) to (P1.x LO +LNGHOR,P1.y OFFS1 QUDRTOFFS) @ + +define LOWERHORLINE + medium line (P1.x LO,P1.y OFFS1 HOR2DIST QUDRTOFFS) to (P1.x LO +LNGHOR,P1.y OFFS1 HOR2DIST QUDRTOFFS) @ + +define LEFTVERLINE + line (P1.x LO,P1.y OFFS1 +LNGVERTU QUDRTOFFS) to (P1.x LO,P1.y OFFS1 HOR2DIST -LNGVERTD QUDRTOFFS) @ + +define RIGHTVERLINE + line (P1.x LO +LNGHOR,P1.y OFFS1 +LNGVERTU +USTEM QUDRTOFFS) to (P1.x LO +LNGHOR,P1.y OFFS1 HOR2DIST -LNGVERTD -DSTEM QUDRTOFFS) @ + +define QUADRHD(P1,OFFS1,USTEM,DSTEM) + UPPERHORLINE + LOWERHORLINE + LEFTVERLINE + RIGHTVERLINE @ + +define LONGAU(P2,OFFS2) QUADRHD(P2,OFFS2,LNGUSTEM,0) @ +define LONGAD(P2,OFFS2) QUADRHD(P2,OFFS2,0,LNGDSTEM) @ +define BREVE(P2,OFFS2) QUADRHD(P2,OFFS2,0,0) @ + +// ---------------------------------------------------------------------------- + +// noteheads used for semibreve, minima, semiminima, fusa & semifusa + +define DMNDHD "\s(12) \(diamond)" @ +define FILLHD "\s(12) \(filldiamond)" @ +define STMXOFFS +2.4 @ +define STMYUOFFS +2 @ +define STMYDOFFS -0 @ +define FLAGXOFFS1 +2 @ +define FLAGYOFFS1 .2 @ +define FLAGYOFFS2 2 @ +define FLAGYOFFS3 1.4 @ +define FLAGYOFFS4 3.2 @ + +define STEMU line (P1.x STMXOFFS,P1.y OFFS1 STMYUOFFS) to (P1.x STMXOFFS,P1.y OFFS1 STMYUOFFS +STMLEN) @ + +define STEMD line (P1.x STMXOFFS,P1.y OFFS1 STMYDOFFS) to (P1.x STMXOFFS,P1.y OFFS1 STMYDOFFS -STMLEN) @ + +define FLAGU1 line (P1.x STMXOFFS,P1.y OFFS1 STMYUOFFS +STMLEN -FLAGYOFFS1) to (P1.x STMXOFFS FLAGXOFFS1,P1.y OFFS1 STMYUOFFS +STMLEN -FLAGYOFFS2) @ + +define FLAGU2 line (P1.x STMXOFFS,P1.y OFFS1 STMYUOFFS +STMLEN -FLAGYOFFS3) to (P1.x STMXOFFS FLAGXOFFS1,P1.y OFFS1 STMYUOFFS +STMLEN -FLAGYOFFS4) @ + +define FLAGD1 line (P1.x STMXOFFS,P1.y OFFS1 STMYDOFFS -STMLEN +FLAGYOFFS1) to (P1.x STMXOFFS FLAGXOFFS1,P1.y OFFS1 STMYDOFFS -STMLEN +FLAGYOFFS2) @ + +define FLAGD2 line (P1.x STMXOFFS,P1.y OFFS1 STMYDOFFS -STMLEN +FLAGYOFFS3) to (P1.x STMXOFFS FLAGXOFFS1,P1.y OFFS1 STMYDOFFS -STMLEN +FLAGYOFFS4) @ + +define SEMIBREVE(P1,OFFS1) + print (P1.x,P1.y OFFS1) DMNDHD @ + +define CLRDSEMIBREVE(P1,OFFS1) + print (P1.x,P1.y OFFS1) FILLHD @ + +define MINIMU(P1,OFFS1) + print (P1.x,P1.y OFFS1) DMNDHD + STEMU @ + +define MINIMD(P1,OFFS1) + print (P1.x,P1.y OFFS1) DMNDHD + STEMD @ + +define SEMIMINU(P1,OFFS1) + print (P1.x,P1.y OFFS1) FILLHD + STEMU @ + +define SEMIMIND(P1,OFFS1) + print (P1.x,P1.y OFFS1) FILLHD + STEMD @ + +define FUSAU(P1,OFFS1) + print (P1.x,P1.y OFFS1) FILLHD + STEMU + FLAGU1 @ + +define SEMIFUSAU(P1,OFFS1) + print (P1.x,P1.y OFFS1) FILLHD + STEMU + FLAGU1 + FLAGU2 @ + +define FUSAD(P1,OFFS1) + print (P1.x,P1.y OFFS1) FILLHD + STEMD + FLAGD1 @ + +define SEMIFUSAD(P1,OFFS1) + print (P1.x,P1.y OFFS1) FILLHD + STEMD + FLAGD1 + FLAGD2 @ + +// ---------------------------------------------------------------------------- + +// prolongation dots + +define DOT "\s(12) \(dot)" @ +define UDOTYOFFS +1.5 @ +define LDOTYOFFS -.5 @ +define CDOTYOFFS +.5 @ +define DOTXOFFS +3.2 @ + +define UDOT(P1,OFFS1) + print (P1.x DOTXOFFS,P1.y OFFS1 UDOTYOFFS) DOT @ + +define LDOT(P1,OFFS1) + print (P1.x DOTXOFFS,P1.y OFFS1 LDOTYOFFS) DOT @ + +define CDOT(P1,OFFS1) + print (P1.x DOTXOFFS,P1.y OFFS1 CDOTYOFFS) DOT @ + +// ---------------------------------------------------------------------------- + +// Acidentals + +define SHARPXOFFS -2.5 @ +define SHDST .75 @ + +define SHARP(P1,OFFS1) + line (P1.x SHARPXOFFS,P1.y OFFS1+2) to (P1.x SHARPXOFFS+2,P1.y OFFS1); + line (P1.x SHARPXOFFS+SHDST,P1.y OFFS1+2) to (P1.x SHARPXOFFS+SHDST+2,P1.y OFFS1); + line (P1.x SHARPXOFFS,P1.y OFFS1) to (P1.x SHARPXOFFS+2,P1.y OFFS1+2); + line (P1.x SHARPXOFFS+SHDST,P1.y OFFS1) to (P1.x SHARPXOFFS+SHDST+2,P1.y OFFS1+2); @ + +// ---------------------------------------------------------------------------- + +// ledger line + +define LEDGERLEN +4.75 @ + +define LEDGER(P1,OFFS1) + line (P1.x,P1.y OFFS1) to (P1.x LEDGERLEN,P1.y OFFS1) @ + +define PLEDGER(P1,XOFFS,YOFFS) + line (P1.x XOFFS,P1.y YOFFS) to (P1.x XOFFS LEDGERLEN,P1.y YOFFS) @ + +// ---------------------------------------------------------------------------- + +// Rests + +define RXOFFS +2 @ +define RLINEADD +.2 @ +define RLINEADD2 RLINEADD RLINEADD @ + +define RLONGALINELEN 4 @ + +define RLONGA(P1,OFFS1) + medium line (P1.x RXOFFS,P1.y OFFS1) to (P1.x RXOFFS,P1.y OFFS1 -RLONGALINELEN) @ + +define RBREVELINELEN 2 @ + +define RBREVE(P1,OFFS1) + medium line (P1.x RXOFFS,P1.y OFFS1) to (P1.x RXOFFS,P1.y OFFS1 -RBREVELINELEN) @ + +define RLINELEN 1.2 @ + +define RSEMIBREVE(P1,OFFS1) + medium line (P1.x RXOFFS,P1.y OFFS1) to (P1.x RXOFFS,P1.y OFFS1 -RLINELEN) @ + +define RMINIM(P1,OFFS1) + medium line (P1.x RXOFFS,P1.y OFFS1) to (P1.x RXOFFS,P1.y OFFS1 +RLINELEN) @ + +define RFLAGYOFFS1 .1 @ + +define RFLAG1 line (P1.x RLINEADD RXOFFS,P1.y OFFS1 +RLINELEN -RFLAGYOFFS1) to (P1.x RLINEADD +1 RXOFFS,P1.y OFFS1 +RLINELEN -.5) @ + +define RSEMIMINIM(P1,OFFS1) + medium line (P1.x RXOFFS,P1.y OFFS1) to (P1.x RXOFFS,P1.y OFFS1 +RLINELEN) + RFLAG1 @ + +// ---------------------------------------------------------------------------- + +// Clefs + +define GCLF "\s(12) \(gclef)" @ +define CCLF "\s(12) \(cclef)" @ +define FCLF "\s(12) \(fclef)" @ + +define TREBLEOFFS -7 @ + +define TREBLECLF(P1) + print (P1.x, P1.y TREBLEOFFS) GCLF @ + +define PTREBLECLF(P1, TROFFS) + print (P1.x TROFFS, P1.y TREBLEOFFS) GCLF @ + +define TREBLECLF8(P1) + print (P1.x, P1.y TREBLEOFFS) GCLF + print (P1.x +2, P1.y TREBLEOFFS -2.2) "\f(TI) \s(10) 8" +@ + +define PTREBLECLF8(P1, TROFFS) + print (P1.x TROFFS, P1.y TREBLEOFFS) GCLF + print (P1.x +2 TROFFS, P1.y TREBLEOFFS -2.2) "\f(TI) \s(10) 8" +@ + +define BARITONOFFS -0 @ +define TENOROFFS -2 @ +define ALTOOFFS -4 @ +define DESCOFFS -6 @ +define BASSOFFS -4 @ + +define BARITONCLF(P1) + print (P1.x, P1.y BARITONOFFS) CCLF @ + +define TENORCLF(P1) + print (P1.x, P1.y TENOROFFS) CCLF @ + +define ALTOCLF(P1) + print (P1.x, P1.y ALTOOFFS) CCLF @ + +define DESCCLF(P1) + print (P1.x, P1.y DESCOFFS) CCLF @ + +define BASSCLF(P1) + print (P1.x, P1.y BASSOFFS) FCLF @ + +define PBASSCLF(P1,CLOFFS) + print (P1.x CLOFFS, P1.y BASSOFFS) FCLF @ + +// ---------------------------------------------------------------------------- + +// Tempus signatures + +define PRFXOFFS -6 @ +define PRFXOFFS2 -1.125 @ +define PRFYOFFS -1.75 @ +define DUPYOFFS +2.6 @ +define DUPXOFFS -1.05 @ +define DUPLEN -2.7 @ + +define DUP(P1) + line(P1.x DUPXOFFS,P1.y DUPYOFFS) to (P1.x DUPXOFFS,P1.y DUPLEN) @ + +// The "Q" parameter must be the "R" parameter divided by the square root +// of 2. Unfortunately, Mup doesn't support multiplication and division. + +define CIRC(X, Y, R, Q) + curve (X+R,Y) to (X+Q,Y+Q) to (X,Y+R) to (X-Q,Y+Q) to (X-R,Y) \ + to (X-Q,Y-Q) to (X,Y-R) to (X+Q,Y-Q) to (X+R,Y) @ + +define LARC(X, Y, R, Q) + curve (X+Q,Y+Q) to (X,Y+R) to (X-Q,Y+Q) to (X-R,Y) \ + to (X-Q,Y-Q) to (X,Y-R) to (X+Q,Y-Q) @ + +define RARC(X, Y, R, Q) + curve (X-Q,Y+Q) to (X,Y+R) to (X+Q,Y+Q) to (X+R,Y) \ + to (X+Q,Y-Q) to (X,Y-R) to (X-Q,Y-Q) @ + +define CIRCL "\f(AR) \s(14) O" @ +define CIRCR 1.75 @ +define CIRCQ 1.237 @ +define CIRCL2(PS) CIRC(PS.x PRFXOFFS2,PS.y,CIRCR,CIRCQ) @ +define HLFCIRCL "\f(AR) \s(14) C" @ +define HLFCIRCL2(PS) LARC(PS.x PRFXOFFS2,PS.y,CIRCR,CIRCQ) @ +define BULLET "\f(AR) \s(8) \(bullet)" @ + +//define PERF(P1) print(P1.x PRFXOFFS,P1.y PRFYOFFS) CIRCL @ +define PERF(P1) CIRCL2(P1) @ +//define IMPERF(P1) print(P1.x PRFXOFFS,P1.y PRFYOFFS) HLFCIRCL @ +define IMPERF(P1) HLFCIRCL2(P1) @ + +//define PRLXOFFS -4.25 @ +define PRLXOFFS -3.65 @ +define PRLXOFFS2 -4.2 @ +define PRLYOFFS -.85 @ + +define IMPERFDUP(P2) + IMPERF(P2) + DUP(P2) @ + +define PERFDUP(P2) + PERF(P2) + DUP(P2) @ + +define PERFPROL(P2) + PERF(P2) + print(P2.x PRLXOFFS,P2.y PRLYOFFS) BULLET @ + +define PERFDUPPROL(P3) + PERFDUP(P3) + print(P3.x PRLXOFFS,P3.y PRLYOFFS) BULLET @ + +define IMPERFDUPPROL(P3) + IMPERFDUP(P3) + print(P3.x PRLXOFFS,P3.y PRLYOFFS) BULLET @ + +define IMPERFPROL(P3) + IMPERF(P3) + print(P3.x PRLXOFFS2,P3.y PRLYOFFS) BULLET @ + +// ---------------------------------------------------------------------------- + +// Modern time signatures + +define CMMN "\s(12) \(com)" @ +define CT "\s(12) \(cut)" @ + +define MTRFONT "\f(NB)\s(16)" @ +define TRPL MTRFONT+"3" @ + +define TRIPLEOFFS -2 @ +define PTRIPLE(P1,TROFFS) print(P1.x TROFFS,P1.y TRIPLEOFFS) TRPL @ + +define COMMONOFFS -2 @ +define CUTOFFS -3 @ + +define COMMON(P1) print(P1.x,P1.y COMMONOFFS) CMMN @ +define PCOMMON(P1,COFFS) print(P1.x COFFS,P1.y COMMONOFFS) CMMN @ + +define CUT(P1) print(P1.x,P1.y CUTOFFS) CT @ + +define METERFRAC(P1,MOFFS,M1,M2) + print(P1.x MOFFS,P1.y MOFFS) MTRFONT+M1; + print(P1.x MOFFS,P1.y-4) MTRFONT+M2; @ diff --git a/parce.mscz b/parce.mscz new file mode 100644 index 0000000..5b76068 Binary files /dev/null and b/parce.mscz differ diff --git a/psalms/CVStandford-Eminor.mscz b/psalms/CVStandford-Eminor.mscz new file mode 100644 index 0000000..3290e4f Binary files /dev/null and b/psalms/CVStandford-Eminor.mscz differ diff --git a/psalms/PCBuck-1.mscz b/psalms/PCBuck-1.mscz new file mode 100644 index 0000000..94a2cab Binary files /dev/null and b/psalms/PCBuck-1.mscz differ diff --git a/psalms/bennett-g.mscz b/psalms/bennett-g.mscz new file mode 100644 index 0000000..25bf1e0 Binary files /dev/null and b/psalms/bennett-g.mscz differ diff --git a/psalms/chlloyd-Amajor.mscz b/psalms/chlloyd-Amajor.mscz new file mode 100644 index 0000000..1e27609 Binary files /dev/null and b/psalms/chlloyd-Amajor.mscz differ diff --git a/psalms/ecbairstow-cmajor.mscz b/psalms/ecbairstow-cmajor.mscz new file mode 100644 index 0000000..0783491 Binary files /dev/null and b/psalms/ecbairstow-cmajor.mscz differ diff --git a/psalms/ecbairstow-eflat.mscz b/psalms/ecbairstow-eflat.mscz new file mode 100644 index 0000000..25be088 Binary files /dev/null and b/psalms/ecbairstow-eflat.mscz differ diff --git a/psalms/eday-amajor.mscz b/psalms/eday-amajor.mscz new file mode 100644 index 0000000..692d74a Binary files /dev/null and b/psalms/eday-amajor.mscz differ diff --git a/psalms/garratt-a.mscz b/psalms/garratt-a.mscz new file mode 100644 index 0000000..9af8c83 Binary files /dev/null and b/psalms/garratt-a.mscz differ diff --git a/psalms/ley-d.mscz b/psalms/ley-d.mscz new file mode 100644 index 0000000..f6d3a6a Binary files /dev/null and b/psalms/ley-d.mscz differ diff --git a/psalms/lloyd-bminor.mscz b/psalms/lloyd-bminor.mscz new file mode 100644 index 0000000..79b8ab0 Binary files /dev/null and b/psalms/lloyd-bminor.mscz differ diff --git a/psalms/peterborough-d.mscz b/psalms/peterborough-d.mscz new file mode 100644 index 0000000..f8fdca3 Binary files /dev/null and b/psalms/peterborough-d.mscz differ diff --git a/psalms/psalm-template.mscz b/psalms/psalm-template.mscz new file mode 100644 index 0000000..8f1fdfc Binary files /dev/null and b/psalms/psalm-template.mscz differ diff --git a/psalms/rose-f.mscz b/psalms/rose-f.mscz new file mode 100644 index 0000000..c49fdc1 Binary files /dev/null and b/psalms/rose-f.mscz differ diff --git a/psalms/short-psalm-template.mscz b/psalms/short-psalm-template.mscz new file mode 100644 index 0000000..e3d3f3d Binary files /dev/null and b/psalms/short-psalm-template.mscz differ diff --git a/psalms/taylor-d.mscz b/psalms/taylor-d.mscz new file mode 100644 index 0000000..2469f20 Binary files /dev/null and b/psalms/taylor-d.mscz differ diff --git a/vaut-mot.mscz b/vaut-mot.mscz new file mode 100644 index 0000000..736053d Binary files /dev/null and b/vaut-mot.mscz differ