home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / w / wms / Scores / Samp08 (.txt) < prev    next >
Encoding:
LaTeX Document  |  1995-06-01  |  3.8 KB  |  122 lines
  1. @ Sample for Computing in Musicology 1993
  2. @ Philip Hazel, June 1993
  3. draw ped
  4.   0 0 moveto "\**163\ "show
  5. enddraw  
  6.         
  7. draw star
  8.   linegapx neg 3 add 0 moveto "\**36\"/s3 show
  9. enddraw  
  10. draw pedstar
  11.   linegapx neg 3 add 0 moveto "\**36\  "/s3 show "\**163\" show
  12. enddraw  
  13. draw circle
  14.   -1.5 headbottom 3 sub moveto
  15.    3 -2.5  7 -2.5  10   0 rcurveto
  16.    3    3  3    7   0  10 rcurveto
  17.   -3  2.5 -7  2.5 -10   0 rcurveto
  18.   -3   -3 -3   -7   0 -10 rcurveto
  19.   0.4 setlinewidth stroke
  20. enddraw  
  21. draw circle2
  22.   -5.5 headbottom 4 sub moveto
  23.    4   -3.5  10   -3.5  14  0 rcurveto
  24.    4.5  4   4.5    10   0  14 rcurveto
  25.   -4    3.5  -10  3.5  -14  0 rcurveto
  26.   -4.5  -4 -4.5   -10   0 -14 rcurveto
  27.   0.4 setlinewidth stroke
  28. enddraw  
  29. draw circle3
  30.   -3 headbottom 5.5 sub moveto
  31.    3.5   -3  8.5   -3   12  0 rcurveto
  32.    4    3.5   4    8.5  0  12 rcurveto
  33.   -3.5    3 -8.5    3  -12  0 rcurveto
  34.   -4   -3.5  -4   -8.5  0 -12 rcurveto
  35.   0.4 setlinewidth stroke
  36. enddraw  
  37. *define ped  [line/=L/bu linegap/=L/w34/l4/draw ped]
  38. *define ped2 [line/=L/bu linegap/=L/w34/l16/draw ped]
  39. *define star [linegap/=L/l4/draw star]
  40. *define pedstar [linegap/=L/l8/w30/draw pedstar]
  41. *define circ  [draw circle]
  42. *define circ2 [draw circle2]
  43. *define circ3 [draw circle3]
  44. *define gtb1 "\rm\beginning)"/a/c/s3 
  45. *define gtb2 "\rm\(Go to"/a/c/s3
  46. *define pp "\x1\pp"/m/s2
  47. *define p  "\x1\p"/m/s2
  48. *define mp "\x1\mp"/m/s2
  49. *define mf "\x1\mf"/m/s2
  50. *define f  "\x1\f"/m/s2
  51. *define sfz "\x1\sfz"/m/s2
  52. Heading 16 "|#4. Herbert Bielawa" 18
  53. Heading 16 "|Just Add Water" 100
  54. linelength 450
  55. justify top left right
  56. unfinished
  57. systemgap 130
  58. bracket
  59. brace 1-2
  60. bracestyle 1
  61. startlinespacing 2 0 2
  62. beamendrests
  63. rehearsalmarks boxed 16
  64. textfont extra 1 "PMS.Alpha"
  65. textsizes 10 8 7 8
  66. tripletfont 8 italic
  67. time C
  68. playtempo 80
  69. midichannel 1 "piano"
  70. [stave 1 "\bf\Piano"/m treble 1]
  71. "\*c\\rm\ = 80"/a/c
  72. ["A"/u20]
  73. "effervescent"/b/l16
  74. [couple down]
  75. r [space 4] &sfz/a/u2 (#c'=d''=)r=r= &circ [slur/b/ld3/lr1] a`=\su\ 
  76. {/rx/u35 re'\-\ c`\-\} [es] [space -4] [move 12 comma] >b1/u10/l2 >b2/l2 :)| @1
  77. ["B"/u14]
  78. [beamrit 2] 
  79. [\.\] {7/x$e-\c\g'-#f-a`-d`- &circ [slur/b] f``-$a`-}; 
  80. [\\ beamslope 0.2] r- &p/l8/u4 (c'-\.\b'-); 
  81. [beamslope 0.1 beammove 5]
  82. q=g```=\su\ [es] &f/a/l4/d2 (#c-\sd >\d'-) | @2
  83. &mp/l4 r-; {/u42 $b=\sd\ &mp/d6/c/l8  [move -4] 
  84. &circ [slur/b/rd48/rr24/lr4/ld3] e`=\su\f'=\sd\}; r=\l8\ &sfz/l4/u8 (c''=g''=)r-; r [es] 
  85. [beammove 4 beamslope 0.1]
  86. {/b/u37/n &f/a/d38 $g``-\.su\($e'-\.sd\$b'-)a-\.sd\} 
  87. [move 16 comma space -8] >b1/u12 >b2 :)| @3
  88. [sshere +8]
  89. ["C"/u34]
  90. &p/r4 r [space -8] [slur/a/co4] f`=\su\ c=\c su\ $a`=\h sd sl-8\$c=\sd sl-4\; [es]
  91. [beamslope 0]
  92. {5/u30 &circ2 [slur/b/lu18/lr3/ru28/ci24] $e-\- sd\ d`-\- su\ ($b-\-\f'-) [es]  
  93. $d-\-\ ($a``-\-su\c`-)} | @4
  94. &circ [slur/a/ld28/w] g`-\.su\($e'-\.sd\$b'-); r;
  95. {6/u42 &mp/l16/u8 [xslur/a/u1] #c=\sd\ [es] #f= [es] %c=\.c su\ [slur/a/co12/clr3/ll3/lu2] a`=\su\ 
  96. [space 4] $e=$a=}; [es] 
  97. q= &circ &sfz/b/d8 </b/d6/r12 [slur/b/lr7/ru2/co2] d``=\su\ 
  98. b=-\sd\#f'=-\sd\ #c=-\c\ [es] #e`=-\.\ | @5
  99. [sshere +20]
  100. [beamrit]
  101. [beamslope 0.005]
  102. [space 2] 
  103. [\.\] {18/x &circ2 &f/b/d54 [slur/a/lu3/ru6/ci4] #g-\sd\ [space 2] %g'- b- [es]
  104. >/b/d9  e-\c su sl-8\ #f`-\su sl-8\ #a-
  105. #c''- %c'- &circ3 [slur/b/ld3/rd2] a`-\su sl-8\ e''- #d'- #f-\c su sl-8\ [es] b`-\su sl-8\
  106. %f- a'- d- #g``-\su\ > e-} >b1/u12/l4 >b2/l4 [space -4 move 10 comma] :)| @6
  107. [endstave]
  108. [stave 2 bass 0]
  109. "\rm\(Before each repeat pause briefly."/b/l16/d38/s4
  110. "\rm\When playing through do NOT pause.)"/b/l16/s4
  111. [ulhere -22]
  112. r-.; &f/a/d2/l2 (g`=\sl2\$b`=) &ped qq &star q [el] :) | @1
  113. &ped Qq r= &pedstar q=q- | @2
  114. [ulhere -4]
  115. r-q- q= &star q= [el] [reset] q r r-.; [space 2]$e=\sl2\; [space 2] &ped 
  116. {/x q-q- &star q-[el]} :) | @3
  117. r &ped qQ | @4
  118. [ulhere -36]
  119. q- &star q- [el] rq r=q= &ped q- | @5
  120. Qqq-q= &star q= [el] :)| @6
  121. [endstave]
  122.