X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=bookofpsalmsetup.mup;fp=bookofpsalmsetup.mup;h=08b81a0e54121ea500447ae36e48b21abb4daa56;hb=60e16ee8d3b4895436bc683ba69a78c8c2e5f4ec;hp=0000000000000000000000000000000000000000;hpb=24560beaa2c2713df2be772dc424e3fca6ab6887;p=music.git

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
+@