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 @