home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 3
/
PDCD_3.iso
/
utilities
/
utilsp
/
pms
/
Scores
/
Samp08
(
.txt
)
< prev
next >
Wrap
LaTeX Document
|
1993-06-26
|
4KB
|
118 lines
@ Sample for Computing in Musicology 1993
@ Philip Hazel, June 1993
draw ped
0 0 moveto "\**163\ "show
enddraw
draw star
linegapx neg 3 add 0 moveto "\**36\"/s3 show
enddraw
draw pedstar
linegapx neg 3 add 0 moveto "\**36\ "/s3 show "\**163\" show
enddraw
draw circle
-1.5 headbottom 3 sub moveto
3 -2.5 7 -2.5 10 0 rcurveto
3 3 3 7 0 10 rcurveto
-3 2.5 -7 2.5 -10 0 rcurveto
-3 -3 -3 -7 0 -10 rcurveto
0.4 setlinewidth stroke
enddraw
draw circle2
-5.5 headbottom 4 sub moveto
4 -3.5 10 -3.5 14 0 rcurveto
4.5 4 4.5 10 0 14 rcurveto
-4 3.5 -10 3.5 -14 0 rcurveto
-4.5 -4 -4.5 -10 0 -14 rcurveto
0.4 setlinewidth stroke
enddraw
draw circle3
-3 headbottom 5.5 sub moveto
3.5 -3 8.5 -3 12 0 rcurveto
4 3.5 4 8.5 0 12 rcurveto
-3.5 3 -8.5 3 -12 0 rcurveto
-4 -3.5 -4 -8.5 0 -12 rcurveto
0.4 setlinewidth stroke
enddraw
*define ped [line/=L/bu linegap/=L/w34/l4/draw ped]
*define ped2 [line/=L/bu linegap/=L/w34/l16/draw ped]
*define star [linegap/=L/l4/draw star]
*define pedstar [linegap/=L/l8/w30/draw pedstar]
*define circ [draw circle]
*define circ2 [draw circle2]
*define circ3 [draw circle3]
*define gtb1 "\rm\beginning)"/a/c/s3
*define gtb2 "\rm\(Go to"/a/c/s3
*define pp "\x1\pp"/m/s2
*define p "\x1\p"/m/s2
*define mp "\x1\mp"/m/s2
*define mf "\x1\mf"/m/s2
*define f "\x1\f"/m/s2
*define sfz "\x1\sfz"/m/s2
Heading 16 "|#4. Herbert Bielawa" 18
Heading 16 "|Just Add Water" 100
linelength 450
justify top left right
unfinished
systemgap 130
bracket
brace 1-2
beamendrests
rehearsalmarks boxed 16
textfont extra 1 "PMS.Alpha"
textsizes 10 8 7 8
tripletfont 8 italic
time C
[stave 1 "\bf\Piano"/m treble 1]
"\*c\\rm\ = 80"/a/c
["A"/u20]
"effervescent"/b/l16
[couple down]
r [space 4] &sfz/a/u2 (#c'=d''=)r=r= &circ [slur/b/ld3/lr1] a`=\su\
{/rx/u35 re'\-\ c`\-\} [es] [space -4] [move 12 comma] >b1/u10/l2 >b2/l2 :)| @1
["B"/u14]
[beamrit 2]
[\.\] {7/x$e-\c\g'-#f-a`-d`- &circ [slur/b] f``-$a`-};
[\\ beamslope 0.2] r- &p/l8/u4 (c'-\.\b'-);
[beamslope 0.1 beammove 5]
q=g```=\su\ [es] &f/a/l4/d2 (#c-\sd >\d'-) | @2
&mp/l4 r-; {/u42 $b=\sd\ &mp/d6/c/l8 [move -4]
&circ [slur/b/rd48/rr24/lr4/ld3] e`=\su\f'=\sd\}; r=\l8\ &sfz/l4/u8 (c''=g''=)r-; r [es]
[beammove 4 beamslope 0.1]
{/b/u37/n &f/a/d38 $g``-\.su\($e'-\.sd\$b'-)a-\.sd\}
[move 16 comma space -8] >b1/u12 >b2 :)| @3
[sshere +8]
["C"/u34]
&p/r4 r [space -8] [slur/a/co4] f`=\su\ c=\c su\ $a`=\h sd sl-8\$c=\sd sl-4\; [es]
[beamslope 0]
{5/u30 &circ2 [slur/b/lu18/lr3/ru28/ci24] $e-\- sd\ d`-\- su\ ($b-\-\f'-) [es]
$d-\-\ ($a``-\-su\c`-)} | @4
&circ [slur/a/ld28/w] g`-\.su\($e'-\.sd\$b'-); r;
{6/u42 &mp/l16/u8 [xslur/a/u1] #c=\sd\ [es] #f= [es] %c=\.c su\ [slur/a/co12/clr3/ll3/lu2] a`=\su\
[space 4] $e=$a=}; [es]
q= &circ &sfz/b/d8 </b/d6/r12 [slur/b/lr7/ru2/co2] d``=\su\
b=-\sd\#f'=-\sd\ #c=-\c\ [es] #e`=-\.\ | @5
[sshere +20]
[beamrit]
[beamslope 0.005]
[space 2]
[\.\] {18/x &circ2 &f/b/d54 [slur/a/lu3/ru6/ci4] #g-\sd\ [space 2] %g'- b- [es]
>/b/d9 e-\c su sl-8\ #f`-\su sl-8\ #a-
#c''- %c'- &circ3 [slur/b/ld3/rd2] a`-\su sl-8\ e''- #d'- #f-\c su sl-8\ [es] b`-\su sl-8\
%f- a'- d- #g``-\su\ > e-} >b1/u12/l4 >b2/l4 [space -4 move 10 comma] :)| @6
[endstave]
[stave 2 bass 0]
"\rm\(Before each repeat pause briefly."/b/l16/d38/s4
"\rm\When playing through do NOT pause.)"/b/l16/s4
[ulhere -22]
r-.; &f/a/d2/l2 (g`=\sl2\$b`=) &ped qq &star q [el] :) | @1
&ped Qq r= &pedstar q=q- | @2
[ulhere -4]
r-q- q= &star q= [el] [reset] q r r-.; [space 2]$e=\sl2\; [space 2] &ped
{/x q-q- &star q-[el]} :) | @3
r &ped qQ | @4
[ulhere -36]
q- &star q- [el] rq r=q= &ped q- | @5
Qqq-q= &star q= [el] :)| @6
[endstave]