home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / w / wms / Scores / Samp09 < prev    next >
Encoding:
Text File  |  1995-08-25  |  3.4 KB  |  132 lines
  1. @ Sample for Computing in Musicology 1993
  2. @ Philip Hazel, June 1993
  3.  
  4. draw blip
  5.   linegapx linegapy moveto
  6.   0 linegapx 3 mul lineto
  7.   linegapx neg linegapy neg lineto
  8.   0.3 setlinewidth stroke
  9. enddraw  
  10.  
  11. draw ped
  12.   0 0 moveto "\**163\ "show
  13. enddraw  
  14.  
  15. draw flutter
  16.   linegapx neg 1 sub -3.1 moveto "\mf\`````````````````````````" show
  17.   linegapx neg 4 add 3 moveto "\it\(flutter)"/s3 show
  18. enddraw  
  19.  
  20. draw star
  21.   linegapx neg 3 add 0 moveto "\**36\"/s5 show
  22. enddraw  
  23.  
  24. draw pog
  25.   1 stemtop 10 sub moveto 6 4 rlineto
  26.   0.2 setlinewidth stroke
  27. enddraw  
  28.  
  29. draw three
  30.   0 -3 moveto "\it\3"/s6/c show
  31. enddraw  
  32.  
  33. *define sa  slur/a0/rr12
  34. *define sa2 slur/a0/lr3/rr12
  35. *define sb  slur/b0/rr16/lr4
  36.  
  37. *define b1 [linegap/=L/draw blip]
  38. *define b2 [linegap/=L/w2.5/draw blip]
  39. *define b3 [linegap/=L/w100/r4/draw flutter]
  40.  
  41. *define star [linegap/=L/draw star]
  42.  
  43. *define va8 "\it\8va-"/ol/u17/l8/s3/" -| \**159\"
  44.  
  45. Heading 16 "|#2. David Chaitkin" 18
  46. Heading 16 "|Prelude" 70
  47.  
  48. linelength 480
  49.  
  50. justify top left right
  51. startnotime
  52. unfinished
  53.  
  54. startlinespacing 2 0 2
  55. stavespacing 1/0 2/50
  56. systemgap 100
  57. barnumbers line 9 italic
  58. bar 27
  59. bracket
  60. brace 1-3
  61. bracestyle 1
  62.  
  63. textsizes 10 12 7 9 7 8
  64. clefsize 0.8
  65. tripletfont 8 italic
  66.  
  67.  
  68.  
  69. [stave 1 treble 1 stems up]
  70. [slur/a/ll20/ru8] (d''\.!\d''')[&sa/u1 &sa/u14](#f'\.!\#f'') [es es es] Q | @27
  71. {/a r\l16\ [slur/a/u8/ci4 space 4] (#F'\!.\#F'') } (d''\!.\d''')
  72. [&sa/u1 &sa/u14](#f'\!.\#f'') [es es es] | @28
  73. Q [space 2] r. [move -5] "\it\s\bi\ff"/s2/b10/l8
  74. "\it\8va - - \**159\"/a/s3 [slur/b/lu2/ru12] [draw pog] (a'-\g\a''-\g\) 
  75. [space 4 &sa/u14] d''-\sd\ [es es] 
  76. [space 2] | @29
  77.  
  78. Rr. [&sa2 &sb/d4] "\it\s\bi\f"/b/s2/u4(d-\sd >/u2\e'-) [es es space 2] | @30
  79. [stems auto]
  80. r-; "\it\s\bi\f"/b/s2/l4 [slur/b/ru8] &va8 
  81. [move -4] [draw pog] (a'-\g/\a''-\g\) [xslur/a/ru2/rl1/lu1/ci1/cll2] d'' [es &sa/u2] 
  82. "#"/ol/r8 e'- [es es] 
  83. "\bi\allarg."/a8 R | @31
  84. R! | @32
  85. "\bi\p"/s2/a/u6
  86. "\bf\A tempo"/a/d2
  87. {/a r "\it\cantabile"/a/s4/u4/r8 [slur/a/lu16/ll8/ru10/ci2] #ce} {/b a#f'g'} | @33
  88. [line/a/u4 linegap/h/w6/draw three] 
  89. {/a/x e'\su\g#f} [es] {/a eag} [es] [reset] C+ | @34
  90. [endstave]
  91.  
  92.  
  93. [stave 2 treble 1 stems down rlevel -4]
  94. r. q- (g.d'.) q- | @27
  95. [&sb/u2 &sb/u10] (gd') [es es] rr.q- | @28
  96. (g.d'.) q-Q | @29
  97. [endstave] 
  98.  
  99.  
  100. [stave 3 treble 1]
  101. Qqq-r-\l-16\ [reset]
  102. [line/=L/b/h/ol/ll40/d5/2/d4]
  103. q. [slur/a/ll8/ru4/rl2/co30/clu40/cll10/crl15] (#f-b-) r 
  104. [bass 0] </a/u4/r6 "\bi\pp"/b14/s2/l16 
  105. &b1 [&sb/u2 &sb/d5] (e`-\.! sd\b`-); [es es] 
  106. [space 4 treble 1] [&sa/d7 &sa/d11] (#f-b-) [es es es] [space 4] </r2 | @27
  107.  
  108. Qq. [slur/a/ll8/ru4/rl2/co30/clu40/crl10] (#f-b-) | @28
  109.  
  110. qq-r-\l-16\ [reset]
  111. "\it\m\bi\p"/a/s2/u10/l4 >/a/r15/u5
  112. "\it\(\bi\pp\it\)"/b/r4/d8/s2
  113. r [bass 0] &b1 [&sb/d2 &sb/d10] (c`-\!. sd\g`-); [es es]
  114. [treble 1] [&sa/d11 &sa/d6] (#f-b-) >/l12 [es es es] r. 
  115. [slur/b/lu2/ru8] [draw pog] (d'-\g/\d''-\g\) [&sa/u4] #f'- [es es] | @29
  116.  
  117. r- [bass 0] "\it\m\bi\f"/s2/a/e/l4 b._b- &b2 c' &b1 ($b`-c'-) 
  118. [reset] Qq. [notes off] ($b`-\ar\e''-\c\) [notes on] | @30
  119.  
  120. r- [treble 1 slur/b/lu2/ru8] [draw pog] (d'-\g/\d''-\g\)%f' [es slur/a/ru12] &b2 g'-_;g'-
  121. "\it\dim.-"/ol/u14/"   -" c' &b2 f-_ | @31
  122.  
  123. f-ed-_{/a &b3 d "#"/ol/l4 "\bi\p"/a/u15 >/a/u13/r10 ga`} [es] [bass 0] >/d16/r16 | @32
  124.  
  125. &star B+ [el] [reset] 
  126. {/b/u4 r\l-8\ [line/=L/ol/h/b/d8.5 linegap/w36/l4/draw ped] G`\sd sl-3\}_/bG`\sd sl-3\ | @33
  127.  
  128. [notes off] ($a`\ar\e''\c\) [notes on reset]
  129. (A`+$B+) [reset]
  130. &b1 {/x q &b2 q &b2 q} &star Q [el] |
  131. [endstave]
  132.