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