home *** CD-ROM | disk | FTP | other *** search
Wrap
@ PMS2 3.26 @ @ Use the following format words: @ @ tr1I tr1II tb1I tb1II @ tr2I tr2II tb2I tb2II @ choir organ @ Heading "" -32 Heading 12 "|\it\F\*<\or the 400th anniversary of" 14 Heading 12 "|\it\the University of Edinburgh" 30 Heading 30 "|Fanfare on Newtoun" 20 Heading 12 "|\it\F\*<\or two Brass Quartets, Organ and Small Chorus" 14 Heading 12 "|\it\(4 Trumpets and 4 Trombones)" 26 Heading 12 "\it\Tune: \rm\Newtoun – Scottish Psalter, 1635||Kenneth Leighton (1929\*>\−1988)" 26 *if not score Heading "" 16 *fi Footing "" 4 *if choir Footing 10 "(* Original version of line 3)" 20 *else Footing "" 20 *fi Footing 12 "Composed in 1983||Duration 4\*>\−5 minutes" LastFooting "" 4 *if organ LastFooting "" 20 *else LastFooting 10 "Typesetting by \it\KeyNote||\rm\31 Skelton Crescent, Crosland Moor, Huddersfield, West Yorkshire, HD4 5PN" *fi Key C Time 4/4 Timefont extra 1 Longrestfont 12 extra 1 Repeatbarfont 10 extra 1 @ Rehearsalmarks boxed 12 extra 1 @ Staffspacing 1/60 2/60 3/60 4/68 5/60 6/60 7/60 8/68 9/0 10/76 11/0 12/68 13/60 14/60 Systemgap 70 Breakbarlines 4,8,10,12,14 Barnumbers line 8 @ 8 is the size. Can replace 'line' by interval Bracket 1-4,5-8,9-12 Brace 13-14 Thinbracket 1-2,3-4,5-6,7-8 @ Breverests Clefsize 0.9 Vertaccsize 8 OldBeamBreak Beamthickness 2 Maxbeamslope 0.2 0.2 Shortenstems 2 Sluroverwarnings @ Nospreadunderlay @ Nocheck Unfinished @ Hairpinwidth 6 @ 7 is default Hairpinlinewidth 0.5 @ 0.2 is default Startlinespacing 4 0 4 Bracestyle 1 Tripletfont 8 bolditalic @ Default size is 10, roman Tripletlinewidth 0.4 Textsizes 10 8 12 7 Underlaystyle 1 Underlaysize 10 Overlaysize 10 Footnotesize 10 Justify left right top bottom Linelength 520 Pagelength 690 Magnification 1 Notespacing *1 *Define ppv [playvolume 3] *Define pv [playvolume 5] *Define mpv [playvolume 7] *Define mfv [playvolume 9] *Define fv [playvolume 11] *Define ffv [playvolume 13] *Define sfv [playvolume 15] *Define pp &ppv "\x1\pp"/b/d2/e *Define p &pv "\x1\p"/b/d2/e *Define mp &mpv "\x1\mp"/b/d2/e *Define mf &mfv "\x1\mf"/b/d2/e *Define f &fv "\x1\f"/b/d2/e *Define ff &ffv "\x1\ff"/b/d2/e *Define sf &sfv "\x1\sf"/b/d2/e Textfont extra 1 "PMS.Alpha" Midichannel 1 "trumpet"/15 1 Midichannel 2 "trumpet"/15 2 Midichannel 3 "trombone"/15 3 Midichannel 4 "trombone"/15 4 Midichannel 5 "trumpet"/15 5 Midichannel 6 "trumpet"/15 6 Midichannel 7 "trombone"/15 7 Midichannel 8 "trombone"/15 8 Midichannel 9 "choir oohs"/15 9-10 Midichannel 11 "choir oohs"/15 11-12 Midichannel 12 "church organ"/10 13 Midichannel 13 "church organ"/10 14 Midichannel 14 "church organ"/10 15 Playtempo 140 Draw Notebracket @ Left bracket (inside): -1 headleft sub accleft sub stembottom 1 sub moveto @ Bottom -1 headleft sub accleft sub stemtop stembottom sub 8 div 1 add sub stembottom stemtop stembottom sub 4 div add @ bezier point 1 (lower) -1 headleft sub accleft sub stemtop stembottom sub 8 div 1 add sub stemtop stemtop stembottom sub 4 div sub @ bezier point 2 (upper) -1 headleft sub accleft sub stemtop 1 add curveto @ Top @ Left bracket (outside): -1 headleft sub accleft sub stemtop stembottom sub 8 div dup 2 1 roll 0.25 mul 1.5 add add sub stemtop stemtop stembottom sub 4 div sub @ bezier point 1 (upper) -1 headleft sub accleft sub stemtop stembottom sub 8 div dup 2 1 roll 0.25 mul 1.5 add add sub stembottom stemtop stembottom sub 4 div add @ bezier point 2 (lower) -1 headleft sub accleft sub stembottom 1 sub curveto @ Bottom 0.5 setlinewidth fill @ Left bracket complete @ @ Right bracket (inside): 1 headright add stembottom 1 sub moveto @ Bottom 1 headright add stemtop stembottom sub 8 div 1 add add stembottom stemtop stembottom sub 4 div add @ bezier point 1 (lower) 1 headright add stemtop stembottom sub 8 div 1 add add stemtop stemtop stembottom sub 4 div sub @ bezier point 2 (upper) 1 headright add stemtop 1 add curveto @ Top @ Right bracket (outside): 1 headright add stemtop stembottom sub 8 div dup 2 1 roll 0.25 mul 1.5 add add add stemtop stemtop stembottom sub 4 div sub @ bezier point 1 (upper) 1 headright add stemtop stembottom sub 8 div dup 2 1 roll 0.25 mul 1.5 add add add stembottom stemtop stembottom sub 4 div add @ bezier point 2 (lower) 1 headright add stembottom 1 sub curveto @ Bottom 0.5 setlinewidth fill @ Right bracket complete Enddraw Page 1 *if tr1I Selectstave 1 Notespacing *1.08 Magnification 0.8 *fi *if tr1II Selectstave 2 Notespacing *0.95 Magnification 0.8 *fi *if tb1I Selectstave 3 Notespacing *0.88 Magnification 0.8 *fi *if tb1II Selectstave 4 Notespacing *0.97 Magnification 0.8 *fi *if tr2I Selectstave 5 Notespacing *1.12 Magnification 0.8 *fi *if tr2II Selectstave 6 Notespacing *1.09 Magnification 0.8 *fi *if tb2I Selectstave 7 Notespacing *0.98 Magnification 0.8 *fi *if tb2II Selectstave 8 Notespacing *1.03 Magnification 0.8 *fi *if choir Heading "" 12 @ A bit more space after the titles Selectstave 9-12 Notespacing *1.4 *fi *if organ Pageheading "" -16 Pageheading 12 "|\bf\Organ" 28 Selectstave 13-15 Breakbarlines 14 Bracket Notespacing *1 *fi *if score Pageheading "" -16 Pageheading 12 "\pe\||\po\" 48 Notespacing *0.87 Page 3 *fi [Staff 0] *if choir @ Don't print the headings for the choir *else "\bf\Moderato – maestoso"/a/s3/u6/ts q [reset] Q! | [15] Q! | *fi [endstaff] [Staff 1] [Treble 1] [Triplets above] *if score [name "Trumpet 1/I|in C"/e "Tpt 1/I"/e] *else [name "Trumpet 1/I|in C"/e] *fi [sshere 48] R! | R &ff/u2 [beamslope 0.15] g-\-\c'-\-\d'-\-\;[slur/a/h/ci2/d3];g'-\-/u4\ | G' [es] [slur/a/h/ci2/d3] f'\-/u4\ f'-;[es];r=;[slur/a];f'=\-\ | @3 *if score g'_ g'-;[es];r=;[slur/a];g'=\-\ f'_ f'-;[es];r=;[slur/a/slco2/clr4/clu4/crd2];f'=\-\ | *else g'_ g'-;[es];r=;[slur/a];g'=\-\ f'_ f'-;[es];r=;[slur/a/clu4];f'=\-\ | *fi >/d4 q q > </d4 q q < [reset] $A'+_ | a'= [es] r-. %A'.\>\_ | @6 A'+_ | A' [comma] [slur/a/h/ci2/d3] #c'\-/u4\ c'-;[es];r=c'=\.\ | [slur/a/h/ci2/d3] e'\-/u4\ e'-;[es];r=e'=\.\ [slur/a/h/ci2/d3] #c'\-/u4\ c'-;[es];r=c'=\.\ | @9 >/d4 q q q > &mp/r4 q [reset] #F'+\>\_ | F'+ [reset] </d4 q q q < &ff q | R f.\-\ "subito \x1\mp"/b/d2/e f-\-\ | @12 e.\-\ e-\-\ c.\-\ c-\-\ | D+\-\ | R! | @15 $e'.\-\ e'-\-\ d'.\-\ d'-\-\ | [endstaff] [Staff 2] [Treble 1] [Triplets above] *if score [name "Trumpet 1/II|in C"/e "Tpt 1/II"/e] *else [name "Trumpet 1/II|in C"/e] *fi [sshere 48] R! | R &ff g\-\ [slur/a/h/ci2/d2] d'\-/u4\ | D' [es] [slur/a/h/ci2/d2] $d'\-/u4\ d'-;[es];r=;[slur/a/ci2/lu2];d'=\-\ | @3 *if score $e'_ e'-;[es];r=;[slur/a];e'=\-\ $d'_ d'-;[es];r=;[slur/a/lu2/ru1/clu2/clr4];d'=\-\ | *else $e'_ e'-;[es];r=;[slur/a];e'=\-\ $d'_ d'-;[es];r=;[slur/a/lu2];d'=\-\ | *fi >/d4 q q > </d4 q q < [reset] %D'+_ | d'= [es] r-. r [slur/a/h/ci2/d2/rl2] D'\-/u4\ | @6 D'+_ [es] | D' [comma] [slur/b/h/ci2/u2] #g\-/d4\ g-;[es];r=g=\.\ | [slur/b/h/ci2/u2] b\-/d4\ b-;[es];r=b=\.\ [slur/b/h/ci2/u2] #g\-/d4\ g-;[es];r=g=\.\ | @9 >/d4 q q q > &mp/r4 q [reset] C'+\>\_ | C'+ [reset] </d4 q q q < &ff q | R a`.\-\ "subito \x1\mp"/b/d2/e a`-\-\ | @12 c.\-\ c-\-\ b`.\-\ a`-\-\ | B`+\-\ | R! | @15 $e.\-\ e-\-\ f.\-\ f-\-\ | [endstaff] [Staff 3] [Bass] [Triplets above] *if score [name "Trombone 1/I|in C"/e "Tbn. 1/I"/e] *else [name "Trombone 1/I|in C"/e] *fi [sshere 48] R r &ff [slur/a/h/ci2/d3/rl2] g\-/u4\ | G+_ [es] | G [tenor] [slur/a/h/ci2/d3] $d'\-/u4\ d'-;[es];r=;[slur/a/h/ci2/d3/rl2];d'=\-/u4\ | @3 d'_ [es] d'-r=;[slur/a/h/ci1/d3/rl2];$d'=\-/u4\ d'_ [es] d'-r=;[slur/a/h/ci2/d3/rl2];f'=\-/u4\ | >/d2 q q > </d2 q q < [reset] F'+_ [es] | f'= r-. r R [bass 0] | @6 r [slur/a/h/ci2/d3] D'.\-/u4\ | D' [es] [comma] [slur/a/h/ci2/d3] b\-/u4\ b-;[es];r=b=\.\ | [slur/a/h/ci2/d3] d'\-/u4\ d'-;[es];r=d'=\.\ [slur/a/h/ci2/d3] b\-/u4\ b-;[es];r=b=\.\ | @9 >/d4 q q q > &mp/r4 q [reset] $E'+\>\_ | E'+ [reset] </d4 q q q < &ff q | R d`.\-\ "subito \x1\mp"/b/d2/e d`-\-\ | @12 e`.\-\ e`-\-\ a`.\-\ a`-\-\ | G`+\-\ | R! | @15 $b.\-\ b-\-\ b.\-\ b-\.\ | [endstaff] [Staff 4] [Bass] [Triplets above] *if score [name "Trombone 1/II|in C"/e "Tbn. 1/II"/e] *else [name "Trombone 1/II|in C"/e] *fi [sshere 60] R &ff [slur/b/h/ci2/u2/rl2] D\-/d4\ | D+_ [es] | D [tenor] [slur/a/h/ci2/d3] f'\-/u4\ f'-;[es];r=;[slur/a];f'=\-\ | @3 *if score g'_ g'-;[es];r=;[slur/a];g'=\-\ f'_ f'-;[es];r=;[slur/a/clu3/clr4/crd2/sld2];f'=\-\ | *else g'_ g'-;[es];r=;[slur/a];g'=\-\ f'_ f'-;[es];r=;[slur/a/clu2/crd2];f'=\-\ | *fi [sshere -8] >/d4 q q > </d4 q q < [reset] $A'+_ | a'= [es] r-. r R [bass 0] | @6 *if tb1II [newline] *fi R [slur/a/h/ci2/d2] #F\-/u4\ | F [es] [comma] [slur/a/h/ci2/d3] #g\-/u4\ g-;[es];r=g=\.\ | [slur/a/h/ci2/d3] b\-/u4\ b-;[es];r=b=\.\ [slur/a/h/ci2/d3] #g\-/u4\ g-;[es];r=g=\.\ | @9 >/d4 q q q > &mp/r4 q [reset] C'+\>\_ | C'+ [reset] </d4 q q q < &ff q | R $b`.\-\ "subito \x1\mp"/b/d2/e b`-\-\ | @12 d.\sd-\ d-\-\ e.\-\ e-\-\ | D+\-\ | R! | @15 g.\-\ g-\-\ a.\-\ a-\-\ | [endstaff] [Staff 5] [Treble 1] [Triplets above] *if score [name "Trumpet 2/I|in C"/e "Tpt 2/I"/e] *else [name "Trumpet 2/I|in C"/e] *fi [sshere 48] q [reset] R! | r &ff/d2 [slur/b/h/ci2/u3] F.\-/d4\ | F [es] [slur/b/h/ci2/u3] $a\-/d4\ a-;[es];r=;[slur/b];a=\-\ | @3 $b_ b-;[es];r=;[slur/b/ld2];b=\-\ $a_ a-;[es];r=;[slur/b/slu2];a=\-\ | >/d8 q q > </d8 q q < [reset] %A+_ | a= [es] r-. r r [slur/b/h/ci2/u2/rl2] #g\-/d4\ | @6 G+_ [es] | G [comma] [slur/b/h/ci2/u2] #g\-/d4\ g-;[es];r=g=\.\ | [slur/b/h/ci2/u2] b\-/d4\ b-;[es];r=b=\.\ [slur/b/h/ci2/u2] #g\-/d4\ g-;[es];r=g=\.\ | @9 >/d4 q q q > &mp/r4 q [reset] C'+\>\_ | C'+ [reset] </d4 q q q < &ff q | R! | @12 R! | R &mp $b.\su-\ b-\-\ | a.\-\ a-\-\ f.\-\ f-\-\ | @15 G+\-\ | [endstaff] [Staff 6] [Treble 1] [Triplets above] *if score [name "Trumpet 2/II|in C"/e "Tpt 2/II"/e] *else [name "Trumpet 2/II|in C"/e] *fi [sshere 48] R! | &ff/d2/r4 [slur/b/h/ci2/u3] C+\-/d4\ | C [es] [slur/b/h/ci2/u3] $a\-/d4\ a-;[es];r=;[slur/b];a=\-\ | @3 $b_ b-;[es];r=;[slur/b/ld2];b=\-\ $a_ a-;[es];r=;[slur/b/slu2];a=\-\ | [sshere +8] >/d8 q q > </d8 q q < [reset] %A+_ | a= [es] r-. r R | @6 %F+\>\_ | F [comma] [slur/b/h/ci2/u3] d\-/d4\ d-;[es];r=d=\.\ | [slur/b/h/ci2/u3] %)f\-/d4\ f-;[es];r=f=\.\ [slur/b/h/ci2/u3] d\-/d4\ d-;[es];r=d=\.\ | @9 >/d10 q q q > &mp/d6/r4 q [reset] G+\>\_ | G+ [reset] </d10 q q q < &ff/d6 q | R! | @12 R! | R &mp %b`.\-\ b`-\-\ | c.\-\ c-\-\ e.\-\ e-\-\ | @15 $B`+\-\ | [endstaff] [Staff 7] [Bass] [Triplets above] *if score [name "Trombone 2/I|in C"/e "Tbn. 2/I"/e] *else [name "Trombone 2/I|in C"/e] *fi [sshere 48] r &ff/d2 [slur/b/h/ci2/u3/rl2] A`.\-/d4\ | A`+_ [es] | A` [tenor] [slur/a/h/ci2/d3] $d'\-/u4\ d'-;[es];r=;[slur/a/ci2];d'=\-\ | @3 *if score $f'_ f'-;[es];r=;[slur/a];f'=\-\ $d'_ d'-;[es];r=;[slur/a/clr6/clu6/crd2];d'=\-\ | *else $f'_ f'-;[es];r=;[slur/a];f'=\-\ $d'_ d'-;[es];r=;[slur/a/clu2/crd2];d'=\-\ | *fi >/d4 q q > </d4 q q < [reset] %F'+_ | f'= [es] r-. r R [bass 0] | @6 R #f\-\ [slur/a/h/ci2/d2] d\-/u4\ | D [es] [comma] [slur/a/h/ci2/d2] #f\-/u4\ f-;[es];r=f=\.\ | [slur/a/h/ci2/d3] a\-/u4\ a-;[es];r=a=\.\ [slur/a/h/ci2/d2] #f\-/u4\ f-;[es];r=f=\.\ | @9 >/d4 q q q > &mp/r4 q [reset] A+\>\_ | A+ [reset] </d4 q q q < &ff q | R! | @12 R! | R &mp g.\-\ g-\-\ | f.\-\ f-\-\ d.\-\ d-\-\ | @15 $E+\-\ | [endstaff] [Staff 8] [Bass] [Triplets above] *if score [name "Trombone 2/II|in C"/e "Tbn. 2/II"/e] *else [name "Trombone 2/II|in C"/e] *fi [sshere 60] &ff/d2 [slur/b/h/ci2/u3/rl2] $E`+\-/d4\ | E`+_ [es] | E` [tenor] [slur/a/h/ci2/d2] $c'\-/u4\ c'-;[es];r=;[slur/a/ci2/lu2];c'=\-\ | @3 *if score $d'_ d'-;[es];r=;[slur/a];d'=\-\ $c'_ c'-;[es];r=;[slur/a/lu1/clu4/clr4/crd2];c'=\-\ | *else $d'_ d'-;[es];r=;[slur/a];d'=\-\ $c'_ c'-;[es];r=;[slur/a/lu1/clu2/crd2];c'=\-\ | *fi >/d4 q q > </d4 q q < [reset] %D'+_ | d'= [es] r-. r R [bass 0] | @6 *if tb2II [newline] *fi R [beamslope -0.1] #f-\-\#g-\-\d-\-\;[slur/b/h/ci2/u3];#f`-\-/d4\ | F` [es] [comma] [slur/a/h/ci2/d2] #f\-/u4\ f-;[es];r=f=\.\ | [slur/a/h/ci2/d3] a\-/u4\ a-;[es];r=a=\.\ [slur/a/h/ci2/d2] #f\-/u4\ f-;[es];r=f=\.\ | @9 >/d4 q q q > &mp/r4 q [reset] A+\>\_ | A+ [reset] </d4 q q q < &ff q | R! | @12 R! | R &mp d.\-\ d-\-\ | e.\-\ e-\-\ a`.\-\ a`-\-\ | @15 F`+\-\ | [endstaff] [Staff 9] [Treble 1] [Stems above] [Ties above] [Dots above] [Hairpins above] *if score [name "Soprano|Alto"/e/c "\*>\S.|A."/e/c] q [reset] R! [suspend] | [14] R! | [sghere 44] *else [name "Soprano|Alto"/e/c] "\bf\Moderato – maestoso"/a/s3/u12/ts [15] R! | *fi [endstaff] [Staff 10] [Treble 1] [Stems below] [Ties below] [Dots below] [Ulevel -34] *if score [sshere 40] *fi Q! [suspend] | [15] Q! | [endstaff] [Staff 11] [Bass] [Stems above] [Ties above] [Dots above] *if score [name "Tenor |Bass "/e/c "T\*>\.|B."/e/c] *else [name "Tenor |Bass "/e/c] *fi R! [suspend] | [15] R! | [endstaff] [Staff 12] [Bass] [Stems below] [Ties below] [Dots below] [sshere 40] Q! [suspend] | [15] Q! | [endstaff] [Staff 13] [Treble 1] *if score [name "Organ"/m/e "Org."/m/e] [sshere 40] *else [name "Organ"/m/e] *fi *if score "\bf\Moderato – maestoso"/a/s3/u2/ts *fi q [reset] R! | [2] R! | @3 [3] R! | @6 [3] R! | @9 [3] R! | @12 [3] R! | @15 R! | [endstaff] [Staff 14] [Bass] *if score [sshere 40] *else [sshere 50] [ssnext 50] *fi R! | [2] R! | @3 [3] R! | @6 [3] R! | @9 [3] R! | @12 [3] R! | @15 R! | [endstaff] [Staff 15] [Bass] *if score [name "Ped."/e "Ped."/e] *else [name "Ped."/e] *fi &ff $E`+_ | E`+_ | E` R | @3 R! | R B`\-/d4\ [reset] Q %)B`_ | B`+_ | @6 B`+_ | B` R | R! | @9 r $e'\-\ c'\-\ %e\-\ | #f\-\ a`\-\ $e-\-\g`-\-\a`-\-\;[slur/b/h/ci2/u3];d`-\-/d4\ | D` [es] R | @12 [3] R! | @15 R! | [endstaff]