home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / w / wms / RGHSamples / Meditation < prev    next >
Text File  |  1995-03-15  |  9KB  |  240 lines
  1. @ PMS2 2.24
  2. @
  3. @ Use the following format words:
  4. @
  5. @ soprano   flute   harp
  6. @
  7. Heading 10 "|\it\To Verona, Denise and Fiona:  Sheherazade!" 26
  8. Heading 24 "|Meditation" 50
  9. Heading 12 "||Peter Thompson" 30
  10. Key C
  11. Time 4/4
  12. Timefont extra 1
  13. Longrestfont 12 extra 1
  14. Repeatbarfont 10 extra 1
  15. Repeatstyle 4
  16. @ Rehearsalmarks boxed 12 extra 1
  17. @
  18. Staffspacing 1/50 2/50 3/0 4/50 5/0
  19. @ Systemgap 44
  20. Breakbarlines 1,2
  21. Barnumbers line 8  @ 8 is the size. Can replace 'line' by interval
  22. Bracket
  23. Brace 3-6
  24. Bracestyle 1
  25. @ Thinbracket
  26. @ Breverests
  27. Clefsize 0.9
  28. Vertaccsize 8
  29. OldBeamBreak
  30. Beamthickness 2
  31. Maxbeamslope 0.15 0.15
  32. Shortenstems 2
  33. Sluroverwarnings
  34. @ Nospreadunderlay
  35. @ Nocheck
  36. Unfinished
  37. @
  38. Hairpinwidth 6 @ 7 is default
  39. Hairpinlinewidth 0.5 @ 0.2 is default
  40. Startlinespacing 4 0 4
  41. Tripletfont 8 bolditalic @ Default size is 10, roman
  42. Tripletlinewidth 0.4
  43. Textsizes 10 8 12 7
  44. Underlaystyle 1
  45. Underlaysize 10
  46. Overlaysize 10
  47. Footnotesize 10
  48. Justify left right top bottom
  49. Linelength 520
  50. Magnification 1
  51. Topmargin 0
  52. Bottommargin 40
  53.  
  54. *if soprano
  55.   Pageheading 12 "\pe\|\bf\Soprano\rm\|\po\" 28
  56.   Selectstave 1
  57.   Systemgap 80
  58.   Notespacing *1.5
  59.   Page 2
  60. *fi
  61.  
  62. *if flute
  63.   Pageheading 12 "\pe\|\bf\Flute\rm\|\po\" 28
  64.   Selectstave 2
  65.   Systemgap 80
  66.   Notespacing *1.2
  67.   Page 3
  68. *fi
  69.  
  70. *if harp
  71.   Pageheading 12 "\pe\|\bf\Harp\rm\|\po\" 28
  72.   Selectstave 3-6
  73.   Systemgap 60
  74.   Notespacing *1.3
  75.   Page 3
  76. *fi
  77.  
  78. *if score
  79.   Pageheading 12 "\pe\||\po\" 28
  80.   Notespacing *1
  81.   Page 4
  82. *fi
  83.  
  84. *Define ppa  "\x1\pp"/a/u2/e
  85. *Define pa   "\x1\p"/a/u2/e
  86. *Define mpa  "\x1\mp"/a/u2/e
  87. *Define mfa  "\x1\mf"/a/u2/e
  88. *Define fa   "\x1\f"/a/u2/e
  89. *Define ffa  "\x1\ff"/a/u2/e
  90.  
  91. *Define pppb "\x1\ppp"/b/d2
  92. *Define ppb  "\x1\pp"/b/d2/e
  93. *Define pb   "\x1\p"/b/d2/e
  94. *Define mpb  "\x1\mp"/b/d2/e
  95. *Define mfb  "\x1\mf"/b/d2/e
  96. *Define fb   "\x1\f"/b/d2/e
  97. *Define ffb  "\x1\ff"/b/d2/e
  98.  
  99. *Define ppm  "\x1\pp"/m/e
  100. *Define pm   "\x1\p"/m/e
  101. *Define mpm  "\x1\mp"/m/e
  102. *Define mfm  "\x1\mf"/m/e
  103. *Define fm   "\x1\f"/m/e
  104. *Define ffm  "\x1\ff"/m/e
  105.  
  106. *Define s8va "\it\8-"/ol/" -| \mf\\159\"/u4/"\it\(8)"
  107. *Define s8vb "\it\^8-"/ul/" -| \mf\\161\"/d2/"\it\(8)"
  108. *Define e8va "#"/ol/r8
  109. *Define e8vb "#"/ul/r8
  110.  
  111. Draw gliss44
  112.   0 -10 moveto "\it\gliss."/c/rot40/s2 show
  113. Enddraw
  114.  
  115. Draw gliss44p
  116.   0 -10 moveto "\it\gliss."/c/rot47/s2 show
  117. Enddraw
  118.  
  119. *Define glissa() [line/=G/ol/or/a/d7/lr8/rl8&&2 linegap/h/w0/draw gliss&&1]
  120. *Define glissb() [line/=G/ol/or/b/u7/lr8/rl8&&2 linegap/h/w0/draw gliss&&1]
  121. *Define endgliss [el/=G]
  122.  
  123. *Define n "\mf\¦"/a/c/d6/l5
  124.  
  125. Textfont extra 1 "PMS.Alpha"
  126.  
  127. Midichannel 1 "french horn"/15 1
  128. Midichannel 2 "flute"/15 2
  129. Midichannel 3 "harp"/15 3-6
  130. Playtempo 100
  131.  
  132. [Staff 0] [Olevel 32]
  133. [olhere -8] "\bf\Allegretto"/ao/s3/ts Q Q | [4] Q! | [time 3/4] Q! | @6 OP1
  134. *if harp
  135.   [olhere +16]
  136. *fi
  137. [time 4/4] "\bf\^rit.-"/ol/"\bf\  ." f q q q- "#"/ol q- | Q! | [time 3/4] "\bf\Slower"/ao/s3/ts q Q | @9
  138. Q! | "\bf\A Tempo I ma rubato"/ao/s3 q Q | [time 4/4] Q! | @12
  139. [olhere +4]
  140. *if harp
  141.   [olhere -6]
  142. *fi
  143. "\bf\^rit.-"/ol/"\bf\  ." f q q. "\bf\^ten."/ol f- | "\bf\A Tempo I"/ao/s3 Q Q | @14 OP2
  144. Q! | Q! | Q! | Q! | [time 2/4] "\bf\Tempo II (livelier)"/ao/s3/ts q q | Q! | Q! | Q! | Q! | @23 OP3
  145. [5] Q! |
  146. [endstaff]
  147.  
  148. [Staff 1 "Soprano"/e] [Treble 1] [Hairpins above] [Triplets above]
  149. [5] R! | [time 3/4] R! [ssnext +10] | @6 OP1
  150. "Come, list-ener,= come,== Mu-sic’s wings are you,= you#–==== trans-par-ent"/ul
  151. [time 4/4] R! | r\f\ "\rm\(recit.)"/a/s2/c/u2 &mpa B. [reset] q q >/h q q > | [time 3/4] #g- b-_ b r | @9
  152. [slur/a/lu1] #d'=\-\b-._ B [es] [comma] | b-\-su\ a- < c'. </h "poco"/a/e b- | [time 4/4] D'._ d'- r- | @12
  153. *if score
  154.   [slur/b/cld8/ru2/crd2]
  155. *else
  156.   [slur/b/cld2/ci2]
  157. *fi
  158. d'-;>;b-#g-#f-_ > f\f\ [es] r-\f\ &pa/u2 #d'-\-\ | #D' #C' | @14 OP2
  159. "now,= now, now.===="/ul
  160. Q. >/u6 q [reset] E'+_ | [ulhere -4] e'\f/u3\ > [move 6] [comma] [ensure 40] "\x1\p \it\espress."/a/u12 e'\-f\ [move 6] [comma] [ensure 50] "dolce"/a/u12 [slur/a/slu4/slco2/sru8/srco6] e'-\-\;>;b-_ b_ >/h0.99 | @16
  161. "\rm\( \x1\pp\*>*>\\rm\)"/a/u2/r8 B+_ | B+\f/u6\ [es] [comma] || [time 2/4] R! | R! | @20
  162. [3] R! | @23 OP3
  163. [5] R! |
  164. [endstaff]
  165.  
  166. [Staff 2 "Flute"/e] [Treble 1] [Triplets above]
  167. R! | &pb/u4 [slur/a/co4] b=-e'=-b=-#g=-,b=-e'=-#g'=-e'=- < [beamslope 0] b=-g=-b=-e'=-;<;"poco"/b/l6/u1;[es];%)c''-\>\ r= &mfb/d6/r2 [beammove -4] c''=\-\c''=\-\ r= r | @2
  168. &pb [slur/a/clu2/crr2] b'=-e''=-b'=-#g'=-,b'=-g'=-e'=-b=- [es] [slur/a] %)g=-b=-e'=-b'=-,;[es];[slur/a];e''=-c''=-%g'=-e'=- [es] "\rm\Flutter"/a/s2/u2 c'-.\//sl4\ r= r | "\rm\( \x1\p\*>*>\\rm\)"/b/d2 {c''-\//\g'-\//\e'-\//\} "\rm\Nat."/a/s2/u14 [slur/a/crr4/crd2] c'=-g'=-e''=-c''=- [es] r= c''= R | @4
  169. R! | [time 3/4] R! | @6 OP1
  170. [time 4/4] R! | R!\f\ | [time 3/4] R! | @9
  171. R! | R! | [time 4/4] R &pb [slur/a/cru4] d'=e'=d'=#c'= b=#a=b=c'= | @12
  172. d' [es] [slur/a] > e'-d'-_ d'\f/u6\ > [es] r-\f\ [slur/a/lu1] &pb #d'-\-\ | #D' #C' [es] | @14 OP2
  173. [slur/a/co4] b=-e'=-b=-#g=-,b=-e'=-#g'=-e'=- < [beamslope 0] b=-g=-b=-e'=-;<;"poco"/b/l6/u1;[es];%)c''-\>\ r= &mfb/d6/r2 [beammove -4] c''=\-\c''=\-\ r= [slur/a/co2] e''=-c''=-%g'=-e'=-;"\rm\Flutter"/a/s2/u4;#c'-\//\ [es] | R! | @16
  174. &ppb "\rm\Nat."/a/s2/u2 [slur/b/ci2] d=e=d=#c= d [es] r c_ | d. &pppb/u2 "\rm\Flutter"/a/s2/u6 d-\// sl4\_ D\//f sl4\ [comma] || [time 2/4] &mfb "\rm\Nat."/a/s2/u2 e=#g=b=#c'= e=g=c'=#d'= | e=#g=b=#c'= #d'=_b=;[slur/a];c'=g=_ | @20
  175. < g=-b=-#c'=-e'=-,;[es];$a'=_$a''= < [slur/a/co4] a''=-$e''=-c''=-e''=-,c''=-a'=-$e'=-b=-_ | b=;[es];"\rm\( \x1\f\*>*>*>\\rm\)"/b/d2;#c'- r= b=g=-_b=-,e'=c'=-_e'=- | [slur/a] {/u3 #f'=d'=f'=,;[es];};[slur/a];{/u8 e'=%c'=e'=} [es] [slur/a] a'=-f'=-d'=-b=-,;[es];[slur/a];d'=-b=-g=-e=- [es] | @23 OP3
  176. a r= &mfb b=\.\d'=\.\e'=\.\ | a=\.\d'=\.\e'=\.\#g'=\.\ a'=_g'=e'=#c'= | [slur/a] < g=-b=-d'=-g'=-;[es];b'=;<;[slur/a/h/ci1/d7];#c''=\>/u4\ [beammove -8] c''=;[es];b'- r= | @26
  177. [slur/a] b'=-#d''=-b'=-#f'=-,%f'=-$e'=-$c'=-e'=- [es]
  178. *if flute
  179.   [slur/a/slco4]
  180. *else
  181.   [slur/a/co4/rd2]
  182. *fi
  183. a=-#c'=-%e'=-g'=-,a'=-b'=-#c''=_ | [beammove -4] c''=;[es];b'-\>\ r= #c''=a'=-_c''=-,b'=g'=-_b'=- |[endstaff]
  184.  
  185. [Staff 3 "Harp"/m/e] [Treble 1] [Stems above] [Ties above] [Dots above] [Triplets above -3] [Hairpins middle]
  186. &pm $c=$d=$f=$g= $a=g=f=d= c=d=f=g= $b=g=f=d= | $c=$d=$f=$g= $a=g=f=d= c=d=f=g= $b=g=f=d= | @2
  187. $c=$d=$f=$g= $a=g=f=d= c=d=f=g= $b=g=f=d= | $c=$d=$f=$g= $a=g=f=d= c=d=f=g= $b=g=f=($c'=d=) | @4
  188. $f'=$c'= q-. c'=$g'=c'= $a'=g'= q- a'=$d''=$e''=$c''= | [time 3/4] r-\l12\ $e''=$c''= $d''=$b'=c''=$a'= $e'=g'= r=\l12\ "ten."/a/u4 a'= | @6 OP1
  189. [time 4/4] { $e''-$c''-$g'-} {c''-g'-$e'-} {g'-e'-$c'-} $a-g- | "\rm\harmonic"/m/s2 $G\fo\ Q | [time 3/4] R! | @9
  190. R! | Q! | [time 4/4] "\x1\O"/m/r10 (b$ae) "\x1\O"/m/r10 (bae) r q "\x1\O"/m/e/l8 | @12
  191. R!\f\ | $c=$d=$f=$g= $a=g=f=d= c=d=f=g= $b=g=f=d= | @14 OP2
  192. $c=$d=$f=$g= $a=g=f=d= c=d=f=g= $b=g=f=d= | [olhere +6]
  193. *if harp
  194.   "\rm\(let ring)"/m/s2/u2/l6
  195. *else
  196.   "\rm\(let ring)"/m/s2/u2
  197. *fi
  198. r [ensure 30] "\x1\O"/m/c r\f\ [ensure 20] &s8va &pm/u4 ($a'\sd\$f'$c') &e8va (c'$a$f) | @16
  199. [olhere +6] "\rm\(let ring)"/m/s2 R r- &pm/u4 &s8va ($a'-\sd\$f'-$c'-) &e8va (c'$a$f) | "\rm\(let ring)"/m/s2 q Q. [reset] R!\f\ [comma] || [time 2/4] R! | R! | @20
  200. R! | &fm/d4 (g-d-b`-)(a-e-#c-) (g-d-b`-)(a-e-c-) | (g-d-b`-)(a-e-#c-) q | @23 OP3
  201. (#C'AE#C) | "\rm\(let ring)"/m/s2 q q [reset] R! | r &fm/d4 (g-d-b`-)(f-#c-) | @26
  202. "\rm\(let ring)"/m/s2 r (ge#c) | (g-d-b`-)(f-#c-) r |
  203. [endstaff]
  204.  
  205. [Staff 4] [Treble 1] [Stems below] [Ties below] [Dots below] [Triplets below] [Hairpins middle]
  206. [4] Q! | q- $g=$e= g= q-. q- $e'=c'= q | [time 3/4] $c=$e=$<2g'=$<2e'= $<2f'=$<2d'=e'=$<2c'= $<2g=e=$d=$f= | @6 OP1
  207. [time 4/4] ($e-$d-)$c- $c' (d-c-)$g- q | Q $C'\f/u2o\ | [time 3/4] Q! | @9
  208. Q! | Q! | [time 4/4] Q. (b'$a'e') | @12
  209. Q! | Q! | @14 OP2
  210. Q! | Q! | @16
  211. Q! | Q! || [time 2/4] Q! | Q! | @20
  212. Q! | Q! | q (a=#f=d=)(a'-.\:\#f'-.\:\d'-.\:\b-.\:\) | @23 OP3
  213. Q! | Q! | Q! | @26
  214. Q! | Q! |
  215. [endstaff]
  216.  
  217. [Staff 5] [Bass] [Stems above] [Ties above] [Dots above] [Triplets above] [Hairpins above]
  218. [4] $C C | Q! | [time 3/4] Q! | @6 OP1
  219. [time 4/4] Q! | Q! | [time 3/4] R! | @9
  220. R! | c=e=g=b= < d=#f=c'=$a=_ < [notes off] [space 8] a [notes on] [reset] Q r | [time 4/4] Q! | @12
  221. R!\f\ | $C C | @14 OP2
  222. $C C | r r\f\ [treble 1] q $c | @16
  223. Q. $c | R!\f\ [bass 0] || [time 2/4] R! | R!