chiark - git - mdw - mup/blob - mup/docs/star.ps

   1 %!PS-Adobe-1.0
   2 %%Creator: Mup
   3 %%Title: music:  from /home/johnkr/mup/5.3/doc/arkkra/star.mup
   4 %%CreationDate: Sat Dec 9 16:59:22 2006
   5 %%Pages: (atend)
   6 %%DocumentFonts: (atend)
   7 %%BoundingBox: 0 0 612 792
   8 %%EndComments
   9 % Copyright (c) 1995, 1996, 1997, 1998, 1999, 2000, 2003, 2004 by Arkkra Enterprises
  10 % All rights reserved
  11
  12 % Mup PostScript Prolog 5.3 for use with Mup 5.3
  13
  14 % lwid is used as the width of a standard (thin) line in the music
  15 % character definitions.
  16 /lwid 70 def
  17 /halflwid lwid 2 div def
  18
  19 % Define the following for use in do_upshortnote, do_dnshortnote, and
  20 % do_shortrest; it has to be done outside of the music font definition.
  21 /utildict 10 dict def
  22 utildict begin
  23         /setnumflags    {       /numflags       exch def } def
  24         /sethooksm1     {       /hooksm1        exch def } def
  25         /setoffsets     {       /offsets        exch def } def
  26         /setx           {       /x              exch def } def
  27         /sety           {       /y              exch def } def
  28 end
  29
  30 % Define a music character font.  Each music character is defined as if it
  31 % were a normal ASCII character in a strange font where "A" looks like a
  32 % treble clef, "B" looks like a bass clef, etc.
  33
  34 /mfont0 100 dict def
  35 mfont0 begin
  36         /FontType 3 def
  37         /FontMatrix [ .001 0 0 0.001 0 0 ] def
  38         /FontBBox [ -2000 -4030 2000 4030 ] def
  39         /FontName (Mfont0) def
  40
  41         % set up Encoding vector with standard names
  42         /Encoding 256 array def
  43         StandardEncoding Encoding copy
  44         pop
  45
  46         % the following definitions are used for quarter rests
  47         /topx -170 def /topy 950 def
  48         /cor1x 250 def /cor1y 450 def
  49         /cor2x -300 def /cor2y 200 def
  50         /cor3x 250 def /cor3y -400 def
  51
  52         % the following definitions are used for double sharps
  53         /limit 300 halflwid add def
  54         /off 70 def
  55         /inbendsmall limit 200 sub def
  56         /inbendbig limit 20 sub def
  57         /outbendsmall 100 def
  58         /outbendbig outbendsmall off add def
  59
  60         %%%%% define routines that will be used by multiple characters %%%%%
  61         /do_1n {
  62                 gsave
  63                 newpath -10 rotate 1.6 1 scale
  64                 0 0 325 0 360 arc               %outer ellipse
  65                 1 1.6 div 1 scale 10 rotate     %back to original
  66                 35 rotate 0.85 1.1 scale
  67                 0 0 275 0 360 arc               %inner ellipse
  68                 eofill
  69                 grestore
  70         } def
  71         /do_upflag {
  72                 -315 0 moveto
  73                 -300 100 -100 480 0 600 curveto
  74                 300 960 350 1500 200 1700 curveto
  75                 130 1700 lineto
  76                 350 1200 50 650 -315 600 curveto
  77                 fill
  78         } def
  79         /do_flat {
  80                 -250 -400 moveto        %outer edge of loop
  81                 500 0 350 650 -250 160 curveto
  82                 -250 160 lwid sub lineto %inner edge of loop
  83                 100 400 300 0 -250 -400 lwid add curveto
  84                 fill
  85
  86                 lwid setlinewidth       %stem
  87                 -250 1100 moveto -250 -400 lineto stroke
  88         } def
  89         /do_diamond {
  90                 newpath
  91                 420 0 moveto 0 300 lineto -420 0 lineto
  92                 0 -300 lineto closepath
  93                 259 -29 moveto -41 185 lineto -259 29 lineto
  94                 41 -185 lineto closepath
  95                 eofill
  96         } def
  97         /do_2n {
  98                 gsave
  99                 newpath 25 rotate 1.4 1 scale
 100                 0 0 315 0 360 arc               %outer ellipse
 101                 1 1.4 div 1 scale               %back to original
 102                 1.3 0.5 scale
 103                 0 0 310 0 360 arc               %inner ellipse
 104                 eofill
 105                 grestore
 106         } def
 107         /do_4n {
 108                 gsave
 109                 newpath 25 rotate 1.35 1 scale
 110                 0 0 310 0 360 arc fill
 111                 grestore
 112         } def
 113         /do_com {
 114                 newpath
 115                 330 250 150 0 360 arc fill      %knob at upper right
 116                 465 300 moveto                  %outer boundary
 117                 410 500 200 635 0 635 curveto
 118                 -750 635 -750 -635 0 -635 curveto
 119                 350 -635 480 -300 500 -100 curveto
 120                 430 -100 lineto                 %inner boundary
 121                 380 -300 250 -565 0 -565 curveto
 122                 -450 -565 -450 565 0 565 curveto
 123                 200 565 370 350 395 300 curveto
 124                 fill
 125         } def
 126         /do_ferm {
 127                 0 0 800 lwid sub 0 180 arc      %inner arc
 128                 -800 0 lineto
 129                 0 270 lwid sub 800 180 0 arcn   %outer arc
 130                 800 0 lineto fill
 131                 0 120 120 0 360 arc fill        %the dot
 132         } def
 133         /do_mor {
 134                 gsave
 135                 0.7 1 scale     %scrunch the following horizontally
 136                 45 rotate       %to pretend all lines horz or vertical
 137                 0 1 1 {
 138                         pop     %we don't need the loop variable
 139                         %one half of the mordent
 140                         0 40 moveto 350 40 lineto 350 -460 lineto
 141                         750 -460 lineto 750 -540 lineto
 142                         150 -540 lineto 150 -40 lineto
 143                         0 -40 lineto fill
 144                         180 rotate      %to do the other half
 145                 } for
 146                 grestore
 147         } def
 148         /do_turn {
 149                 gsave
 150                 0 1 1 {
 151                         pop     %we don't need the loop variable
 152                         0 -100 moveto   %outer boundary
 153                         200 -400 625 -400 625 0 curveto
 154                         625 200 500 325 300 325 curveto
 155                         300 185 lineto  %inner boundary
 156                         450 255 555 150 555 0 curveto
 157                         555 -350 250 -250 0 100 curveto
 158                         fill
 159                         300 255 70 0 360 arc fill %knob on end
 160                         180 rotate      %to do the other half
 161                 } for
 162                 grestore
 163         } def
 164
 165         /do_upshortnote {
 166                 utildict begin
 167                 setnumflags             %set numflags from the stack
 168                 gsave
 169                 -330 0 translate        %half a flag width
 170                 do_4n                   %do a quarter note head
 171                 lwid setlinewidth
 172                 370 0 moveto
 173                 370 2100 numflags 2 sub flagsep mul add lineto stroke
 174                 670 2100 numflags 2 sub flagsep mul add translate
 175                 1 -1 scale              %reflect across X axis
 176                 0 1 numflags 1 sub {
 177                         do_upflag       %do an upflag
 178                         pop             %we don't need the loop variable
 179                         0 flagsep translate
 180                 } for
 181                 grestore
 182                 end
 183         } def
 184
 185         /do_dnshortnote {
 186                 utildict begin
 187                 setnumflags             %set numflags from the stack
 188                 do_4n                   %do a quarter note head
 189                 lwid setlinewidth
 190                 -370 0 moveto
 191                 -370 -2100 numflags 2 sub flagsep mul sub lineto stroke
 192                 gsave
 193                 -70 -2100 numflags 2 sub flagsep mul sub translate
 194                 0 1 numflags 1 sub {
 195                         do_upflag       %do an upflag
 196                         pop             %we don't need the loop variable
 197                         0 flagsep translate
 198                 } for
 199                 grestore
 200                 end
 201         } def
 202
 203         /do_shortrest {
 204                 utildict begin
 205                 sety setx setoffsets sethooksm1 %set variable from the stack
 206                 gsave
 207                 -105.8 offsets mul -600 offsets mul translate
 208                 0 1 hooksm1 {           %loop once per hook
 209                         newpath
 210                         1 setlinewidth
 211                         gsave
 212                         1 1.2 scale
 213                         -150 300 1.2 div 140 0 360 arc fill     %the dot
 214                         grestore
 215                         lwid setlinewidth
 216                         -50 700 550 255 315 arc         %rest of the hook
 217                         hooksm1 lt { stroke 105.8 600 translate } if
 218                 } for
 219                 x y lineto stroke
 220                 grestore
 221                 end
 222         } def
 223
 224
 225         % subsidiary dictionary of character definitions
 226         /CharStrings 128 dict def
 227         CharStrings begin
 228
 229                 /.notdef {} def
 230
 231                 % Here are the definitions of the characters.  A stepsize here
 232                 % is 300 units (assuming the character is drawn at its default
 233                 % size).
 234
 235                 % gclef
 236                 /A {
 237                         newpath
 238                         %start with inner curl, inside boundary
 239                         -50 -300 moveto
 240                         -450 600 700 700 750 0 curveto
 241                         750 -800 -700 -800 -700 200 curveto
 242                         -700 900 500 1400 520 2250 curveto
 243                         520 2900 300 3000 200 3000 curveto
 244                         100 3000 -400 2500 -200 1800 curveto
 245                         350 -600 lineto
 246                         720 -1600 0 -1650 -400 -1400 curveto
 247
 248                         %go back to start, drawing the other boundary
 249                         -400 -1480 lineto
 250                         0 -1700 800 -1700 430 -600 curveto
 251                         -120 1800 lineto
 252                         -300 2400 200 2800 250 2800 curveto
 253                         400 2800 430 2700 430 2450 curveto
 254                         430 1800 -900 1200 -900 300 curveto
 255                         -750 -900 800 -900 850 0 curveto
 256                         900 1100 -750 900 -120 -300 curveto fill
 257
 258                         %circle at the bottom
 259                         -300 -1250 250 0 360 arc fill
 260                 } def
 261
 262                 % fclef
 263                 /B {
 264                         newpath
 265                         %start with outside boundary, at bottom
 266                         -1000 -1700 moveto
 267                         100 -1100 500 -600 450 0 curveto
 268                         450 850 -1100 850 -950 0 curveto
 269
 270                         %go back to start, drawing the other boundary
 271                         -880 0 lineto
 272                         -920 400 -600 560 -300 560 curveto
 273                         0 560 150 400 150 0 curveto
 274                         150 -400 100 -900 -1000 -1620 curveto fill
 275
 276                         %circle at the left
 277                         newpath
 278                         -700 0 250 0 360 arc fill
 279
 280                         %do the two dots after the main curve
 281                         700 -300 100 0 360 arc fill
 282                         700 300 100 0 360 arc fill
 283                 } def
 284
 285                 % cclef
 286                 /C {
 287                         gsave
 288                         %do upper curved part, then scale to do mirror image
 289                         0 1 1 {
 290                                 pop     %we don't need the loop variable
 291                                 %outer boundary of curve
 292                                 -170 0 moveto 100 300 lineto
 293                                 400 -200 750 300 750 650 curveto
 294                                 750 1100 450 1235 250 1235 curveto
 295                                 0 1235 -143 1100 -143 950 curveto
 296
 297                                 %inner boundary of curve
 298                                 0 950 lineto
 299                                 0 1100 30 1165 250 1165 curveto
 300                                 300 1165 450 1100 450 650 curveto
 301                                 450 400 400 -100 100 400 curveto
 302                                 -270 0 lineto fill
 303                                 %stroke
 304                                 %-270 0 moveto 100 400 lineto
 305                                 %400 -100 450 400 450 650 curveto
 306                                 %450 1100 300 1165 250 1165 curveto
 307                                 %30 1165 0 1100 0 950 curveto
 308                                 %stroke
 309
 310                                 %elliptical ball at end of curve
 311                                 gsave
 312                                 1.3 1 scale
 313                                 10 950 120 0 360 arc fill
 314                                 grestore
 315                                 1 -1 scale      %reflect across X axis
 316                         } for
 317                         grestore
 318
 319                         % two vertical lines on the left
 320                         300 setlinewidth -600 -1200 halflwid sub moveto
 321                         -600 1200 halflwid add lineto stroke
 322                         lwid setlinewidth -300 -1200 halflwid sub moveto
 323                         -300 1200 halflwid add lineto stroke
 324                 } def
 325
 326                 % dblwhole
 327                 /D {
 328                         do_1n           %do a whole note
 329                         lwid setlinewidth
 330                         -490 -600 moveto -490 600 lineto stroke
 331                         490 -600 moveto 490 600 lineto stroke
 332                 } def
 333
 334                 % 1n
 335                 /E {
 336                         do_1n           %do a whole note
 337                 } def
 338
 339                 % 2n
 340                 /F {
 341                         do_2n           %do a half note
 342                 } def
 343
 344                 % 4n
 345                 /G {
 346                         do_4n           %do a quarter note head
 347                 } def
 348
 349                 % upflag
 350                 /H {
 351                         do_upflag               %do an upflag
 352                 } def
 353
 354                 % dnflag
 355                 /I {
 356                         gsave
 357                         1 -1 scale      %reflect across X axis
 358                         do_upflag               %do an upflag
 359                         grestore
 360                 } def
 361
 362                 % dwhrest
 363                 /J {
 364                         300 setlinewidth
 365                         0 0 moveto 0 600 lineto stroke
 366                 } def
 367
 368                 % 1rest
 369                 /K {
 370                         lwid setlinewidth
 371                         -750 600 moveto 750 600 lineto stroke
 372                         300 setlinewidth
 373                         -400 450 moveto 400 450 lineto stroke
 374                 } def
 375
 376                 % 2rest
 377                 /L {
 378                         lwid setlinewidth
 379                         -750 0 moveto 750 0 lineto stroke
 380                         300 setlinewidth
 381                         -400 150 moveto 400 150 lineto stroke
 382                 } def
 383
 384                 % 4rest
 385                 /M {
 386                         newpath
 387                         cor3x cor3y halflwid add moveto
 388                         %-400 -200 -450 -650 50 -950 lwid add curveto
 389                         -450 -50 -450 -650 50 -950 lwid add curveto
 390                         -150 -650 -100 -250 cor3x cor3y halflwid sub curveto
 391                         fill
 392
 393                         cor1x cor1y moveto cor1x 200 sub cor1y 200 add lineto
 394                         cor2x cor2y lineto cor2x 200 add cor2y 200 sub lineto
 395                         fill
 396
 397                         lwid setlinewidth
 398                         topx topy moveto cor1x cor1y lineto stroke
 399                         cor2x cor2y moveto cor3x cor3y lineto stroke
 400                 } def
 401
 402                 % 8rest
 403                 /N {
 404                         0 0 0 -600 do_shortrest
 405                 } def
 406
 407                 % 16rest
 408                 /O {
 409                         1 1 100 -1200 do_shortrest
 410                 } def
 411
 412                 % 32rest
 413                 /P {
 414                         2 1 0 -1800 do_shortrest
 415                 } def
 416
 417                 % 64rest
 418                 /Q {
 419                         3 2 -80 -2100 do_shortrest
 420                 } def
 421
 422                 % 128rest
 423                 /R {
 424                         4 2 -150 -2700 do_shortrest
 425                 } def
 426
 427                 % 256rest
 428                 /S {
 429                         5 3 -280 -3300 do_shortrest
 430                 } def
 431
 432                 % dot
 433                 /T {
 434                         newpath
 435                         0 0 120 0 360 arc fill
 436                 } def
 437
 438                 % nat
 439                 /U {
 440                         % fill crossbars so that we can do parallelograms
 441                         -235 -470 moveto -235 -270 lineto
 442                         235 -130 lineto 235 -330 lineto fill
 443                         -235 130 moveto -235 330 lineto
 444                         235 470 lineto 235 270 lineto fill
 445
 446                         % vertical strokes
 447                         lwid setlinewidth
 448                         -200 -380 moveto -200 850 lineto stroke
 449                         200 -850 moveto 200 380 lineto stroke
 450                 } def
 451
 452                 % sharp
 453                 /V {
 454                         % fill crossbars so that we can do parallelograms
 455                         -325 -480 moveto -325 -280 lineto
 456                         325 -120 lineto 325 -320 lineto fill
 457                         -325 120 moveto -325 320 lineto
 458                         325 480 lineto 325 280 lineto fill
 459
 460                         % vertical strokes
 461                         lwid setlinewidth
 462                         -150 -930 moveto -150 880 lineto stroke
 463                         150 -880 moveto 150 930 lineto stroke
 464                 } def
 465
 466                 % flat
 467                 /W {
 468                         do_flat         %do a flat
 469                 } def
 470
 471                 % dblsharp
 472                 /X {
 473                         gsave
 474                         0 1 3 {         %loop once for each of 4 sticks
 475                                 pop     %we don't need the loop variable
 476                                 0 off neg moveto
 477                                 outbendbig outbendsmall lineto
 478                                 inbendbig inbendsmall lineto
 479                                 limit limit lineto
 480                                 inbendsmall inbendbig lineto
 481                                 outbendsmall outbendbig lineto
 482                                 off neg 0 lineto
 483                                 fill
 484                                 -90 rotate
 485                         } for
 486                         grestore
 487                 } def
 488
 489                 % dblflat
 490                 /Y {
 491                         -290 580 290 {  %loop once for each flat
 492
 493                                 gsave
 494                                 1 setlinewidth
 495                                 0 translate     %translate left/right (loop var)
 496                                 do_flat         %do a flat
 497                                 grestore
 498
 499                         } for
 500                 } def
 501
 502                 % xnote
 503                 /Z {
 504                         gsave
 505                         1.15 1 scale 120 setlinewidth 1 setlinecap      %round
 506                         -300 -300 moveto 300 300 lineto stroke
 507                         -300 300 moveto 300 -300 lineto stroke
 508                         grestore
 509                 } def
 510
 511                 % dwhdiamond
 512                 /a {
 513                         do_diamond      %do a diamond
 514                         lwid setlinewidth
 515                         -420 -600 moveto -420 600 lineto stroke
 516                         420 -600 moveto 420 600 lineto stroke
 517                 } def
 518
 519                 % diamond
 520                 /b {
 521                         do_diamond      %do a diamond
 522                 } def
 523
 524                 % filldiamond
 525                 /c {
 526                         420 0 moveto 0 300 lineto
 527                         -420 0 lineto 0 -300 lineto fill
 528                 } def
 529
 530                 % up2n
 531                 /d {
 532                         lwid setlinewidth
 533                         380 0 moveto 380 2100 lineto stroke
 534                         do_2n           %do a half note
 535                 } def
 536
 537                 % dn2n
 538                 /e {
 539                         lwid setlinewidth
 540                         -380 0 moveto -380 -2100 lineto stroke
 541                         do_2n           %do a half note
 542                 } def
 543
 544                 % up4n
 545                 /f {
 546                         do_4n           %do a quarter note head
 547                         lwid setlinewidth
 548                         370 0 moveto 370 2100 lineto stroke
 549                 } def
 550
 551                 % dn4n
 552                 /g {
 553                         do_4n           %do a quarter note head
 554                         lwid setlinewidth
 555                         -370 0 moveto -370 -2100 lineto stroke
 556                 } def
 557
 558                 % up8n
 559                 /h {
 560                         gsave
 561                         -330 0 translate        % half a flag width
 562                         do_4n           %do a quarter note head
 563                         lwid setlinewidth
 564                         370 0 moveto 370 2100 lineto stroke
 565                         670 2100 translate
 566                         1 -1 scale      %reflect across X axis
 567                         do_upflag               %do an upflag
 568                         grestore
 569                 } def
 570
 571                 % dn8n
 572                 /i {
 573                         do_4n           %do a quarter note head
 574                         lwid setlinewidth
 575                         -370 0 moveto -370 -2100 lineto stroke
 576                         gsave
 577                         -70 -2100 translate
 578                         do_upflag               %do an upflag
 579                         grestore
 580                 } def
 581
 582                 % up16n
 583                 /j {
 584                         2 do_upshortnote
 585                 } def
 586
 587                 % dn16n
 588                 /k {
 589                         2 do_dnshortnote
 590                 } def
 591
 592                 % up32n
 593                 /l {
 594                         3 do_upshortnote
 595                 } def
 596
 597                 % dn32n
 598                 /m {
 599                         3 do_dnshortnote
 600                 } def
 601
 602                 % up64n
 603                 /n {
 604                         4 do_upshortnote
 605                 } def
 606
 607                 % dn64n
 608                 /o {
 609                         4 do_dnshortnote
 610                 } def
 611
 612                 % up128n
 613                 /p {
 614                         5 do_upshortnote
 615                 } def
 616
 617                 % dn128n
 618                 /q {
 619                         5 do_dnshortnote
 620                 } def
 621
 622                 % up256n
 623                 /r {
 624                         6 do_upshortnote
 625                 } def
 626
 627                 % dn256n
 628                 /s {
 629                         6 do_dnshortnote
 630                 } def
 631
 632                 % com
 633                 /t {
 634                         do_com          %do a common time symbol
 635                 } def
 636
 637                 % cut
 638                 /u {
 639                         do_com          %do a common time symbol
 640                         lwid setlinewidth
 641                         0 -900 moveto 0 900 lineto stroke
 642                 } def
 643
 644                 % begped
 645                 /v {
 646                         lwid setlinewidth
 647                         -200 600 moveto -200 0 lineto 200 0 lineto stroke
 648                 } def
 649
 650                 % pedal
 651                 /w {
 652                         lwid setlinewidth
 653                         -500 0 moveto -450 0 lineto 0 600 lineto
 654                         450 0 lineto 500 0 lineto stroke
 655                 } def
 656
 657                 % endped
 658                 /x {
 659                         lwid setlinewidth
 660                         200 600 moveto 200 0 lineto -200 0 lineto stroke
 661                 } def
 662
 663                 % dnbow
 664                 /y {
 665                         lwid setlinewidth
 666                         -350 0 moveto -350 900 lineto stroke
 667                         350 0 moveto 350 900 lineto stroke
 668                         200 setlinewidth
 669                         -350 800 moveto 350 800 lineto stroke
 670                 } def
 671
 672                 % upbow
 673                 /z {
 674                         lwid setlinewidth
 675                         -300 900 moveto 0 0 lineto 300 900 lineto stroke
 676                 } def
 677
 678                 % wedge
 679                 /one {
 680                         0 0 moveto -150 500 lineto 150 500 lineto fill
 681                 } def
 682
 683                 % uwedge
 684                 /two {
 685                         -150 0 moveto 150 0 lineto 0 500 lineto fill
 686                 } def
 687
 688                 % ferm
 689                 /three {
 690                         newpath
 691                         do_ferm         %do a right side up fermata
 692                 } def
 693
 694                 % uferm
 695                 /four {
 696                         newpath
 697                         gsave
 698                         0 270 lwid sub 800 add translate %baseline at bottom
 699                         180 rotate                      %upside down
 700                         do_ferm         %do a right side up fermata
 701                         grestore
 702                 } def
 703
 704                 % sign
 705                 /five {
 706                         gsave
 707                         %do upper left curved part, upper right dot;
 708                         %then rotate 180 to do other half
 709                         0 1 1 {
 710                                 pop     %we don't need the loop variable
 711                                 0 100 moveto            %inner boundary
 712                                 -1000 300 -400 750 -200 700 curveto
 713                                 -200 800 lineto         %outer boundary
 714                                 -550 900 -1100 100 0 -100 curveto
 715                                 fill
 716                                 %dot at end of curve
 717                                 -200 700 100 0 360 arc fill
 718                                 %dot in upper right quadrant
 719                                 500 200 70 0 360 arc fill
 720                                 180 rotate
 721                         } for
 722                         grestore
 723
 724                         %slash through middle
 725                         lwid setlinewidth
 726                         -400 -800 moveto 400 800 lineto stroke
 727                 } def
 728
 729                 % coda
 730                 /six {
 731                         newpath
 732                         gsave
 733                         0.6 1 scale
 734                         0 0 550 0 360 arc       %outside boundary
 735                         1 0.6 div 1 scale       %back to original
 736                         0.9 1 scale
 737                         0 0 650 0 360 arc       %inside boundary
 738                         eofill
 739                         grestore
 740                         lwid setlinewidth
 741                         0 -850 moveto 0 850 lineto stroke
 742                         -800 0 moveto 800 0 lineto stroke
 743                 } def
 744
 745                 % mor
 746                 /seven {
 747                         do_mor          %do a mordent
 748                 } def
 749
 750                 % invmor
 751                 /eight {
 752                         do_mor          %do a mordent
 753                         lwid setlinewidth
 754                         0 -450 moveto 0 450 lineto stroke
 755                 } def
 756
 757                 % turn
 758                 /nine {
 759                         do_turn         %do a turn
 760                 } def
 761
 762                 % invturn
 763                 /zero {
 764                         gsave
 765                         1 -1 scale      %reflect across X axis
 766                         do_turn         %do a turn
 767                         grestore
 768                 } def
 769
 770                 % acc_gt
 771                 /numbersign {
 772                         lwid setlinewidth
 773                         -500 300 moveto 500 0 lineto -500 -300 lineto stroke
 774                 } def
 775
 776                 % acc_hat
 777                 /dollar {
 778                         newpath
 779                         -365 0 moveto 0 860 lineto 365 0 lineto
 780                         150 0 lineto -75 530 lineto -300 0 lineto fill
 781                 } def
 782
 783                 % acc_uhat
 784                 /quotedbl {
 785                         newpath
 786                         365 860 moveto 0 0 lineto -365 860 lineto
 787                         -150 860 lineto 75 330 lineto 300 860 lineto fill
 788                 } def
 789
 790                 % tr
 791                 /asterisk {
 792                         %vertical bar of t
 793                         -350 1000 moveto -550 200 lineto
 794                         -612.5 -50 -212.5 -50 -160 200 curveto
 795                         -230 200 lineto
 796                         -300 50 -420 50 -400 200 curveto
 797                         -200 1000 lineto fill
 798
 799                         %crossbar of t and vertical bar of r
 800                         -700 600 moveto -160 600 lineto
 801                         20 600 30 520 60 440 curveto
 802                         -50 0 lineto 70 0 lineto 180 440 lineto
 803                         190 480 100 670 -150 670 curveto
 804                         -690 670 lineto fill
 805
 806                         %horizontal curve of r
 807                         100 480 moveto
 808                         300 630 450 700 650 550 curveto
 809                         560 480 lineto
 810                         450 630 300 560 100 390 curveto
 811                         fill
 812
 813                         %knob at end of r
 814                         600 460 100 0 360 arc fill
 815                 } def
 816
 817                 % leg
 818                 /comma {
 819                         100 setlinewidth
 820                         -400 0 moveto 400 0 lineto stroke
 821                 } def
 822
 823                 % rr
 824                 /hyphen {
 825                         100 setlinewidth
 826                         -400 0 moveto 0 1000 lineto stroke
 827                         0 0 moveto 400 1000 lineto stroke
 828                 } def
 829
 830                 % measrpt
 831                 /period {
 832                         newpath -450 400 150 0 360 arc fill
 833                         newpath 450 -400 150 0 360 arc fill
 834                         200 setlinewidth
 835                         -550 -600 moveto 550 600 lineto stroke
 836                 } def
 837
 838                 % copyright
 839                 /slash {
 840                         lwid setlinewidth
 841                         newpath 0 400 400 0 360 arc stroke
 842                         newpath 0 400 200 45 315 arc stroke
 843                 } def
 844
 845                 % dim
 846                 /quoteleft {
 847                         50 setlinewidth
 848                         newpath 0 640 220 0 360 arc stroke
 849                 } def
 850
 851                 % halfdim
 852                 /quoteright {
 853                         50 setlinewidth
 854                         newpath 0 640 220 0 360 arc stroke
 855                         newpath -340 300 moveto 340 980 lineto stroke
 856                 } def
 857
 858                 % triangle
 859                 /asciicircum {
 860                         50 setlinewidth
 861                         newpath -340 -10 moveto 0 710 lineto
 862                         340 -10 lineto closepath stroke
 863                 } def
 864
 865                 % qwhrest
 866                 /ampersand {
 867                         300 setlinewidth
 868                         0 -600 moveto 0 600 lineto stroke
 869                 } def
 870
 871                 % ll1rest
 872                 /exclam {
 873                         310 setlinewidth
 874                         -400 455 moveto 400 450 lineto stroke
 875                 } def
 876
 877                 % ll2rest
 878                 /at {
 879                         310 setlinewidth
 880                         -400 145 moveto 400 150 lineto stroke
 881                 } def
 882         end
 883
 884         /BuildChar {
 885
 886                 exch begin
 887                 Encoding exch get
 888
 889                 dup
 890                 Mcbbox0 exch get
 891                 aload pop setcachedevice
 892
 893                 CharStrings exch get
 894                 exec
 895                 end
 896         } def
 897 end
 898
 899
 900 % Define another music character font, since there are too many to fit in one
 901 % font.  It works the same way as the first one.
 902
 903 /mfont1 100 dict def
 904 mfont1 begin
 905         /FontType 3 def
 906         /FontMatrix [ .001 0 0 0.001 0 0 ] def
 907         /FontBBox [ -2000 -4030 2000 4030 ] def
 908         /FontName (Mfont1) def
 909
 910         % set up Encoding vector with standard names
 911         /Encoding 256 array def
 912         StandardEncoding Encoding copy
 913         pop
 914
 915         %%%%% define routines that will be used by multiple characters %%%%%
 916
 917         /do_dwh_bars {
 918                 % the two bars surrounding a double whole note
 919                 lwid setlinewidth
 920                 -420 -600 moveto -420 600 lineto stroke
 921                 420 -600 moveto 420 600 lineto stroke
 922         } def
 923         /do_righttriangle {
 924                 newpath
 925                 420 270 moveto -420 270 lineto 350 -300 lineto 420 -300 lineto
 926                 350 150 moveto -140 150 lineto 350 -213 lineto
 927                 eofill
 928         } def
 929         /do_fillrighttriangle {
 930                 newpath
 931                 420 270 moveto -420 270 lineto 350 -300 lineto 420 -300 lineto
 932                 fill
 933         } def
 934         /do_rectangle {
 935                 newpath
 936                 420 270 moveto -420 270 lineto -420 -270 lineto 420 -270 lineto
 937                 350 150 moveto -350 150 lineto -350 -150 lineto 350 -150 lineto
 938                 eofill
 939         } def
 940         /do_isostriangle {
 941                 newpath
 942                 0 300 moveto -420 -270 lineto 420 -270 lineto
 943                 0 182 moveto -245 -150 lineto 245 -150 lineto
 944                 eofill
 945         } def
 946         /do_piewedge {
 947                 newpath
 948                 0 -300 moveto 0 -244 514 35 145 arc
 949                 0 -209 moveto 0 -244 394 43 137 arc
 950                 eofill
 951         } def
 952         /do_semicircle {
 953                 newpath
 954                 gsave
 955                 1 1.357 scale 420 199 moveto 0 199 420 180 360 arc
 956                 1 1.09 scale 350 111 moveto 0 199 350 194.1 345.9 arc
 957                 eofill
 958                 grestore
 959         } def
 960         /do_slashhead {
 961                 newpath
 962                 lwid setlinewidth
 963                 -620 -530 moveto -480 -670 lineto 620 530 lineto 480 670 lineto
 964                 closepath stroke
 965         } def
 966
 967         % subsidiary dictionary of character definitions
 968         /CharStrings 128 dict def
 969         CharStrings begin
 970
 971                 /.notdef {} def
 972
 973                 % Here are the definitions of the characters.  A stepsize here
 974                 % is 300 units (assuming the character is drawn at its default
 975                 % size).
 976
 977                 % dwhrighttriangle
 978                 /A {
 979                         do_righttriangle
 980                         do_dwh_bars
 981                 } def
 982
 983                 % righttriangle
 984                 /B {
 985                         do_righttriangle
 986                 } def
 987
 988                 % fillrighttriangle
 989                 /C {
 990                         newpath
 991                         420 270 moveto -420 270 lineto 350 -300 lineto
 992                         420 -300 lineto
 993                         fill
 994                 } def
 995
 996                 % udwhrighttriangle
 997                 /D {
 998                         gsave
 999                         180 rotate
1000                         do_righttriangle
1001                         do_dwh_bars
1002                         grestore
1003                 } def
1004
1005                 % urighttriangle
1006                 /E {
1007                         gsave
1008                         180 rotate
1009                         do_righttriangle
1010                         grestore
1011                 } def
1012
1013                 % ufillrighttriangle
1014                 /F {
1015                         gsave
1016                         180 rotate
1017                         do_fillrighttriangle
1018                         grestore
1019                 } def
1020
1021                 % dwhrectangle
1022                 /G {
1023                         do_rectangle
1024                         do_dwh_bars
1025                 } def
1026
1027                 % rectangle
1028                 /H {
1029                         do_rectangle
1030                 } def
1031
1032                 % fillrectangle
1033                 /I {
1034                         newpath
1035                         420 270 moveto -420 270 lineto -420 -270 lineto
1036                         420 -270 lineto
1037                         fill
1038                 } def
1039
1040                 % dwhisostriangle
1041                 /J {
1042                         do_isostriangle
1043                         do_dwh_bars
1044                 } def
1045
1046                 % isostriangle
1047                 /K {
1048                         do_isostriangle
1049                 } def
1050
1051                 % fillisostriangle
1052                 /L {
1053                         newpath
1054                         0 300 moveto -420 -270 lineto 420 -270 lineto
1055                         fill
1056                 } def
1057
1058                 % dwhpiewedge
1059                 /M {
1060                         do_piewedge
1061                         do_dwh_bars
1062                 } def
1063
1064                 % piewedge
1065                 /N {
1066                         do_piewedge
1067                 } def
1068
1069                 % fillpiewedge
1070                 /O {
1071                         newpath
1072                         0 -300 moveto 0 -244 514 35 145 arc
1073                         fill
1074                 } def
1075
1076                 % dwhsemicircle
1077                 /P {
1078                         do_semicircle
1079                         do_dwh_bars
1080                 } def
1081
1082                 % semicircle
1083                 /Q {
1084                         do_semicircle
1085                 } def
1086
1087                 % fillsemicircle
1088                 /R {
1089                         newpath
1090                         gsave
1091                         1 570 420 div scale
1092                         420 199 moveto 0 199 420 180 360 arc
1093                         fill
1094                         grestore
1095                 } def
1096
1097                 % dwhslashhead
1098                 /S {
1099                         do_slashhead
1100                         lwid setlinewidth
1101                         -650 -600 moveto -650 600 lineto stroke
1102                         650 -600 moveto 650 600 lineto stroke
1103                 } def
1104
1105                 % slashhead
1106                 /T {
1107                         do_slashhead
1108                 } def
1109
1110                 % fillslashhead
1111                 /U {
1112                         newpath
1113                         200 setlinewidth
1114                         -550 -600 moveto 550 600 lineto stroke
1115                 } def
1116
1117                 % blankhead
1118                 /V {
1119                         %print nothing
1120                 } def
1121         end
1122
1123         /BuildChar {
1124
1125                 exch begin
1126                 Encoding exch get
1127
1128                 dup
1129                 Mcbbox1 exch get
1130                 aload pop setcachedevice
1131
1132                 CharStrings exch get
1133                 exec
1134                 end
1135         } def
1136 end
1137
1138
1139 % General routines for printing any music character, invoked by each music
1140 % character's specific routine below.  The scaling factor (default 1) needs
1141 % to be multiplied by 10 to get the actual size.  These routines restore the
1142 % preexisting current font when they are done.
1143
1144 /printmchar0 {
1145         gsave
1146         /musicchar exch def
1147         /Mfont0 findfont exch 10 mul scalefont setfont moveto
1148         musicchar show
1149         grestore
1150 } def
1151 /printmchar1 {
1152         gsave
1153         /musicchar exch def
1154         /Mfont1 findfont exch 10 mul scalefont setfont moveto
1155         musicchar show
1156         grestore
1157 } def
1158
1159 % Define each music character name to be a routine that prints the character.
1160 % Each character is to be invoked as in this example:
1161 %       100 200 1 gclef         % at (100, 200), scale to default size & print
1162
1163 /gclef                  { (A) printmchar0 } def
1164 /fclef                  { (B) printmchar0 } def
1165 /cclef                  { (C) printmchar0 } def
1166 /dblwhole               { (D) printmchar0 } def
1167 /1n                     { (E) printmchar0 } def
1168 /2n                     { (F) printmchar0 } def
1169 /4n                     { (G) printmchar0 } def
1170 /upflag                 { (H) printmchar0 } def
1171 /dnflag                 { (I) printmchar0 } def
1172 /dwhrest                { (J) printmchar0 } def
1173 /1rest                  { (K) printmchar0 } def
1174 /2rest                  { (L) printmchar0 } def
1175 /4rest                  { (M) printmchar0 } def
1176 /8rest                  { (N) printmchar0 } def
1177 /16rest                 { (O) printmchar0 } def
1178 /32rest                 { (P) printmchar0 } def
1179 /64rest                 { (Q) printmchar0 } def
1180 /128rest                { (R) printmchar0 } def
1181 /256rest                { (S) printmchar0 } def
1182 /dot                    { (T) printmchar0 } def
1183 /nat                    { (U) printmchar0 } def
1184 /sharp                  { (V) printmchar0 } def
1185 /flat                   { (W) printmchar0 } def
1186 /dblsharp               { (X) printmchar0 } def
1187 /dblflat                { (Y) printmchar0 } def
1188 /xnote                  { (Z) printmchar0 } def
1189 /dwhdiamond             { (a) printmchar0 } def
1190 /diamond                { (b) printmchar0 } def
1191 /filldiamond            { (c) printmchar0 } def
1192 /up2n                   { (d) printmchar0 } def
1193 /dn2n                   { (e) printmchar0 } def
1194 /up4n                   { (f) printmchar0 } def
1195 /dn4n                   { (g) printmchar0 } def
1196 /up8n                   { (h) printmchar0 } def
1197 /dn8n                   { (i) printmchar0 } def
1198 /up16n                  { (j) printmchar0 } def
1199 /dn16n                  { (k) printmchar0 } def
1200 /up32n                  { (l) printmchar0 } def
1201 /dn32n                  { (m) printmchar0 } def
1202 /up64n                  { (n) printmchar0 } def
1203 /dn64n                  { (o) printmchar0 } def
1204 /up128n                 { (p) printmchar0 } def
1205 /dn128n                 { (q) printmchar0 } def
1206 /up256n                 { (r) printmchar0 } def
1207 /dn256n                 { (s) printmchar0 } def
1208 /com                    { (t) printmchar0 } def
1209 /cut                    { (u) printmchar0 } def
1210 /begped                 { (v) printmchar0 } def
1211 /pedal                  { (w) printmchar0 } def
1212 /endped                 { (x) printmchar0 } def
1213 /dnbow                  { (y) printmchar0 } def
1214 /upbow                  { (z) printmchar0 } def
1215 /wedge                  { (1) printmchar0 } def
1216 /uwedge                 { (2) printmchar0 } def
1217 /ferm                   { (3) printmchar0 } def
1218 /uferm                  { (4) printmchar0 } def
1219 /sign                   { (5) printmchar0 } def
1220 /coda                   { (6) printmchar0 } def
1221 /mor                    { (7) printmchar0 } def
1222 /invmor                 { (8) printmchar0 } def
1223 /turn                   { (9) printmchar0 } def
1224 /invturn                { (0) printmchar0 } def
1225 /acc_gt                 { (#) printmchar0 } def
1226 /acc_hat                { ($) printmchar0 } def
1227 /acc_uhat               { (") printmchar0 } def
1228 /tr                     { (*) printmchar0 } def
1229 /leg                    { (,) printmchar0 } def
1230 /rr                     { (-) printmchar0 } def
1231 /measrpt                { (.) printmchar0 } def
1232 /copyright              { (/) printmchar0 } def
1233 /dim                    { (`) printmchar0 } def
1234 /halfdim                { (') printmchar0 } def
1235 /triangle               { (^) printmchar0 } def
1236 /qwhrest                { (&) printmchar0 } def
1237 /ll1rest                { (!) printmchar0 } def
1238 /ll2rest                { (@) printmchar0 } def
1239 /dwhrighttriangle       { (A) printmchar1 } def
1240 /righttriangle          { (B) printmchar1 } def
1241 /fillrighttriangle      { (C) printmchar1 } def
1242 /udwhrighttriangle      { (D) printmchar1 } def
1243 /urighttriangle         { (E) printmchar1 } def
1244 /ufillrighttriangle     { (F) printmchar1 } def
1245 /dwhrectangle           { (G) printmchar1 } def
1246 /rectangle              { (H) printmchar1 } def
1247 /fillrectangle          { (I) printmchar1 } def
1248 /dwhisostriangle        { (J) printmchar1 } def
1249 /isostriangle           { (K) printmchar1 } def
1250 /fillisostriangle       { (L) printmchar1 } def
1251 /dwhpiewedge            { (M) printmchar1 } def
1252 /piewedge               { (N) printmchar1 } def
1253 /fillpiewedge           { (O) printmchar1 } def
1254 /dwhsemicircle          { (P) printmchar1 } def
1255 /semicircle             { (Q) printmchar1 } def
1256 /fillsemicircle         { (R) printmchar1 } def
1257 /dwhslashhead           { (S) printmchar1 } def
1258 /slashhead              { (T) printmchar1 } def
1259 /fillslashhead          { (U) printmchar1 } def
1260 /blankhead              { (V) printmchar1 } def
1261
1262
1263 % Define routines for Mup output other than music characters.
1264
1265 /stepsize 3 def    % define a step size as 3 points (at default magnification)
1266
1267 % x1 y1 x2 lines dist staffscale staff
1268 %               draw a staff starting at x1, y1 and extending to x2 with "lines"
1269 %               lines, 2*dist*stepsize apart, scaled by staffscale
1270 /staff {
1271         /staffscale exch def
1272         /dist exch def
1273         /lines exch def
1274         /x2 exch def
1275         /y1 exch def
1276         /x1 exch def
1277         0.7 staffscale mul sb setlinewidth
1278         1 lines sub  2  lines 1 sub {   % loop from bottom line to top line
1279                 dup stepsize mul staffscale mul dist mul y1 add x1 exch moveto
1280                 stepsize mul staffscale mul dist mul y1 add x2 exch lineto stroke
1281         } for
1282 } def
1283
1284 % x y1 y2 bracket       draw a bracket; y1 is the top
1285 /bracket {
1286         /y2 exch def
1287         /y1 exch def
1288         /x exch def
1289         gsave
1290         3 setlinewidth
1291         x 2 sub y1 1 add moveto
1292         x 2 sub y2 1 sub lineto
1293         stroke
1294         x 2 sub y1 1 add moveto
1295         x 1 sub y1 1 add   x 3 add y1 1 add   x 5 add y1 6 add   curveto
1296         x 6 add y1 5 add lineto
1297         x 5 add y1 2 add   x 1 add y1 2 sub   x 2 sub y1 2 sub   curveto
1298         fill
1299         x 2 sub y2 1 sub moveto
1300         x 1 sub y2 1 sub   x 3 add y2 1 sub   x 5 add y2 6 sub   curveto
1301         x 6 add y2 5 sub lineto
1302         x 5 add y2 2 sub   x 1 add y2 2 add   x 2 sub y2 2 add   curveto
1303         fill
1304         grestore
1305 } def
1306
1307 % x y1 y2 brace         draw a brace; y1 is the top
1308 /brace {
1309         /y2 exch def
1310         /y1 exch def
1311         /x exch def
1312         gsave
1313         x 9 sub y1 y2 add 2 div translate
1314         /topy y1 y2 sub 2 div 1 sub def
1315         0 1 1 {
1316                 pop
1317                 %0 topy moveto 0 0 lineto stroke
1318                 0 0 moveto
1319                 16 topy 0.2 mul   -11 topy 0.6 mul   8 topy   curveto
1320                 8.7 topy lineto
1321                 -7 topy 0.7 mul   20 topy 0.3 mul   1 0   curveto
1322                 fill
1323                 1 -1 scale      % flip to do bottom half
1324         } for
1325         grestore
1326 } def
1327
1328 % endx endy wavy staffscale     draw a wavy line from current point to here,
1329 %                               scaled by staffscale
1330 /wavy {
1331         /staffscale exch def
1332         /endy exch def          % define the end point of the line
1333         /endx exch def
1334         currentpoint            % line starts at current point
1335         /begy exch def          % define the beginning point of the line
1336         /begx exch def
1337         gsave
1338         /dx endx begx sub def   % find delta x and delta y
1339         /dy endy begy sub def
1340         /r dx dx mul dy dy mul add sqrt def     % hypotenuse
1341         /theta dy dx atan def                   % angle with positive x axis
1342         begx begy translate     % change axes so that we can draw the line
1343         theta rotate            %   from (0, 0) to (r, 0)
1344         staffscale staffscale scale     % scale everything by staffscale
1345         /scaledr r staffscale div def   % but scale r in reverse to keep length
1346
1347         % Each outer loop draws one cycle of the squiggle.  It continues until
1348         % we are at or beyond the desired end point.
1349         0 0 moveto
1350         0 6 scaledr {
1351                 gsave
1352                 % first loop draws left half of squiggle; second draws right
1353                 0 1 1 {
1354                         0.0 0.4 moveto
1355                         2.0 1.9 3.4 2.3 3.9 0.0 curveto
1356                         2.1 0.0 lineto
1357                         1.9 0.8 1.4 0.7 0.0 -0.4 curveto
1358                         fill
1359                         pop 180 rotate -6 0 translate
1360                 } for
1361                 grestore
1362
1363                 pop 6 0 translate       % shift axes right one squiggle
1364         } for
1365
1366         grestore
1367 } def
1368
1369 % x y space frets fretno numvert curvel curver [ f1 f2 f3 ... ] grid
1370 %                               print a guitar grid diagram
1371 /grid {
1372         /grid_positions exch def % 0="o", -1="x", -2=nothing, positive=dot
1373         /curver exch def        % right string for curve, 0 if none
1374         /curvel exch def        % left string for curve, 0 if none
1375         /numvert exch def       % vertical position to print fretno, 0 if none
1376         /fretno exch def        % fret no. to print at right, 0 if none
1377         /frets exch def         % number of fret lines
1378         /space exch def         % points between two neighboring lines
1379         /y exch def             % y coord of top fret line
1380         /x exch def             % x coord of left strings
1381
1382         gsave
1383         /strings grid_positions length def      % number of strings
1384         /lmarky 0.4 space mul y add def         % lowest Y of a "o" or "x"
1385         space 10 div setlinewidth
1386         2 setlinecap
1387
1388         % draw the lines of the grid
1389         0  1  strings 1 sub {   % loop from left string to right string
1390                 dup space mul x add y moveto
1391                 space mul x add frets 1 sub space mul y exch sub lineto stroke
1392         } for
1393         0  -1  1 frets sub {    % loop from top fret (nut) to bottom fret
1394                 dup space mul y add x exch moveto
1395                 space mul y add strings 1 sub space mul x add exch lineto stroke
1396         } for
1397
1398         % draw the curved line if there is one
1399         curvel 0 gt {
1400                 % within strings curvel to curver, find smallest positive fret
1401                 /minfret 1000 def
1402                 curvel 1 curver {
1403                         /strno exch def
1404                         /grid_p grid_positions strno 1 sub get def
1405                         grid_p 0 gt grid_p minfret lt and {
1406                                 /minfret grid_p def
1407                         } if
1408                 } for
1409
1410                 % if curve goes above top fret, other marks must be higher
1411                 minfret 1 eq {
1412                         /hmarky 1.2 space mul y add def
1413                 } {
1414                         /hmarky lmarky def
1415                 } ifelse
1416
1417                 /strdiff curver curvel sub def
1418                 space 8 div setlinewidth
1419
1420                 % set endpoint coords of curve; higher if curve is short
1421                 /curvex1 curvel 1 sub space mul x add def
1422                 /curvex2 curver 1 sub space mul x add def
1423                 /curvey 1 minfret sub space mul y add def
1424                 strdiff 3 lt {
1425                         /curvey 0.2 strdiff div space mul curvey add def
1426                 } if
1427
1428                 % move to left end, set other points, draw curve
1429                 curvex1 curvey moveto
1430
1431                 curvex1 curvex2 curvex1 sub 3 div add
1432                 curvey space 0.4 strdiff sqrt mul mul add
1433
1434                 curvex2 curvex2 curvex1 sub 3 div sub
1435                 curvey space 0.4 strdiff sqrt mul mul add
1436
1437                 curvex2 curvey curveto stroke
1438         } if
1439
1440         space 10 div setlinewidth
1441
1442         % draw dots and x and o marks
1443         0  1  strings 1 sub {   % loop from left string to right string
1444                 /strno exch def % first string is 0
1445                 /grid_p grid_positions strno get def
1446                 /strx strno space mul x add def
1447
1448                 % set Y of mark higher if curved line covers this string
1449                 strno 1 add curvel ge  strno 1 add curver le  and {
1450                         /marky hmarky def
1451                 } {
1452                         /marky lmarky def
1453                 } ifelse
1454
1455                 grid_p -1 eq {          % draw an X above the string
1456                         /xhwid space 3 div def
1457                         strx xhwid sub marky xhwid sub moveto
1458                         strx xhwid add marky xhwid add lineto stroke
1459                         strx xhwid sub marky xhwid add moveto
1460                         strx xhwid add marky xhwid sub lineto stroke
1461                 } if
1462                 grid_p 0 eq {           % draw a circle above the string
1463                         strx marky space 0.3 mul 0 360 arc stroke
1464                 } if
1465                 grid_p 1 ge {           % draw a dot by the proper fret
1466                         strx y grid_p space mul sub space 3 div add
1467                         space 3 div 0 360 arc fill
1468                 } if
1469         } for
1470
1471         % print "X fr" if requested
1472         fretno 0 gt {
1473                 /Palatino-Roman findfont space 1.9 mul scalefont setfont
1474                 x strings 0.5 sub space mul add
1475                 y space numvert 0.3 add mul sub moveto
1476                 fretno 2 string cvs show ( fr) show
1477         } if
1478         grestore
1479 } def
1480
1481 % x1 y1 x2 y2 whitebox          draw a white rectangle with opposite
1482 %                               corners of (x1,y1) and (x2,y2)
1483 /whitebox {
1484         /y2 exch def
1485         /x2 exch def
1486         /y1 exch def
1487         /x1 exch def
1488         1.0 setgray
1489         newpath
1490         x1 y1 moveto
1491         x1 y2 lineto
1492         x2 y2 lineto
1493         x2 y1 lineto
1494         closepath
1495         fill
1496         stroke
1497         0.0 setgray
1498 } def
1499
1500
1501 /LineNum 0 def
1502 /InputFile (unknown) def
1503
1504 % n linenum
1505 /linenum {
1506         /LineNum exch def
1507 } def
1508
1509 % (inputfilename) inputfile
1510 /inputfile {
1511         /InputFile exch def
1512 } def
1513
1514 % find size of Encoding and make a dictionary
1515 % that size for bounding box information
1516 mfont0 begin
1517 /dictsize Encoding length def
1518 mfont0 /Mcbbox0 dictsize dict put
1519
1520 % temporarily redefine printmchar0 to get code
1521 5 dict begin
1522 /printmchar0 { {} forall } def
1523
1524 Mcbbox0 Encoding 128rest get [ 1140.0 0 -515.0 -1515.0 615.0 1685.0 ] put
1525 Mcbbox0 Encoding 16rest get [ 830.0 0 -415.0 -1215.0 405.0 485.0 ] put
1526 Mcbbox0 Encoding 1n get [ 1080.0 0 -535.0 -335.0 535.0 345.0 ] put
1527 Mcbbox0 Encoding 1rest get [ 1540.0 0 -765.0 -5.0 765.0 645.0 ] put
1528 Mcbbox0 Encoding 256rest get [ 1250.0 0 -625.0 -2115.0 615.0 1685.0 ] put
1529 Mcbbox0 Encoding 2n get [ 880.0 0 -435.0 -345.0 435.0 355.0 ] put
1530 Mcbbox0 Encoding 2rest get [ 1540.0 0 -765.0 -45.0 765.0 315.0 ] put
1531 Mcbbox0 Encoding 32rest get [ 940.0 0 -415.0 -1215.0 515.0 1085.0 ] put
1532 Mcbbox0 Encoding 4n get [ 840.0 0 -415.0 -335.0 415.0 345.0 ] put
1533 Mcbbox0 Encoding 4rest get [ 650.0 0 -345.0 -885.0 295.0 985.0 ] put
1534 Mcbbox0 Encoding 64rest get [ 1040.0 0 -515.0 -1515.0 515.0 1085.0 ] put
1535 Mcbbox0 Encoding 8rest get [ 750.0 0 -305.0 -615.0 435.0 485.0 ] put
1536 Mcbbox0 Encoding acc_gt get [ 1170.0 0 -525.0 -335.0 635.0 345.0 ] put
1537 Mcbbox0 Encoding acc_hat get [ 780.0 0 -385.0 -5.0 385.0 875.0 ] put
1538 Mcbbox0 Encoding acc_uhat get [ 780.0 0 -385.0 -5.0 385.0 875.0 ] put
1539 Mcbbox0 Encoding begped get [ 470.0 0 -245.0 -45.0 215.0 615.0 ] put
1540 Mcbbox0 Encoding cclef get [ 1540.0 0 -765.0 -1245.0 765.0 1255.0 ] put
1541 Mcbbox0 Encoding coda get [ 1640.0 0 -815.0 -855.0 815.0 865.0 ] put
1542 Mcbbox0 Encoding com get [ 1100.0 0 -575.0 -635.0 515.0 655.0 ] put
1543 Mcbbox0 Encoding copyright get [ 920.0 0 -455.0 -45.0 455.0 855.0 ] put
1544 Mcbbox0 Encoding cut get [ 1100.0 0 -575.0 -905.0 515.0 915.0 ] put
1545 Mcbbox0 Encoding dblflat get [ 1170.0 0 -595.0 -405.0 565.0 1115.0 ] put
1546 Mcbbox0 Encoding dblsharp get [ 720.0 0 -355.0 -345.0 355.0 355.0 ] put
1547 Mcbbox0 Encoding dblwhole get [ 1090.0 0 -535.0 -605.0 545.0 615.0 ] put
1548 Mcbbox0 Encoding diamond get [ 880.0 0 -435.0 -305.0 435.0 315.0 ] put
1549 Mcbbox0 Encoding dim get [ 540.0 0 -265.0 -5.0 265.0 905.0 ] put
1550 Mcbbox0 Encoding dn128n get [ 840.0 0 -415.0 -3545.0 415.0 345.0 ] put
1551 Mcbbox0 Encoding dn16n get [ 840.0 0 -415.0 -2105.0 415.0 345.0 ] put
1552 Mcbbox0 Encoding dn256n get [ 840.0 0 -415.0 -3965.0 415.0 345.0 ] put
1553 Mcbbox0 Encoding dn2n get [ 880.0 0 -435.0 -2105.0 435.0 355.0 ] put
1554 Mcbbox0 Encoding dn32n get [ 840.0 0 -415.0 -2585.0 415.0 345.0 ] put
1555 Mcbbox0 Encoding dn4n get [ 840.0 0 -415.0 -2105.0 415.0 345.0 ] put
1556 Mcbbox0 Encoding dn64n get [ 840.0 0 -415.0 -3065.0 415.0 345.0 ] put
1557 Mcbbox0 Encoding dn8n get [ 840.0 0 -415.0 -2105.0 415.0 345.0 ] put
1558 Mcbbox0 Encoding dnbow get [ 810.0 0 -395.0 -5.0 405.0 915.0 ] put
1559 Mcbbox0 Encoding dnflag get [ 640.0 0 -335.0 -1705.0 295.0 15.0 ] put
1560 Mcbbox0 Encoding dot get [ 280.0 0 -135.0 -125.0 135.0 135.0 ] put
1561 Mcbbox0 Encoding dwhdiamond get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put
1562 Mcbbox0 Encoding dwhrest get [ 340.0 0 -165.0 -5.0 165.0 615.0 ] put
1563 Mcbbox0 Encoding endped get [ 480.0 0 -215.0 -45.0 255.0 615.0 ] put
1564 Mcbbox0 Encoding fclef get [ 1840.0 0 -1015.0 -1705.0 815.0 655.0 ] put
1565 Mcbbox0 Encoding ferm get [ 1640.0 0 -815.0 -5.0 815.0 1015.0 ] put
1566 Mcbbox0 Encoding filldiamond get [ 880.0 0 -435.0 -305.0 435.0 315.0 ] put
1567 Mcbbox0 Encoding flat get [ 580.0 0 -295.0 -405.0 275.0 1115.0 ] put
1568 Mcbbox0 Encoding gclef get [ 1790.0 0 -915.0 -1605.0 865.0 3015.0 ] put
1569 Mcbbox0 Encoding halfdim get [ 760.0 0 -375.0 -5.0 375.0 1015.0 ] put
1570 Mcbbox0 Encoding invmor get [ 1320.0 0 -655.0 -455.0 655.0 465.0 ] put
1571 Mcbbox0 Encoding invturn get [ 1300.0 0 -645.0 -335.0 645.0 345.0 ] put
1572 Mcbbox0 Encoding leg get [ 840.0 0 -415.0 -55.0 415.0 65.0 ] put
1573 Mcbbox0 Encoding ll1rest get [ 840.0 0 -415.0 -5.0 415.0 625.0 ] put
1574 Mcbbox0 Encoding ll2rest get [ 840.0 0 -415.0 -15.0 415.0 315.0 ] put
1575 Mcbbox0 Encoding measrpt get [ 1300.0 0 -645.0 -675.0 645.0 685.0 ] put
1576 Mcbbox0 Encoding mor get [ 1320.0 0 -655.0 -285.0 655.0 295.0 ] put
1577 Mcbbox0 Encoding nat get [ 520.0 0 -255.0 -855.0 255.0 865.0 ] put
1578 Mcbbox0 Encoding pedal get [ 1040.0 0 -515.0 -45.0 515.0 675.0 ] put
1579 Mcbbox0 Encoding qwhrest get [ 340.0 0 -165.0 -605.0 165.0 615.0 ] put
1580 Mcbbox0 Encoding rr get [ 940.0 0 -465.0 -25.0 465.0 1035.0 ] put
1581 Mcbbox0 Encoding sharp get [ 700.0 0 -345.0 -935.0 345.0 945.0 ] put
1582 Mcbbox0 Encoding sign get [ 1340.0 0 -665.0 -825.0 665.0 835.0 ] put
1583 Mcbbox0 Encoding tr get [ 1440.0 0 -715.0 -5.0 715.0 1015.0 ] put
1584 Mcbbox0 Encoding triangle get [ 800.0 0 -395.0 -45.0 395.0 785.0 ] put
1585 Mcbbox0 Encoding turn get [ 1300.0 0 -645.0 -325.0 645.0 345.0 ] put
1586 Mcbbox0 Encoding uferm get [ 1640.0 0 -815.0 -5.0 815.0 1015.0 ] put
1587 Mcbbox0 Encoding up128n get [ 1390.0 0 -745.0 -335.0 635.0 3555.0 ] put
1588 Mcbbox0 Encoding up16n get [ 1390.0 0 -745.0 -335.0 635.0 2115.0 ] put
1589 Mcbbox0 Encoding up256n get [ 1390.0 0 -745.0 -335.0 635.0 3975.0 ] put
1590 Mcbbox0 Encoding up2n get [ 880.0 0 -435.0 -345.0 435.0 2115.0 ] put
1591 Mcbbox0 Encoding up32n get [ 1390.0 0 -745.0 -335.0 635.0 2595.0 ] put
1592 Mcbbox0 Encoding up4n get [ 850.0 0 -415.0 -335.0 425.0 2115.0 ] put
1593 Mcbbox0 Encoding up64n get [ 1390.0 0 -745.0 -335.0 635.0 3075.0 ] put
1594 Mcbbox0 Encoding up8n get [ 1390.0 0 -745.0 -335.0 635.0 2115.0 ] put
1595 Mcbbox0 Encoding upbow get [ 720.0 0 -355.0 -115.0 355.0 925.0 ] put
1596 Mcbbox0 Encoding upflag get [ 640.0 0 -335.0 -5.0 295.0 1715.0 ] put
1597 Mcbbox0 Encoding uwedge get [ 340.0 0 -165.0 -5.0 165.0 505.0 ] put
1598 Mcbbox0 Encoding wedge get [ 340.0 0 -165.0 5.0 165.0 515.0 ] put
1599 Mcbbox0 Encoding xnote get [ 880.0 0 -435.0 -365.0 435.0 375.0 ] put
1600
1601 end
1602 end
1603
1604 /Mfont0 mfont0 definefont
1605
1606
1607 % find size of Encoding and make a dictionary
1608 % that size for bounding box information
1609 mfont1 begin
1610 /dictsize Encoding length def
1611 mfont1 /Mcbbox1 dictsize dict put
1612
1613 % temporarily redefine printmchar1 to get code
1614 5 dict begin
1615 /printmchar1 { {} forall } def
1616
1617 Mcbbox1 Encoding blankhead get [ 880.0 0 -435.0 -275.0 435.0 285.0 ] put
1618 Mcbbox1 Encoding dwhisostriangle get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put
1619 Mcbbox1 Encoding dwhpiewedge get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put
1620 Mcbbox1 Encoding dwhrectangle get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put
1621 Mcbbox1 Encoding dwhrighttriangle get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put
1622 Mcbbox1 Encoding dwhsemicircle get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put
1623 Mcbbox1 Encoding dwhslashhead get [ 1410.0 0 -695.0 -725.0 705.0 735.0 ] put
1624 Mcbbox1 Encoding fillisostriangle get [ 880.0 0 -435.0 -275.0 435.0 315.0 ] put
1625 Mcbbox1 Encoding fillpiewedge get [ 880.0 0 -435.0 -305.0 435.0 285.0 ] put
1626 Mcbbox1 Encoding fillrectangle get [ 880.0 0 -435.0 -275.0 435.0 285.0 ] put
1627 Mcbbox1 Encoding fillrighttriangle get [ 880.0 0 -435.0 -305.0 435.0 285.0 ] put
1628 Mcbbox1 Encoding fillsemicircle get [ 880.0 0 -435.0 -305.0 435.0 285.0 ] put
1629 Mcbbox1 Encoding fillslashhead get [ 1300.0 0 -645.0 -675.0 645.0 685.0 ] put
1630 Mcbbox1 Encoding isostriangle get [ 880.0 0 -435.0 -275.0 435.0 315.0 ] put
1631 Mcbbox1 Encoding piewedge get [ 880.0 0 -435.0 -305.0 435.0 285.0 ] put
1632 Mcbbox1 Encoding rectangle get [ 880.0 0 -435.0 -275.0 435.0 285.0 ] put
1633 Mcbbox1 Encoding righttriangle get [ 880.0 0 -435.0 -305.0 435.0 285.0 ] put
1634 Mcbbox1 Encoding semicircle get [ 880.0 0 -435.0 -305.0 435.0 285.0 ] put
1635 Mcbbox1 Encoding slashhead get [ 1380.0 0 -685.0 -725.0 685.0 735.0 ] put
1636 Mcbbox1 Encoding udwhrighttriangle get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put
1637 Mcbbox1 Encoding ufillrighttriangle get [ 880.0 0 -435.0 -275.0 435.0 315.0 ] put
1638 Mcbbox1 Encoding urighttriangle get [ 880.0 0 -435.0 -275.0 435.0 315.0 ] put
1639
1640 end
1641 end
1642
1643 /Mfont1 mfont1 definefont
1644
1645 /makeExtEncoding {
1646         /extendedencoding 256 array def
1647         StandardEncoding extendedencoding copy
1648         extendedencoding 32 /exclamdown put
1649         extendedencoding 33 /cent put
1650         extendedencoding 34 /sterling put
1651         extendedencoding 35 /yen put
1652         extendedencoding 36 /quotedblleft put
1653         extendedencoding 37 /guillemotleft put
1654         extendedencoding 38 /guillemotright put
1655         extendedencoding 39 /guilsinglleft put
1656         extendedencoding 40 /guilsinglright put
1657         extendedencoding 41 /dagger put
1658         extendedencoding 42 /daggerdbl put
1659         extendedencoding 43 /bullet put
1660         extendedencoding 44 /quotedblbase put
1661         extendedencoding 45 /quotedblright put
1662         extendedencoding 46 /questiondown put
1663         extendedencoding 47 /grave put
1664         extendedencoding 48 /acute put
1665         extendedencoding 49 /macron put
1666         extendedencoding 50 /breve put
1667         extendedencoding 51 /dotaccent put
1668         extendedencoding 52 /dieresis put
1669         extendedencoding 53 /ring put
1670         extendedencoding 54 /cedilla put
1671         extendedencoding 55 /hungarumlaut put
1672         extendedencoding 56 /ogonek put
1673         extendedencoding 57 /caron put
1674         extendedencoding 58 /emdash put
1675         extendedencoding 59 /AE put
1676         extendedencoding 60 /ae put
1677         extendedencoding 61 /ordfeminine put
1678         extendedencoding 62 /ordmasculine put
1679         extendedencoding 63 /Lslash put
1680         extendedencoding 64 /lslash put
1681         extendedencoding 65 /Oslash put
1682         extendedencoding 66 /oslash put
1683         extendedencoding 67 /OE put
1684         extendedencoding 68 /oe put
1685         extendedencoding 69 /dotlessi put
1686         extendedencoding 70 /germandbls put
1687         extendedencoding 71 /Aacute put
1688         extendedencoding 72 /aacute put
1689         extendedencoding 73 /Acircumflex put
1690         extendedencoding 74 /acircumflex put
1691         extendedencoding 75 /Adieresis put
1692         extendedencoding 76 /adieresis put
1693         extendedencoding 77 /Agrave put
1694         extendedencoding 78 /agrave put
1695         extendedencoding 79 /Aring put
1696         extendedencoding 80 /aring put
1697         extendedencoding 81 /Atilde put
1698         extendedencoding 82 /atilde put
1699         extendedencoding 83 /Ccedilla put
1700         extendedencoding 84 /ccedilla put
1701         extendedencoding 85 /Eacute put
1702         extendedencoding 86 /eacute put
1703         extendedencoding 87 /Ecircumflex put
1704         extendedencoding 88 /ecircumflex put
1705         extendedencoding 89 /Edieresis put
1706         extendedencoding 90 /edieresis put
1707         extendedencoding 91 /Egrave put
1708         extendedencoding 92 /egrave put
1709         extendedencoding 93 /Iacute put
1710         extendedencoding 94 /iacute put
1711         extendedencoding 95 /Icircumflex put
1712         extendedencoding 96 /icircumflex put
1713         extendedencoding 97 /Idieresis put
1714         extendedencoding 98 /idieresis put
1715         extendedencoding 99 /Igrave put
1716         extendedencoding 100 /igrave put
1717         extendedencoding 101 /Ntilde put
1718         extendedencoding 102 /ntilde put
1719         extendedencoding 103 /Oacute put
1720         extendedencoding 104 /oacute put
1721         extendedencoding 105 /Ocircumflex put
1722         extendedencoding 106 /ocircumflex put
1723         extendedencoding 107 /Odieresis put
1724         extendedencoding 108 /odieresis put
1725         extendedencoding 109 /Ograve put
1726         extendedencoding 110 /ograve put
1727         extendedencoding 111 /Otilde put
1728         extendedencoding 112 /otilde put
1729         extendedencoding 113 /Scaron put
1730         extendedencoding 114 /scaron put
1731         extendedencoding 115 /Uacute put
1732         extendedencoding 116 /uacute put
1733         extendedencoding 117 /Ucircumflex put
1734         extendedencoding 118 /ucircumflex put
1735         extendedencoding 119 /Udieresis put
1736         extendedencoding 120 /udieresis put
1737         extendedencoding 121 /Ugrave put
1738         extendedencoding 122 /ugrave put
1739         extendedencoding 123 /Ydieresis put
1740         extendedencoding 124 /ydieresis put
1741         extendedencoding 125 /Zcaron put
1742         extendedencoding 126 /zcaron put
1743         extendedencoding 127 /space put
1744 } def
1745
1746 /makeExtendedFont {
1747         findfont
1748         dup length dict /newdict exch def
1749         { 1 index /FID ne
1750                 { newdict 3 1 roll put }
1751                 { pop pop }
1752                 ifelse
1753         } forall
1754         newdict /Encoding extendedencoding put
1755         newdict /UniqueID newdict /UniqueID get 1 add put
1756         newdict definefont pop
1757 } def
1758 /flagsep 1.60 300 mul def        % 1.60 stepsizes
1759 /scv 147460 def /sf 962 string def
1760 /fa {/p 0 def /chr exch -3 bitshift 127 and def {sf exch p add dup /p exch def chr put} forall} def
1761 [ 74 62 70 54 29 55 36 37 19 26 45 40 41 50 45 52 19 73 11 68 ] 1567304784 fa
1762 [ 961 ] 1341740116 fa
1763 [ 12 4 5 4 4 2 4 3 3 7 7 3 5 5 4 5 4 2 5 3 ] 1969419526 fa
1764 [ 96 4 4 3 2 4 11 2 6 23 13 16 8 3 28 13 8 3 6 11 ] 387152134 fa
1765 [ 268 4 13 12 5 4 4 5 4 5 3 2 4 3 4 8 3 3 9 2 ] 305899779 fa
1766 [ 369 3 4 9 3 3 9 2 4 3 4 7 4 4 4 9 5 3 5 4 ] 477458695 fa
1767 [ 498 4 36 4 37 4 42 4 4 37 4 4 35 4 4 5 13 3 4 4 ] 1130513667 fa
1768 [ 759 3 5 33 4 5 9 29 5 4 3 5 4 4 5 4 4 5 4 3 ] 1205319942 fa
1769 [ 902 8 4 2 3 4 3 4 4 3 2 3 9 ] 1708988675 fa
1770 [ 468 6 4 10 3 30 5 3 24 40 4 3 3 3 3 8 23 1 1 1 ] 123455756 fa
1771 [ 664 23 4 2 13 66 4 5 9 ] 2061720845 fa
1772 [ 795 ] 1622189328 fa
1773 [ 463 45 40 41 50 45 84 ] 304180545 fa
1774 [ 494 40 41 49 45 43 84 ] 251711819 fa
1775 [ 149 203 37 144 ] 358262127 fa
1776 [ 456 142 52 ] 95949173 fa
1777 [ 0 13 13 10 65 36 6 26 38 17 13 53 4 13 13 25 36 183 7 140 ] 1751712121 fa
1778 [ 839 5 13 12 13 13 48 ] 1943250302 fa
1779 [ 30 164 254 7 42 4 36 4 18 1 18 4 46 3 1 41 4 39 4 41 ] 499619205 fa
1780 [ 798 1 3 1 ] 1277775234 fa
1781 [ 76 32 135 79 99 8 246 43 30 160 ] 734015880 fa
1782 [ 265 70 36 12 25 87 4 36 4 37 4 46 4 41 43 83 4 83 41 3 ] 1546658194 fa
1783 [ 193 49 180 8 17 134 ] 831070621 fa
1784 [ 353 366 ] 1033403809 fa
1785 [ 266 1 190 39 40 41 50 45 43 45 ] 1758436783 fa
1786 [ 423 8 109 ] 508918194 fa
1787 [ 328 6 30 6 31 6 269 ] 212071871 fa
1788 [ 390 357 2 ] 1671244225 fa
1789 [ 500 ] 347047368 fa
1790 [ 558 ] 1276946910 fa
1791 [ 651 ] 2109048312 fa
1792 [ 644 ] 1914352160 fa
1793 [ 520 ] 471204394 fa
1794 [ 512 5 2 ] 1930983991 fa
1795 [ 665 ] 154021439 fa
1796 [ 513 ] 777103941 fa
1797 [ 514 ] 260959830 fa
1798 [ 530 239 ] 1284535922 fa
1799 [ 510 ] 1982423675 fa
1800 [ 150 ] 1969948305 fa
1801 [ 511 7 134 ] 1407991454 fa
1802 [ 144 371 ] 1896661664 fa
1803 [ 464 52 ] 1444653737 fa
1804 [ 509 81 ] 1712172720 fa
1805 [ 110 11 32 24 22 18 40 12 54 7 17 19 18 19 22 13 377 94 9 11 ] 889612 fa
1806 [ 954 ] 1802916616 fa
1807 [ 80 146 51 78 37 84 8 8 73 5 44 45 33 9 73 9 130 9 11 12 ] 1808121621 fa
1808 [ 19 42 3 22 8 82 63 23 25 13 8 5 176 248 40 73 12 13 13 12 ] 1752602397 fa
1809 [ 22 10 37 42 1 2 19 26 6 38 17 13 38 11 21 13 16 9 27 9 ] 1598682919 fa
1810 [ 405 9 13 46 49 50 50 213 18 12 13 13 12 45 10 ] 160257827 fa
1811 [ 1 8 8 6 10 10 16 11 14 8 23 19 13 19 13 7 15 3 9 8 ] 882894639 fa
1812 [ 234 40 9 15 6 7 6 25 36 37 19 6 47 16 40 41 50 45 43 6 ] 185215791 fa
1813 [ 733 19 37 16 12 13 3 3 12 6 6 6 7 6 7 6 6 6 45 10 ] 1706915629 fa
1814 [ 24 10 37 45 2 17 5 1 15 4 7 5 8 8 17 17 13 11 8 26 ] 1713964852 fa
1815 [ 284 21 13 25 18 18 19 18 28 1 7 28 2 4 106 24 3 2 32 36 ] 1218620208 fa
1816 [ 695 62 1 7 13 1 7 2 37 4 8 5 13 12 13 13 12 45 5 1 ] 1317868340 fa
1817 [ 960 ] 75399990 fa
1818 [ 45 9 155 6 245 68 21 98 60 109 ] 1430691640 fa
1819 [ 20 27 15 25 8 33 173 13 45 37 83 170 5 34 8 115 40 12 13 13 ] 841629509 fa
1820 [ 901 ] 422446918 fa
1821 [ 27 25 37 13 3 40 12 73 49 77 4 33 4 68 89 219 21 27 3 4 ] 560155470 fa
1822 [ 466 6 135 41 7 6 36 6 89 ] 803193686 fa
1823 [ 42 80 1 55 80 1 80 36 37 155 1 263 40 65 ] 189315943 fa
1824 [ 6 31 36 9 43 21 6 185 36 37 210 ] 1031359337 fa
1825 [ 44 9 101 4 4 20 8 80 3 23 30 5 19 17 20 17 15 7 7 36 ] 586694517 fa
1826 [ 552 22 20 16 3 55 42 31 10 33 ] 343336822 fa
1827 [ 7 4 54 54 10 22 10 20 8 8 53 5 226 12 115 38 17 42 26 13 ] 1808462718 fa
1828 [ 780 32 ] 847653755 fa
1829 [ 3 63 31 408 18 4 18 6 22 13 15 3 32 9 17 4 15 5 18 4 ] 1627872128 fa
1830 [ 724 83 7 ] 1643402114 fa
1831 [ 228 296 8 25 39 16 159 14 34 ] 670118796 fa
1832 [ 2 2 47 69 19 34 23 20 35 5 187 10 51 2 38 2 39 2 48 2 ] 888380310 fa
1833 [ 680 2 41 2 2 5 13 11 10 40 2 50 80 ] 1392580498 fa
1834 [ 14 25 10 7 22 49 21 22 1 4 10 23 4 13 15 5 16 15 12 3 ] 2114772893 fa
1835 [ 295 30 24 9 28 9 23 19 13 1 8 24 67 16 3 30 3 3 53 9 ] 453068702 fa
1836 [ 694 6 9 20 11 23 1 23 23 22 8 5 1 24 41 9 11 4 5 1 ] 1393470366 fa
1837 [ 944 8 ] 1770206109 fa
1838 [ 10 5 25 6 4 7 42 39 25 20 4 4 7 2 14 17 126 5 32 5 ] 113705892 fa
1839 [ 442 25 4 6 114 27 38 42 32 25 20 47 19 112 ] 998588323 fa
1840 [ 79 19 131 109 36 37 74 70 1 59 8 34 3 25 5 9 3 80 11 27 ] 1221405612 fa
1841 [ 912 9 11 ] 273962927 fa
1842 [ 8 230 25 23 6 17 130 31 61 64 16 127 32 ] 1881483187 fa
1843 [ 130 683 ] 1406620603 fa
1844 [ 18 10 32 25 5 3 10 3 143 50 13 9 61 93 86 1 1 180 48 58 ] 1980878788 fa
1845 [ 861 13 9 4 12 8 17 3 ] 1447963591 fa
1846 [ 67 143 8 128 115 435 19 2 ] 477757388 fa
1847 [ 490 35 ] 1151262673 fa
1848 [ 5 70 67 32 37 16 14 7 27 18 142 301 17 90 103 ] 1523362782 fa
1849 [ 117 14 33 38 17 13 20 26 3 453 89 3 8 113 10 ] 1908448236 fa
1850 sf cvx exec
1851 %%EndProlog
1852 %%Page: 1 1
1853 save
1854 1216322504 1216321786 sv
1855 0.700000 0.700000 scale
1856 %  S_SSV
1857 (/home/johnkr/mup/5.3/doc/arkkra/star.mup) inputfile
1858 12 linenum
1859 %  S_SSV
1860 29 linenum
1861 %  S_FEED
1862 252.00 1502.60 812.57 5 1.000000 1.000000 stf
1863 252.00 1393.03 812.57 5 1.000000 1.000000 stf
1864 107.50 1010.60 877.03 brace
1865 0.70 setlinewidth
1866 108.00 1010.60 moveto
1867 108.00 877.03 lineto stroke
1868 %  S_CLEFSIG
1869 119.79 992.60 1.000000 gclef
1870 120.05 895.03 1.000000 fclef
1871 134.41 1010.60 1.000000 sharp
1872 141.05 1001.60 1.000000 sharp
1873 147.69 1013.60 1.000000 sharp
1874 134.41 895.03 1.000000 sharp
1875 141.05 886.03 1.000000 sharp
1876 147.69 898.03 1.000000 sharp
1877 /NewCenturySchlbk-Bold findfont
1878 16 scalefont
1879 setfont
1880 154.01 998.60 moveto
1881 (3) show
1882 /NewCenturySchlbk-Bold findfont
1883 16 scalefont
1884 setfont
1885 154.01 986.58 moveto
1886 (4) show
1887 /NewCenturySchlbk-Bold findfont
1888 16 scalefont
1889 setfont
1890 154.01 889.03 moveto
1891 (3) show
1892 /NewCenturySchlbk-Bold findfont
1893 16 scalefont
1894 setfont
1895 154.01 877.02 moveto
1896 (4) show
1897 %  S_CHHEAD
1898 %  S_STAFF
1899 % staff 1
1900 save
1901 41 linenum
1902 195.97 942.88 moveto
1903 218.78 942.88 lineto stroke
1904 /Times-Roman findfont
1905 12 scalefont
1906 setfont
1907 175.38 942.88 moveto
1908 (Oh) show
1909 180.53 986.60 1.000000 4n
1910 189.79 989.60 1.000000 dot
1911 184.21 987.35 moveto
1912 184.21 1005.39 lineto stroke
1913 214.75 980.60 1.000000 4n
1914 208.52 980.60 moveto
1915 220.98 980.60 lineto stroke
1916 218.43 981.35 moveto
1917 218.43 999.39 lineto stroke
1918 newpath
1919 183.86 1006.89 moveto
1920 218.78 1000.89 lineto
1921 218.78 997.89 lineto
1922 183.86 1003.89 lineto
1923 closepath
1924 fill
1925 newpath
1926 218.08 995.89 moveto
1927 210.02 997.31 lineto
1928 210.02 994.31 lineto
1929 218.08 992.89 lineto
1930 closepath
1931 fill
1932 180.53 986.60 1.000000 4n
1933 189.79 989.60 1.000000 dot
1934 176.85 985.85 moveto
1935 176.85 967.81 lineto stroke
1936 214.75 980.60 1.000000 4n
1937 208.52 980.60 moveto
1938 220.98 980.60 lineto stroke
1939 211.07 979.85 moveto
1940 211.07 961.81 lineto stroke
1941 newpath
1942 176.50 969.31 moveto
1943 211.42 963.31 lineto
1944 211.42 960.31 lineto
1945 176.50 966.31 lineto
1946 closepath
1947 fill
1948 newpath
1949 210.72 968.31 moveto
1950 202.66 969.72 lineto
1951 202.66 966.72 lineto
1952 210.72 965.31 lineto
1953 closepath
1954 fill
1955 180.53 981.50 moveto
1956 180.61 981.69 lineto
1957 184.68 979.23 189.03 977.49 193.68 976.46 curveto
1958 198.32 975.44 203.00 975.19 207.73 975.71 curveto
1959 207.72 975.29 lineto
1960 202.95 974.22 198.18 974.21 193.41 975.26 curveto
1961 188.64 976.32 184.32 978.33 180.45 981.31 curveto
1962 fill
1963 194.79 991.70 moveto
1964 194.80 991.93 lineto
1965 198.45 992.99 202.09 992.97 205.73 991.88 curveto
1966 209.37 990.79 212.41 988.79 214.87 985.90 curveto
1967 214.63 985.50 lineto
1968 211.93 987.92 208.84 989.65 205.37 990.69 curveto
1969 201.90 991.73 198.37 991.99 194.79 991.47 curveto
1970 fill
1971 restore
1972 %  S_STAFF
1973 % staff 2
1974 save
1975 180.53 892.03 1.000000 4n
1976 189.79 892.03 1.000000 dot
1977 0.70 setlinewidth
1978 184.21 892.78 moveto
1979 184.21 910.83 lineto stroke
1980 214.75 886.03 1.000000 4n
1981 218.43 886.78 moveto
1982 218.43 904.82 lineto stroke
1983 newpath
1984 183.86 912.33 moveto
1985 218.78 906.33 lineto
1986 218.78 903.33 lineto
1987 183.86 909.33 lineto
1988 closepath
1989 fill
1990 newpath
1991 218.08 901.32 moveto
1992 210.02 902.74 lineto
1993 210.02 899.74 lineto
1994 218.08 898.32 lineto
1995 closepath
1996 fill
1997 180.53 892.03 1.000000 4n
1998 189.79 892.03 1.000000 dot
1999 176.85 891.28 moveto
2000 176.85 873.24 lineto stroke
2001 214.75 886.03 1.000000 4n
2002 211.07 885.28 moveto
2003 211.07 867.24 lineto stroke
2004 newpath
2005 176.50 874.74 moveto
2006 211.42 868.74 lineto
2007 211.42 865.74 lineto
2008 176.50 871.74 lineto
2009 closepath
2010 fill
2011 newpath
2012 210.72 873.74 moveto
2013 202.66 875.15 lineto
2014 202.66 872.15 lineto
2015 210.72 870.74 lineto
2016 closepath
2017 fill
2018 180.53 886.93 moveto
2019 180.61 887.13 lineto
2020 184.68 884.66 189.03 882.92 193.68 881.90 curveto
2021 198.32 880.87 203.00 880.62 207.73 881.14 curveto
2022 207.72 880.72 lineto
2023 202.95 879.65 198.18 879.64 193.41 880.69 curveto
2024 188.64 881.75 184.32 883.76 180.45 886.74 curveto
2025 fill
2026 194.79 897.13 moveto
2027 194.80 897.36 lineto
2028 198.45 898.42 202.09 898.41 205.73 897.31 curveto
2029 209.37 896.22 212.41 894.22 214.87 891.33 curveto
2030 214.63 890.93 lineto
2031 211.93 893.35 208.84 895.08 205.37 896.12 curveto
2032 201.90 897.17 198.37 897.43 194.79 896.90 curveto
2033 fill
2034 restore
2035 %  S_BAR
2036 44 linenum
2037 239.31 1001.60 1.000000 dot
2038 239.31 995.60 1.000000 dot
2039 239.31 892.03 1.000000 dot
2040 239.31 886.03 1.000000 dot
2041 0.70 setlinewidth
2042 236.31 1010.60 moveto
2043 236.31 877.03 lineto stroke
2044 3.00 setlinewidth
2045 232.31 1010.60 moveto
2046 232.31 877.03 lineto stroke
2047 0.70 setlinewidth
2048 %  S_CHHEAD
2049 %  S_STAFF
2050 % staff 1
2051 save
2052 46 linenum
2053 /Times-Roman findfont
2054 12 scalefont
2055 setfont
2056 248.23 942.88 moveto
2057 (say.) show
2058 /Times-Roman findfont
2059 12 scalefont
2060 setfont
2061 292.86 942.88 moveto
2062 (can) show
2063 /Times-Roman findfont
2064 12 scalefont
2065 setfont
2066 335.46 942.88 moveto
2067 (you) show
2068 46 linenum
2069 /Times-Roman findfont
2070 12 scalefont
2071 setfont
2072 245.17 929.56 moveto
2073 (stripes) show
2074 /Times-Roman findfont
2075 12 scalefont
2076 setfont
2077 292.70 929.56 moveto
2078 (and) show
2079 /Times-Roman findfont
2080 12 scalefont
2081 setfont
2082 332.82 929.56 moveto
2083 (bright) show
2084 252.98 974.60 1.000000 4n
2085 246.75 974.60 moveto
2086 259.21 974.60 lineto stroke
2087 246.75 980.60 moveto
2088 259.21 980.60 lineto stroke
2089 256.66 975.35 moveto
2090 256.66 998.60 lineto stroke
2091 297.02 980.60 1.000000 4n
2092 290.79 980.60 moveto
2093 303.25 980.60 lineto stroke
2094 300.70 981.35 moveto
2095 300.70 1001.60 lineto stroke
2096 339.94 986.60 1.000000 4n
2097 343.63 987.35 moveto
2098 343.63 1007.60 lineto stroke
2099 252.98 974.60 1.000000 4n
2100 246.75 974.60 moveto
2101 259.21 974.60 lineto stroke
2102 246.75 980.60 moveto
2103 259.21 980.60 lineto stroke
2104 249.30 973.85 moveto
2105 249.30 953.60 lineto stroke
2106 297.02 980.60 1.000000 4n
2107 290.79 980.60 moveto
2108 303.25 980.60 lineto stroke
2109 293.34 979.85 moveto
2110 293.34 959.60 lineto stroke
2111 339.94 977.60 1.000000 4n
2112 333.71 980.60 moveto
2113 346.18 980.60 lineto stroke
2114 336.26 976.85 moveto
2115 336.26 956.60 lineto stroke
2116 restore
2117 %  S_STAFF
2118 % staff 2
2119 save
2120 252.98 880.03 1.000000 4n
2121 0.70 setlinewidth
2122 256.66 880.78 moveto
2123 256.66 901.03 lineto stroke
2124 297.02 901.03 1.000000 4n
2125 300.70 901.78 moveto
2126 300.70 922.03 lineto stroke
2127 339.94 904.03 1.000000 4n
2128 343.63 904.78 moveto
2129 343.63 925.03 lineto stroke
2130 252.98 880.03 1.000000 4n
2131 249.30 879.28 moveto
2132 249.30 859.03 lineto stroke
2133 297.02 901.03 1.000000 4n
2134 293.34 900.28 moveto
2135 293.34 880.03 lineto stroke
2136 339.94 898.03 1.000000 4n
2137 336.26 897.28 moveto
2138 336.26 877.03 lineto stroke
2139 restore
2140 %  S_BAR
2141 53 linenum
2142 0.70 setlinewidth
2143 382.54 1010.60 moveto
2144 382.54 877.03 lineto stroke
2145 %  S_CHHEAD
2146 %  S_STAFF
2147 % staff 1
2148 save
2149 54 linenum
2150 /Times-Roman findfont
2151 12 scalefont
2152 setfont
2153 394.16 942.88 moveto
2154 (see,) show
2155 /Times-Roman findfont
2156 12 scalefont
2157 setfont
2158 463.54 942.88 moveto
2159 (by) show
2160 /Times-Roman findfont
2161 12 scalefont
2162 setfont
2163 499.31 942.88 moveto
2164 (the) show
2165 54 linenum
2166 /Times-Roman findfont
2167 12 scalefont
2168 setfont
2169 392.51 929.56 moveto
2170 (stars,) show
2171 /Times-Roman findfont
2172 12 scalefont
2173 setfont
2174 457.24 929.56 moveto
2175 (through) show
2176 /Times-Roman findfont
2177 12 scalefont
2178 setfont
2179 499.31 929.56 moveto
2180 (the) show
2181 398.75 995.60 1.000000 2n
2182 402.65 996.35 moveto
2183 402.65 1016.60 lineto stroke
2184 466.53 1001.60 1.000000 4n
2185 475.79 1001.60 1.000000 dot
2186 470.21 1002.35 moveto
2187 470.21 1020.77 lineto stroke
2188 502.96 998.60 1.000000 4n
2189 506.64 999.35 moveto
2190 506.64 1017.77 lineto stroke
2191 newpath
2192 469.86 1022.27 moveto
2193 506.99 1019.27 lineto
2194 506.99 1016.27 lineto
2195 469.86 1019.27 lineto
2196 closepath
2197 fill
2198 newpath
2199 506.29 1014.27 moveto
2200 498.23 1014.93 lineto
2201 498.23 1011.93 lineto
2202 506.29 1011.27 lineto
2203 closepath
2204 fill
2205 398.75 980.60 1.000000 2n
2206 392.31 980.60 moveto
2207 405.20 980.60 lineto stroke
2208 394.86 979.85 moveto
2209 394.86 959.60 lineto stroke
2210 466.53 980.60 1.000000 4n
2211 475.79 977.60 1.000000 dot
2212 460.29 980.60 moveto
2213 472.76 980.60 lineto stroke
2214 462.84 979.85 moveto
2215 462.84 961.10 lineto stroke
2216 502.96 980.60 1.000000 4n
2217 496.73 980.60 moveto
2218 509.19 980.60 lineto stroke
2219 499.28 979.85 moveto
2220 499.28 961.10 lineto stroke
2221 newpath
2222 462.49 962.60 moveto
2223 499.63 962.60 lineto
2224 499.63 959.60 lineto
2225 462.49 959.60 lineto
2226 closepath
2227 fill
2228 newpath
2229 498.93 967.60 moveto
2230 490.87 967.60 lineto
2231 490.87 964.60 lineto
2232 498.93 964.60 lineto
2233 closepath
2234 fill
2235 restore
2236 %  S_STAFF
2237 % staff 2
2238 save
2239 398.75 901.03 1.000000 2n
2240 0.70 setlinewidth
2241 402.65 901.78 moveto
2242 402.65 922.03 lineto stroke
2243 466.53 898.03 1.000000 4n
2244 475.79 898.03 1.000000 dot
2245 470.21 898.78 moveto
2246 470.21 917.53 lineto stroke
2247 502.96 898.03 1.000000 4n
2248 506.64 898.78 moveto
2249 506.64 917.53 lineto stroke
2250 newpath
2251 469.86 919.03 moveto
2252 506.99 919.03 lineto
2253 506.99 916.03 lineto
2254 469.86 916.03 lineto
2255 closepath
2256 fill
2257 newpath
2258 506.29 914.03 moveto
2259 498.23 914.03 lineto
2260 498.23 911.03 lineto
2261 506.29 911.03 lineto
2262 closepath
2263 fill
2264 398.75 895.03 1.000000 2n
2265 394.86 894.28 moveto
2266 394.86 874.03 lineto stroke
2267 466.53 892.03 1.000000 4n
2268 457.17 892.03 1.000000 sharp
2269 475.79 892.03 1.000000 dot
2270 462.84 891.28 moveto
2271 462.84 872.53 lineto stroke
2272 502.96 892.03 1.000000 4n
2273 499.28 891.28 moveto
2274 499.28 872.53 lineto stroke
2275 newpath
2276 462.49 874.03 moveto
2277 499.63 874.03 lineto
2278 499.63 871.03 lineto
2279 462.49 871.03 lineto
2280 closepath
2281 fill
2282 newpath
2283 498.93 879.03 moveto
2284 490.87 879.03 lineto
2285 490.87 876.03 lineto
2286 498.93 876.03 lineto
2287 closepath
2288 fill
2289 restore
2290 %  S_BAR
2291 61 linenum
2292 0.70 setlinewidth
2293 520.01 1010.60 moveto
2294 520.01 877.03 lineto stroke
2295 %  S_CHHEAD
2296 %  S_STAFF
2297 % staff 1
2298 save
2299 62 linenum
2300 /Times-Roman findfont
2301 12 scalefont
2302 setfont
2303 524.95 942.88 moveto
2304 (dawn's) show
2305 /Times-Roman findfont
2306 12 scalefont
2307 setfont
2308 602.20 942.88 moveto
2309 (-) show
2310 /Times-Roman findfont
2311 12 scalefont
2312 setfont
2313 572.65 942.88 moveto
2314 (ear) show
2315 /Times-Roman findfont
2316 12 scalefont
2317 setfont
2318 620.13 942.88 moveto
2319 (ly) show
2320 62 linenum
2321 /Times-Roman findfont
2322 12 scalefont
2323 setfont
2324 557.85 929.56 moveto
2325 (-) show
2326 /Times-Roman findfont
2327 12 scalefont
2328 setfont
2329 528.79 929.56 moveto
2330 (per) show
2331 /Times-Roman findfont
2332 12 scalefont
2333 setfont
2334 598.29 929.56 moveto
2335 (-) show
2336 /Times-Roman findfont
2337 12 scalefont
2338 setfont
2339 574.65 929.56 moveto
2340 (il) show
2341 /Times-Roman findfont
2342 12 scalefont
2343 setfont
2344 618.30 929.56 moveto
2345 (ous) show
2346 533.59 995.60 1.000000 4n
2347 537.28 996.35 moveto
2348 537.28 1016.60 lineto stroke
2349 577.30 980.60 1.000000 4n
2350 571.06 980.60 moveto
2351 583.53 980.60 lineto stroke
2352 580.98 981.35 moveto
2353 580.98 1001.60 lineto stroke
2354 622.46 983.60 1.000000 4n
2355 613.10 983.60 1.000000 sharp
2356 626.14 984.35 moveto
2357 626.14 1004.60 lineto stroke
2358 533.59 980.60 1.000000 4n
2359 527.36 980.60 moveto
2360 539.83 980.60 lineto stroke
2361 529.91 979.85 moveto
2362 529.91 959.60 lineto stroke
2363 577.30 980.60 1.000000 4n
2364 571.06 980.60 moveto
2365 583.53 980.60 lineto stroke
2366 573.61 979.85 moveto
2367 573.61 959.60 lineto stroke
2368 622.46 977.60 1.000000 4n
2369 616.22 980.60 moveto
2370 628.69 980.60 lineto stroke
2371 618.77 976.85 moveto
2372 618.77 956.60 lineto stroke
2373 restore
2374 %  S_STAFF
2375 % staff 2
2376 save
2377 533.59 901.03 1.000000 4n
2378 0.70 setlinewidth
2379 537.28 901.78 moveto
2380 537.28 922.03 lineto stroke
2381 577.30 901.03 1.000000 4n
2382 580.98 901.78 moveto
2383 580.98 922.03 lineto stroke
2384 622.46 901.03 1.000000 4n
2385 626.14 901.78 moveto
2386 626.14 922.03 lineto stroke
2387 533.59 895.03 1.000000 4n
2388 529.91 894.28 moveto
2389 529.91 874.03 lineto stroke
2390 577.30 895.03 1.000000 4n
2391 573.61 894.28 moveto
2392 573.61 874.03 lineto stroke
2393 622.46 883.03 1.000000 4n
2394 618.77 882.28 moveto
2395 618.77 862.03 lineto stroke
2396 restore
2397 %  S_BAR
2398 69 linenum
2399 0.70 setlinewidth
2400 663.57 1010.60 moveto
2401 663.57 877.03 lineto stroke
2402 %  S_CHHEAD
2403 %  S_STAFF
2404 % staff 1
2405 save
2406 70 linenum
2407 /Times-Roman findfont
2408 12 scalefont
2409 setfont
2410 672.07 942.88 moveto
2411 (light) show
2412 /Times-Roman findfont
2413 12 scalefont
2414 setfont
2415 752.92 942.88 moveto
2416 (what) show
2417 /Times-Roman findfont
2418 12 scalefont
2419 setfont
2420 783.82 942.88 moveto
2421 (so) show
2422 70 linenum
2423 /Times-Roman findfont
2424 12 scalefont
2425 setfont
2426 671.15 929.56 moveto
2427 (fight,) show
2428 /Times-Roman findfont
2429 12 scalefont
2430 setfont
2431 753.93 929.56 moveto
2432 (o'er) show
2433 /Times-Roman findfont
2434 12 scalefont
2435 setfont
2436 782.83 929.56 moveto
2437 (the) show
2438 677.54 986.60 1.000000 4n
2439 681.22 987.35 moveto
2440 681.22 1007.60 lineto stroke
2441 721.69 1010.60 1.000000 4rest
2442 758.73 986.60 1.000000 4n
2443 762.42 987.35 moveto
2444 762.42 1006.10 lineto stroke
2445 786.49 986.60 1.000000 4n
2446 790.17 987.35 moveto
2447 790.17 1006.10 lineto stroke
2448 newpath
2449 762.07 1007.60 moveto
2450 790.52 1007.60 lineto
2451 790.52 1004.60 lineto
2452 762.07 1004.60 lineto
2453 closepath
2454 fill
2455 677.54 977.60 1.000000 4n
2456 671.31 980.60 moveto
2457 683.77 980.60 lineto stroke
2458 673.86 976.85 moveto
2459 673.86 956.60 lineto stroke
2460 721.69 968.60 1.000000 4rest
2461 758.73 977.60 1.000000 4n
2462 752.50 980.60 moveto
2463 764.97 980.60 lineto stroke
2464 755.05 976.85 moveto
2465 755.05 958.10 lineto stroke
2466 786.49 977.60 1.000000 4n
2467 780.25 980.60 moveto
2468 792.72 980.60 lineto stroke
2469 782.80 976.85 moveto
2470 782.80 958.10 lineto stroke
2471 newpath
2472 754.70 959.60 moveto
2473 783.15 959.60 lineto
2474 783.15 956.60 lineto
2475 754.70 956.60 lineto
2476 closepath
2477 fill
2478 restore
2479 %  S_STAFF
2480 % staff 2
2481 save
2482 677.54 898.03 1.000000 4n
2483 0.70 setlinewidth
2484 681.22 898.78 moveto
2485 681.22 919.03 lineto stroke
2486 721.69 907.03 1.000000 4rest
2487 758.73 898.03 1.000000 4n
2488 762.42 898.78 moveto
2489 762.42 917.53 lineto stroke
2490 786.49 898.03 1.000000 4n
2491 790.17 898.78 moveto
2492 790.17 917.53 lineto stroke
2493 newpath
2494 762.07 919.03 moveto
2495 790.52 919.03 lineto
2496 790.52 916.03 lineto
2497 762.07 916.03 lineto
2498 closepath
2499 fill
2500 677.54 892.03 1.000000 4n
2501 673.86 891.28 moveto
2502 673.86 871.03 lineto stroke
2503 721.69 877.03 1.000000 4rest
2504 758.73 892.03 1.000000 4n
2505 755.05 891.28 moveto
2506 755.05 872.53 lineto stroke
2507 786.49 892.03 1.000000 4n
2508 782.80 891.28 moveto
2509 782.80 872.53 lineto stroke
2510 newpath
2511 754.70 874.03 moveto
2512 783.15 874.03 lineto
2513 783.15 871.03 lineto
2514 754.70 871.03 lineto
2515 closepath
2516 fill
2517 restore
2518 %  S_BAR
2519 77 linenum
2520 0.70 setlinewidth
2521 812.22 1010.60 moveto
2522 812.22 877.03 lineto stroke
2523 %  S_FEED
2524 215.71 1309.03 812.57 5 1.000000 1.000000 stf
2525 /Times-Roman findfont
2526 11 scalefont
2527 setfont
2528 76.21 831.03 moveto
2529 (5) show
2530 215.71 1196.34 812.57 5 1.000000 1.000000 stf
2531 71.21 817.03 680.34 brace
2532 71.71 817.03 moveto
2533 71.71 680.34 lineto stroke
2534 512.40 831.03 moveto
2535 512.40 842.03 lineto stroke
2536 /Times-Roman findfont
2537 12 scalefont
2538 setfont
2539 515.40 832.03 moveto
2540 (1.) show
2541 512.40 842.03 moveto
2542 663.97 842.03 lineto stroke
2543 663.97 842.03 moveto
2544 663.97 831.03 lineto stroke
2545 667.97 831.03 moveto
2546 667.97 842.03 lineto stroke
2547 /Times-Roman findfont
2548 12 scalefont
2549 setfont
2550 670.97 832.03 moveto
2551 (2.) show
2552 667.97 842.03 moveto
2553 810.22 842.03 lineto stroke
2554 %  S_CLEFSIG
2555 83.51 799.03 1.000000 gclef
2556 83.76 698.34 1.000000 fclef
2557 98.12 817.03 1.000000 sharp
2558 104.76 808.03 1.000000 sharp
2559 111.40 820.03 1.000000 sharp
2560 98.12 698.34 1.000000 sharp
2561 104.76 689.34 1.000000 sharp
2562 111.40 701.34 1.000000 sharp
2563 %  S_CHHEAD
2564 %  S_STAFF
2565 % staff 1
2566 save
2567 78 linenum
2568 /Times-Roman findfont
2569 12 scalefont
2570 setfont
2571 170.50 746.26 moveto
2572 (-) show
2573 /Times-Roman findfont
2574 12 scalefont
2575 setfont
2576 130.63 746.26 moveto
2577 (proud) show
2578 /Times-Roman findfont
2579 12 scalefont
2580 setfont
2581 185.51 746.26 moveto
2582 (ly) show
2583 /Times-Roman findfont
2584 12 scalefont
2585 setfont
2586 214.49 746.26 moveto
2587 (we) show
2588 78 linenum
2589 /Times-Roman findfont
2590 12 scalefont
2591 setfont
2592 165.30 732.94 moveto
2593 (-) show
2594 /Times-Roman findfont
2595 12 scalefont
2596 setfont
2597 132.94 732.94 moveto
2598 (ram) show
2599 /Times-Roman findfont
2600 12 scalefont
2601 setfont
2602 182.01 732.94 moveto
2603 (parts) show
2604 /Times-Roman findfont
2605 12 scalefont
2606 setfont
2607 214.49 732.94 moveto
2608 (we) show
2609 138.59 808.03 1.000000 4n
2610 147.85 808.03 1.000000 dot
2611 142.27 808.78 moveto
2612 142.27 829.03 lineto stroke
2613 187.83 805.03 1.000000 4n
2614 191.51 805.78 moveto
2615 191.51 826.03 lineto stroke
2616 194.53 826.03 1.000000 dnflag
2617 217.98 802.03 1.000000 4n
2618 221.67 802.78 moveto
2619 221.67 823.03 lineto stroke
2620 138.59 793.03 1.000000 4n
2621 147.85 790.03 1.000000 dot
2622 134.91 792.28 moveto
2623 134.91 772.03 lineto stroke
2624 187.83 793.03 1.000000 4n
2625 184.15 792.28 moveto
2626 184.15 772.03 lineto stroke
2627 187.17 772.03 1.000000 upflag
2628 217.98 793.03 1.000000 4n
2629 214.30 792.28 moveto
2630 214.30 772.03 lineto stroke
2631 restore
2632 %  S_STAFF
2633 % staff 2
2634 save
2635 138.59 704.34 1.000000 4n
2636 147.85 707.34 1.000000 dot
2637 0.70 setlinewidth
2638 142.27 705.09 moveto
2639 142.27 725.34 lineto stroke
2640 187.83 701.34 1.000000 4n
2641 191.51 702.09 moveto
2642 191.51 722.34 lineto stroke
2643 194.53 722.34 1.000000 dnflag
2644 217.98 704.34 1.000000 4n
2645 221.67 705.09 moveto
2646 221.67 725.34 lineto stroke
2647 138.59 683.34 1.000000 4n
2648 147.85 683.34 1.000000 dot
2649 134.91 682.59 moveto
2650 134.91 662.34 lineto stroke
2651 187.83 686.34 1.000000 4n
2652 184.15 685.59 moveto
2653 184.15 665.34 lineto stroke
2654 187.17 665.34 1.000000 upflag
2655 217.98 689.34 1.000000 4n
2656 214.30 688.59 moveto
2657 214.30 668.34 lineto stroke
2658 restore
2659 %  S_BAR
2660 85 linenum
2661 0.70 setlinewidth
2662 255.25 817.03 moveto
2663 255.25 680.34 lineto stroke
2664 %  S_CHHEAD
2665 %  S_STAFF
2666 % staff 1
2667 save
2668 86 linenum
2669 /Times-Roman findfont
2670 12 scalefont
2671 setfont
2672 265.25 746.26 moveto
2673 (hailed,) show
2674 /Times-Roman findfont
2675 12 scalefont
2676 setfont
2677 334.23 746.26 moveto
2678 (At) show
2679 /Times-Roman findfont
2680 12 scalefont
2681 setfont
2682 363.54 746.26 moveto
2683 (the) show
2684 86 linenum
2685 /Times-Roman findfont
2686 12 scalefont
2687 setfont
2688 262.58 732.94 moveto
2689 (watched,) show
2690 /Times-Roman findfont
2691 12 scalefont
2692 setfont
2693 331.41 732.94 moveto
2694 (were) show
2695 /Times-Roman findfont
2696 12 scalefont
2697 setfont
2698 364.53 732.94 moveto
2699 (so) show
2700 273.31 799.03 1.000000 2n
2701 277.21 799.78 moveto
2702 277.21 820.03 lineto stroke
2703 333.54 796.03 1.000000 4n
2704 350.17 796.03 1.000000 dot
2705 337.22 796.78 moveto
2706 337.22 815.89 lineto stroke
2707 367.20 799.03 1.000000 4n
2708 370.88 799.78 moveto
2709 370.88 818.89 lineto stroke
2710 newpath
2711 336.87 817.39 moveto
2712 371.23 820.39 lineto
2713 371.23 817.39 lineto
2714 336.87 814.39 lineto
2715 closepath
2716 fill
2717 newpath
2718 370.53 815.39 moveto
2719 362.46 814.67 lineto
2720 362.46 811.67 lineto
2721 370.53 812.39 lineto
2722 closepath
2723 fill
2724 273.31 793.03 1.000000 2n
2725 269.41 792.28 moveto
2726 269.41 772.03 lineto stroke
2727 340.90 793.03 1.000000 4n
2728 350.17 790.03 1.000000 dot
2729 337.22 792.28 moveto
2730 337.22 773.53 lineto stroke
2731 367.20 793.03 1.000000 4n
2732 363.51 792.28 moveto
2733 363.51 773.53 lineto stroke
2734 newpath
2735 336.87 775.03 moveto
2736 363.86 775.03 lineto
2737 363.86 772.03 lineto
2738 336.87 772.03 lineto
2739 closepath
2740 fill
2741 newpath
2742 363.16 780.03 moveto
2743 355.10 780.03 lineto
2744 355.10 777.03 lineto
2745 363.16 777.03 lineto
2746 closepath
2747 fill
2748 restore
2749 %  S_STAFF
2750 % staff 2
2751 save
2752 273.31 707.34 1.000000 2n
2753 0.70 setlinewidth
2754 277.21 708.09 moveto
2755 277.21 728.34 lineto stroke
2756 337.22 707.34 1.000000 4n
2757 346.49 707.34 1.000000 dot
2758 340.90 708.09 moveto
2759 340.90 726.84 lineto stroke
2760 367.20 707.34 1.000000 4n
2761 370.88 708.09 moveto
2762 370.88 726.84 lineto stroke
2763 newpath
2764 340.55 728.34 moveto
2765 371.23 728.34 lineto
2766 371.23 725.34 lineto
2767 340.55 725.34 lineto
2768 closepath
2769 fill
2770 newpath
2771 370.53 723.34 moveto
2772 362.46 723.34 lineto
2773 362.46 720.34 lineto
2774 370.53 720.34 lineto
2775 closepath
2776 fill
2777 273.31 695.34 1.000000 2n
2778 269.41 694.59 moveto
2779 269.41 674.34 lineto stroke
2780 337.22 692.34 1.000000 4n
2781 346.49 689.34 1.000000 dot
2782 333.54 691.59 moveto
2783 333.54 672.84 lineto stroke
2784 367.20 692.34 1.000000 4n
2785 363.51 691.59 moveto
2786 363.51 672.84 lineto stroke
2787 newpath
2788 333.19 674.34 moveto
2789 363.86 674.34 lineto
2790 363.86 671.34 lineto
2791 333.19 671.34 lineto
2792 closepath
2793 fill
2794 newpath
2795 363.16 679.34 moveto
2796 355.10 679.34 lineto
2797 355.10 676.34 lineto
2798 363.16 676.34 lineto
2799 closepath
2800 fill
2801 restore
2802 %  S_BAR
2803 93 linenum
2804 0.70 setlinewidth
2805 383.09 817.03 moveto
2806 383.09 680.34 lineto stroke
2807 %  S_CHHEAD
2808 %  S_STAFF
2809 % staff 1
2810 save
2811 94 linenum
2812 /Times-Roman findfont
2813 12 scalefont
2814 setfont
2815 412.73 746.26 moveto
2816 (-) show
2817 /Times-Roman findfont
2818 12 scalefont
2819 setfont
2820 389.54 746.26 moveto
2821 (twi) show
2822 /Times-Roman findfont
2823 12 scalefont
2824 setfont
2825 423.66 746.26 moveto
2826 (light's) show
2827 /Times-Roman findfont
2828 12 scalefont
2829 setfont
2830 468.64 746.26 moveto
2831 (last) show
2832 94 linenum
2833 /Times-Roman findfont
2834 12 scalefont
2835 setfont
2836 413.57 732.94 moveto
2837 (-) show
2838 /Times-Roman findfont
2839 12 scalefont
2840 setfont
2841 389.70 732.94 moveto
2842 (gal) show
2843 /Times-Roman findfont
2844 12 scalefont
2845 setfont
2846 455.61 732.94 moveto
2847 (-) show
2848 /Times-Roman findfont
2849 12 scalefont
2850 setfont
2851 425.82 732.94 moveto
2852 (lant) show
2853 /Times-Roman findfont
2854 12 scalefont
2855 setfont
2856 470.47 732.94 moveto
2857 (ly) show
2858 394.35 802.03 1.000000 4n
2859 398.03 802.78 moveto
2860 398.03 823.03 lineto stroke
2861 431.29 802.03 1.000000 4n
2862 434.97 802.78 moveto
2863 434.97 823.03 lineto stroke
2864 472.80 793.03 1.000000 4n
2865 476.48 793.78 moveto
2866 476.48 814.03 lineto stroke
2867 394.35 793.03 1.000000 4n
2868 390.67 792.28 moveto
2869 390.67 772.03 lineto stroke
2870 431.29 793.03 1.000000 4n
2871 427.61 792.28 moveto
2872 427.61 772.03 lineto stroke
2873 472.80 793.03 1.000000 4n
2874 469.11 792.28 moveto
2875 469.11 772.03 lineto stroke
2876 restore
2877 %  S_STAFF
2878 % staff 2
2879 save
2880 394.35 704.34 1.000000 4n
2881 0.70 setlinewidth
2882 398.03 705.09 moveto
2883 398.03 725.34 lineto stroke
2884 431.29 704.34 1.000000 4n
2885 434.97 705.09 moveto
2886 434.97 725.34 lineto stroke
2887 472.80 695.34 1.000000 4n
2888 476.48 696.09 moveto
2889 476.48 716.34 lineto stroke
2890 394.35 689.34 1.000000 4n
2891 390.67 688.59 moveto
2892 390.67 668.34 lineto stroke
2893 431.29 689.34 1.000000 4n
2894 427.61 688.59 moveto
2895 427.61 668.34 lineto stroke
2896 472.80 695.34 1.000000 4n
2897 469.11 694.59 moveto
2898 469.11 674.34 lineto stroke
2899 restore
2900 %  S_BAR
2901 100 linenum
2902 0.70 setlinewidth
2903 510.40 817.03 moveto
2904 510.40 680.34 lineto stroke
2905 %  S_CHHEAD
2906 %  S_STAFF
2907 % staff 1
2908 save
2909 102 linenum
2910 /Times-Roman findfont
2911 12 scalefont
2912 setfont
2913 549.46 746.26 moveto
2914 (-) show
2915 /Times-Roman findfont
2916 12 scalefont
2917 setfont
2918 515.31 746.26 moveto
2919 (gleam) show
2920 /Times-Roman findfont
2921 12 scalefont
2922 setfont
2923 557.30 746.26 moveto
2924 (ing,) show
2925 /Times-Roman findfont
2926 12 scalefont
2927 setfont
2928 597.13 746.26 moveto
2929 (whose) show
2930 /Times-Roman findfont
2931 12 scalefont
2932 setfont
2933 630.75 746.26 moveto
2934 (broad) show
2935 523.62 787.03 1.000000 4n
2936 517.39 787.03 moveto
2937 529.85 787.03 lineto stroke
2938 527.30 787.78 moveto
2939 527.30 808.03 lineto stroke
2940 561.88 781.03 1.000000 4n
2941 555.64 781.03 moveto
2942 568.11 781.03 lineto stroke
2943 555.64 787.03 moveto
2944 568.11 787.03 lineto stroke
2945 565.56 781.78 moveto
2946 565.56 805.03 lineto stroke
2947 568.58 805.03 1.000000 dnflag
2948 584.77 817.03 1.000000 8rest
2949 604.78 793.03 1.000000 4n
2950 614.04 796.03 1.000000 dot
2951 608.46 793.78 moveto
2952 608.46 811.79 lineto stroke
2953 637.56 787.03 1.000000 4n
2954 631.33 787.03 moveto
2955 643.79 787.03 lineto stroke
2956 641.24 787.78 moveto
2957 641.24 805.79 lineto stroke
2958 newpath
2959 608.11 813.29 moveto
2960 641.59 807.29 lineto
2961 641.59 804.29 lineto
2962 608.11 810.29 lineto
2963 closepath
2964 fill
2965 newpath
2966 640.89 802.29 moveto
2967 632.83 803.77 lineto
2968 632.83 800.77 lineto
2969 640.89 799.29 lineto
2970 closepath
2971 fill
2972 523.62 787.03 1.000000 4n
2973 517.39 787.03 moveto
2974 529.85 787.03 lineto stroke
2975 519.94 786.28 moveto
2976 519.94 766.03 lineto stroke
2977 561.88 781.03 1.000000 4n
2978 555.64 781.03 moveto
2979 568.11 781.03 lineto stroke
2980 555.64 787.03 moveto
2981 568.11 787.03 lineto stroke
2982 558.19 780.28 moveto
2983 558.19 760.03 lineto stroke
2984 561.22 760.03 1.000000 upflag
2985 584.77 763.03 1.000000 8rest
2986 604.78 793.03 1.000000 4n
2987 614.04 796.03 1.000000 dot
2988 601.10 792.28 moveto
2989 601.10 774.27 lineto stroke
2990 637.56 787.03 1.000000 4n
2991 631.33 787.03 moveto
2992 643.79 787.03 lineto stroke
2993 633.88 786.28 moveto
2994 633.88 768.27 lineto stroke
2995 newpath
2996 600.75 775.77 moveto
2997 634.23 769.77 lineto
2998 634.23 766.77 lineto
2999 600.75 772.77 lineto
3000 closepath
3001 fill
3002 newpath
3003 633.53 774.77 moveto
3004 625.46 776.25 lineto
3005 625.46 773.25 lineto
3006 633.53 771.77 lineto
3007 closepath
3008 fill
3009 restore
3010 %  S_STAFF
3011 % staff 2
3012 save
3013 523.62 689.34 1.000000 4n
3014 0.70 setlinewidth
3015 527.30 690.09 moveto
3016 527.30 710.34 lineto stroke
3017 561.88 683.34 1.000000 4n
3018 565.56 684.09 moveto
3019 565.56 704.34 lineto stroke
3020 568.58 704.34 1.000000 dnflag
3021 584.77 710.34 1.000000 8rest
3022 604.78 695.34 1.000000 4n
3023 614.04 695.34 1.000000 dot
3024 608.46 696.09 moveto
3025 608.46 714.10 lineto stroke
3026 637.56 689.34 1.000000 4n
3027 641.24 690.09 moveto
3028 641.24 708.10 lineto stroke
3029 newpath
3030 608.11 715.60 moveto
3031 641.59 709.60 lineto
3032 641.59 706.60 lineto
3033 608.11 712.60 lineto
3034 closepath
3035 fill
3036 newpath
3037 640.89 704.60 moveto
3038 632.83 706.07 lineto
3039 632.83 703.07 lineto
3040 640.89 701.60 lineto
3041 closepath
3042 fill
3043 523.62 689.34 1.000000 4n
3044 519.94 688.59 moveto
3045 519.94 668.34 lineto stroke
3046 561.88 683.34 1.000000 4n
3047 558.19 682.59 moveto
3048 558.19 662.34 lineto stroke
3049 561.22 662.34 1.000000 upflag
3050 584.77 668.34 1.000000 8rest
3051 604.78 695.34 1.000000 4n
3052 614.04 695.34 1.000000 dot
3053 601.10 694.59 moveto
3054 601.10 676.57 lineto stroke
3055 637.56 689.34 1.000000 4n
3056 633.88 688.59 moveto
3057 633.88 670.57 lineto stroke
3058 newpath
3059 600.75 678.07 moveto
3060 634.23 672.07 lineto
3061 634.23 669.07 lineto
3062 600.75 675.07 lineto
3063 closepath
3064 fill
3065 newpath
3066 633.53 677.07 moveto
3067 625.46 678.55 lineto
3068 625.46 675.55 lineto
3069 633.53 674.07 lineto
3070 closepath
3071 fill
3072 restore
3073 %  S_BAR
3074 104 linenum
3075 661.97 808.03 1.000000 dot
3076 661.97 802.03 1.000000 dot
3077 661.97 695.34 1.000000 dot
3078 661.97 689.34 1.000000 dot
3079 0.70 setlinewidth
3080 665.97 817.03 moveto
3081 665.97 680.34 lineto stroke
3082 3.00 setlinewidth
3083 669.97 817.03 moveto
3084 669.97 680.34 lineto stroke
3085 0.70 setlinewidth
3086 %  S_CHHEAD
3087 %  S_STAFF
3088 % staff 1
3089 save
3090 106 linenum
3091 /Times-Roman findfont
3092 12 scalefont
3093 setfont
3094 710.73 732.94 moveto
3095 (-) show
3096 /Times-Roman findfont
3097 12 scalefont
3098 setfont
3099 675.03 732.94 moveto
3100 (stream) show
3101 /Times-Roman findfont
3102 12 scalefont
3103 setfont
3104 717.47 732.94 moveto
3105 (ing?) show
3106 /Times-Roman findfont
3107 12 scalefont
3108 setfont
3109 761.54 732.94 moveto
3110 (And) show
3111 /Times-Roman findfont
3112 12 scalefont
3113 setfont
3114 792.68 732.94 moveto
3115 (the) show
3116 684.01 787.03 1.000000 4n
3117 677.78 787.03 moveto
3118 690.24 787.03 lineto stroke
3119 687.69 787.78 moveto
3120 687.69 808.03 lineto stroke
3121 722.62 781.03 1.000000 4n
3122 716.38 781.03 moveto
3123 728.85 781.03 lineto stroke
3124 716.38 787.03 moveto
3125 728.85 787.03 lineto stroke
3126 726.30 781.78 moveto
3127 726.30 805.03 lineto stroke
3128 729.32 805.03 1.000000 dnflag
3129 745.53 817.03 1.000000 8rest
3130 766.69 808.03 1.000000 4n
3131 775.95 808.03 1.000000 dot
3132 770.37 808.78 moveto
3133 770.37 827.53 lineto stroke
3134 796.33 808.03 1.000000 4n
3135 800.01 808.78 moveto
3136 800.01 827.53 lineto stroke
3137 newpath
3138 770.02 829.03 moveto
3139 800.36 829.03 lineto
3140 800.36 826.03 lineto
3141 770.02 826.03 lineto
3142 closepath
3143 fill
3144 newpath
3145 799.66 824.03 moveto
3146 791.60 824.03 lineto
3147 791.60 821.03 lineto
3148 799.66 821.03 lineto
3149 closepath
3150 fill
3151 684.01 787.03 1.000000 4n
3152 677.78 787.03 moveto
3153 690.24 787.03 lineto stroke
3154 680.33 786.28 moveto
3155 680.33 766.03 lineto stroke
3156 722.62 781.03 1.000000 4n
3157 716.38 781.03 moveto
3158 728.85 781.03 lineto stroke
3159 716.38 787.03 moveto
3160 728.85 787.03 lineto stroke
3161 718.93 780.28 moveto
3162 718.93 760.03 lineto stroke
3163 721.96 760.03 1.000000 upflag
3164 745.53 763.03 1.000000 8rest
3165 766.69 793.03 1.000000 4n
3166 775.95 790.03 1.000000 dot
3167 763.01 792.28 moveto
3168 763.01 773.53 lineto stroke
3169 796.33 793.03 1.000000 4n
3170 792.65 792.28 moveto
3171 792.65 773.53 lineto stroke
3172 newpath
3173 762.66 775.03 moveto
3174 793.00 775.03 lineto
3175 793.00 772.03 lineto
3176 762.66 772.03 lineto
3177 closepath
3178 fill
3179 newpath
3180 792.30 780.03 moveto
3181 784.24 780.03 lineto
3182 784.24 777.03 lineto
3183 792.30 777.03 lineto
3184 closepath
3185 fill
3186 restore
3187 %  S_STAFF
3188 % staff 2
3189 save
3190 684.01 689.34 1.000000 4n
3191 0.70 setlinewidth
3192 687.69 690.09 moveto
3193 687.69 710.34 lineto stroke
3194 722.62 683.34 1.000000 4n
3195 726.30 684.09 moveto
3196 726.30 704.34 lineto stroke
3197 729.32 704.34 1.000000 dnflag
3198 745.53 704.34 1.000000 8rest
3199 766.69 704.34 1.000000 4n
3200 775.95 707.34 1.000000 dot
3201 770.37 705.09 moveto
3202 770.37 723.84 lineto stroke
3203 796.33 704.34 1.000000 4n
3204 800.01 705.09 moveto
3205 800.01 723.84 lineto stroke
3206 newpath
3207 770.02 725.34 moveto
3208 800.36 725.34 lineto
3209 800.36 722.34 lineto
3210 770.02 722.34 lineto
3211 closepath
3212 fill
3213 newpath
3214 799.66 720.34 moveto
3215 791.60 720.34 lineto
3216 791.60 717.34 lineto
3217 799.66 717.34 lineto
3218 closepath
3219 fill
3220 684.01 689.34 1.000000 4n
3221 680.33 688.59 moveto
3222 680.33 668.34 lineto stroke
3223 722.62 683.34 1.000000 4n
3224 718.93 682.59 moveto
3225 718.93 662.34 lineto stroke
3226 721.96 662.34 1.000000 upflag
3227 745.53 668.34 1.000000 8rest
3228 766.69 683.34 1.000000 4n
3229 775.95 683.34 1.000000 dot
3230 763.01 682.59 moveto
3231 763.01 663.84 lineto stroke
3232 796.33 683.34 1.000000 4n
3233 792.65 682.59 moveto
3234 792.65 663.84 lineto stroke
3235 newpath
3236 762.66 665.34 moveto
3237 793.00 665.34 lineto
3238 793.00 662.34 lineto
3239 762.66 662.34 lineto
3240 closepath
3241 fill
3242 newpath
3243 792.30 670.34 moveto
3244 784.24 670.34 lineto
3245 784.24 667.34 lineto
3246 792.30 667.34 lineto
3247 closepath
3248 fill
3249 restore
3250 %  S_BAR
3251 111 linenum
3252 0.70 setlinewidth
3253 812.22 817.03 moveto
3254 812.22 680.34 lineto stroke
3255 %  S_FEED
3256 215.71 1112.34 812.57 5 1.000000 1.000000 stf
3257 /Times-Roman findfont
3258 11 scalefont
3259 setfont
3260 76.21 634.34 moveto
3261 (10) show
3262 215.71 1025.09 812.57 5 1.000000 1.000000 stf
3263 71.21 620.34 509.09 brace
3264 71.71 620.34 moveto
3265 71.71 509.09 lineto stroke
3266 %  S_CLEFSIG
3267 83.51 602.34 1.000000 gclef
3268 83.76 527.09 1.000000 fclef
3269 98.12 620.34 1.000000 sharp
3270 104.76 611.34 1.000000 sharp
3271 111.40 623.34 1.000000 sharp
3272 98.12 527.09 1.000000 sharp
3273 104.76 518.09 1.000000 sharp
3274 111.40 530.09 1.000000 sharp
3275 %  S_CHHEAD
3276 %  S_STAFF
3277 % staff 1
3278 save
3279 113 linenum
3280 /Times-Roman findfont
3281 12 scalefont
3282 setfont
3283 159.96 564.62 moveto
3284 (-) show
3285 /Times-Roman findfont
3286 12 scalefont
3287 setfont
3288 129.45 564.62 moveto
3289 (rock) show
3290 /Times-Roman findfont
3291 12 scalefont
3292 setfont
3293 172.23 564.62 moveto
3294 (ets') show
3295 /Times-Roman findfont
3296 12 scalefont
3297 setfont
3298 214.63 564.62 moveto
3299 (red) show
3300 135.75 611.34 1.000000 4n
3301 139.43 612.09 moveto
3302 139.43 632.34 lineto stroke
3303 176.55 614.34 1.000000 4n
3304 180.23 615.09 moveto
3305 180.23 635.34 lineto stroke
3306 218.45 617.34 1.000000 4n
3307 222.13 618.09 moveto
3308 222.13 638.34 lineto stroke
3309 135.75 596.34 1.000000 4n
3310 132.07 595.59 moveto
3311 132.07 575.34 lineto stroke
3312 176.55 596.34 1.000000 4n
3313 172.86 595.59 moveto
3314 172.86 575.34 lineto stroke
3315 218.45 596.34 1.000000 4n
3316 214.77 595.59 moveto
3317 214.77 575.34 lineto stroke
3318 restore
3319 %  S_STAFF
3320 % staff 2
3321 save
3322 135.75 533.09 1.000000 4n
3323 0.70 setlinewidth
3324 139.43 533.84 moveto
3325 139.43 554.09 lineto stroke
3326 176.55 536.09 1.000000 4n
3327 180.23 536.84 moveto
3328 180.23 557.09 lineto stroke
3329 218.45 539.09 1.000000 4n
3330 212.22 539.09 moveto
3331 224.68 539.09 lineto stroke
3332 222.13 539.84 moveto
3333 222.13 560.09 lineto stroke
3334 135.75 512.09 1.000000 4n
3335 132.07 511.34 moveto
3336 132.07 491.09 lineto stroke
3337 176.55 512.09 1.000000 4n
3338 172.86 511.34 moveto
3339 172.86 491.09 lineto stroke
3340 218.45 512.09 1.000000 4n
3341 214.77 511.34 moveto
3342 214.77 491.09 lineto stroke
3343 restore
3344 %  S_BAR
3345 122 linenum
3346 0.70 setlinewidth
3347 257.45 620.34 moveto
3348 257.45 509.09 lineto stroke
3349 %  S_CHHEAD
3350 %  S_STAFF
3351 % staff 1
3352 save
3353 127 linenum
3354 /Times-Roman findfont
3355 12 scalefont
3356 setfont
3357 264.47 564.62 moveto
3358 (glare,) show
3359 /Times-Roman findfont
3360 12 scalefont
3361 setfont
3362 344.84 564.62 moveto
3363 (the) show
3364 /Times-Roman findfont
3365 12 scalefont
3366 setfont
3367 363.46 564.62 moveto
3368 (bombs) show
3369 271.21 617.34 1.000000 4n
3370 274.89 618.09 moveto
3371 274.89 638.34 lineto stroke
3372 313.19 620.34 1.000000 4rest
3373 348.49 614.34 1.000000 4n
3374 352.18 615.09 moveto
3375 352.18 633.31 lineto stroke
3376 371.45 611.34 1.000000 4n
3377 375.13 612.09 moveto
3378 375.13 630.31 lineto stroke
3379 newpath
3380 351.83 634.81 moveto
3381 375.48 631.81 lineto
3382 375.48 628.81 lineto
3383 351.83 631.81 lineto
3384 closepath
3385 fill
3386 271.21 596.34 1.000000 4n
3387 267.52 595.59 moveto
3388 267.52 575.34 lineto stroke
3389 313.19 596.34 1.000000 4rest
3390 348.49 596.34 1.000000 4n
3391 344.81 595.59 moveto
3392 344.81 576.84 lineto stroke
3393 371.45 596.34 1.000000 4n
3394 367.77 595.59 moveto
3395 367.77 576.84 lineto stroke
3396 newpath
3397 344.46 578.34 moveto
3398 368.12 578.34 lineto
3399 368.12 575.34 lineto
3400 344.46 575.34 lineto
3401 closepath
3402 fill
3403 restore
3404 %  S_STAFF
3405 % staff 2
3406 save
3407 271.21 539.09 1.000000 4n
3408 0.70 setlinewidth
3409 264.97 539.09 moveto
3410 277.44 539.09 lineto stroke
3411 274.89 539.84 moveto
3412 274.89 560.09 lineto stroke
3413 313.19 533.09 1.000000 4rest
3414 348.49 536.09 1.000000 4n
3415 352.18 536.84 moveto
3416 352.18 555.06 lineto stroke
3417 371.45 533.09 1.000000 4n
3418 375.13 533.84 moveto
3419 375.13 552.06 lineto stroke
3420 newpath
3421 351.83 556.56 moveto
3422 375.48 553.56 lineto
3423 375.48 550.56 lineto
3424 351.83 553.56 lineto
3425 closepath
3426 fill
3427 271.21 512.09 1.000000 4n
3428 267.52 511.34 moveto
3429 267.52 491.09 lineto stroke
3430 313.19 509.09 1.000000 4rest
3431 348.49 512.09 1.000000 4n
3432 344.81 511.34 moveto
3433 344.81 492.59 lineto stroke
3434 371.45 512.09 1.000000 4n
3435 367.77 511.34 moveto
3436 367.77 492.59 lineto stroke
3437 newpath
3438 344.46 494.09 moveto
3439 368.12 494.09 lineto
3440 368.12 491.09 lineto
3441 344.46 491.09 lineto
3442 closepath
3443 fill
3444 restore
3445 %  S_BAR
3446 130 linenum
3447 0.70 setlinewidth
3448 398.93 620.34 moveto
3449 398.93 509.09 lineto stroke
3450 %  S_CHHEAD
3451 %  S_STAFF
3452 % staff 1
3453 save
3454 131 linenum
3455 /Times-Roman findfont
3456 12 scalefont
3457 setfont
3458 437.54 564.62 moveto
3459 (-) show
3460 /Times-Roman findfont
3461 12 scalefont
3462 setfont
3463 404.82 564.62 moveto
3464 (burst) show
3465 /Times-Roman findfont
3466 12 scalefont
3467 setfont
3468 449.35 564.62 moveto
3469 (ing) show
3470 /Times-Roman findfont
3471 12 scalefont
3472 setfont
3473 493.24 564.62 moveto
3474 (in) show
3475 411.79 608.34 1.000000 4n
3476 415.47 609.09 moveto
3477 415.47 629.34 lineto stroke
3478 453.17 611.34 1.000000 4n
3479 456.85 612.09 moveto
3480 456.85 632.34 lineto stroke
3481 495.57 614.34 1.000000 4n
3482 499.25 615.09 moveto
3483 499.25 635.34 lineto stroke
3484 411.79 596.34 1.000000 4n
3485 408.11 595.59 moveto
3486 408.11 575.34 lineto stroke
3487 453.17 596.34 1.000000 4n
3488 449.49 595.59 moveto
3489 449.49 575.34 lineto stroke
3490 495.57 596.34 1.000000 4n
3491 491.88 595.59 moveto
3492 491.88 575.34 lineto stroke
3493 restore
3494 %  S_STAFF
3495 % staff 2
3496 save
3497 411.79 530.09 1.000000 4n
3498 0.70 setlinewidth
3499 415.47 530.84 moveto
3500 415.47 551.09 lineto stroke
3501 453.17 530.09 1.000000 4n
3502 456.85 530.84 moveto
3503 456.85 551.09 lineto stroke
3504 495.57 530.09 1.000000 4n
3505 499.25 530.84 moveto
3506 499.25 551.09 lineto stroke
3507 411.79 524.09 1.000000 4n
3508 408.11 523.34 moveto
3509 408.11 503.09 lineto stroke
3510 453.17 524.09 1.000000 4n
3511 449.49 523.34 moveto
3512 449.49 503.09 lineto stroke
3513 495.57 524.09 1.000000 4n
3514 491.88 523.34 moveto
3515 491.88 503.09 lineto stroke
3516 restore
3517 %  S_BAR
3518 134 linenum
3519 0.70 setlinewidth
3520 533.82 620.34 moveto
3521 533.82 509.09 lineto stroke
3522 %  S_CHHEAD
3523 %  S_STAFF
3524 % staff 1
3525 save
3526 135 linenum
3527 /Times-Roman findfont
3528 12 scalefont
3529 setfont
3530 543.38 564.62 moveto
3531 (air,) show
3532 /Times-Roman findfont
3533 12 scalefont
3534 setfont
3535 621.21 564.62 moveto
3536 (gave) show
3537 547.29 614.34 1.000000 4n
3538 550.97 615.09 moveto
3539 550.97 635.34 lineto stroke
3540 587.76 620.34 1.000000 4rest
3541 626.86 614.34 1.000000 4n
3542 630.54 615.09 moveto
3543 630.54 635.34 lineto stroke
3544 547.29 596.34 1.000000 4n
3545 543.61 595.59 moveto
3546 543.61 575.34 lineto stroke
3547 587.76 596.34 1.000000 4rest
3548 626.86 596.34 1.000000 4n
3549 623.18 595.59 moveto
3550 623.18 575.34 lineto stroke
3551 restore
3552 %  S_STAFF
3553 % staff 2
3554 save
3555 547.29 530.09 1.000000 4n
3556 0.70 setlinewidth
3557 550.97 530.84 moveto
3558 550.97 551.09 lineto stroke
3559 587.76 539.09 1.000000 4rest
3560 626.86 530.09 1.000000 4n
3561 630.54 530.84 moveto
3562 630.54 551.09 lineto stroke
3563 547.29 524.09 1.000000 4n
3564 543.61 523.34 moveto
3565 543.61 503.09 lineto stroke
3566 587.76 509.09 1.000000 4rest
3567 626.86 524.09 1.000000 4n
3568 623.18 523.34 moveto
3569 623.18 503.09 lineto stroke
3570 restore
3571 %  S_BAR
3572 138 linenum
3573 0.70 setlinewidth
3574 666.78 620.34 moveto
3575 666.78 509.09 lineto stroke
3576 %  S_CHHEAD
3577 %  S_STAFF
3578 % staff 1
3579 save
3580 139 linenum
3581 /Times-Roman findfont
3582 12 scalefont
3583 setfont
3584 674.29 564.62 moveto
3585 (proof) show
3586 /Times-Roman findfont
3587 12 scalefont
3588 setfont
3589 723.20 564.62 moveto
3590 (through) show
3591 /Times-Roman findfont
3592 12 scalefont
3593 setfont
3594 769.65 564.62 moveto
3595 (the) show
3596 680.75 611.34 1.000000 4n
3597 690.01 611.34 1.000000 dot
3598 684.43 612.09 moveto
3599 684.43 632.34 lineto stroke
3600 732.49 608.34 1.000000 4n
3601 736.17 609.09 moveto
3602 736.17 629.34 lineto stroke
3603 739.20 629.34 1.000000 dnflag
3604 773.30 605.34 1.000000 4n
3605 776.99 606.09 moveto
3606 776.99 626.34 lineto stroke
3607 680.75 596.34 1.000000 4n
3608 690.01 593.34 1.000000 dot
3609 677.07 595.59 moveto
3610 677.07 575.34 lineto stroke
3611 732.49 596.34 1.000000 4n
3612 728.81 595.59 moveto
3613 728.81 575.34 lineto stroke
3614 731.83 575.34 1.000000 upflag
3615 773.30 596.34 1.000000 4n
3616 769.62 595.59 moveto
3617 769.62 575.34 lineto stroke
3618 restore
3619 %  S_STAFF
3620 % staff 2
3621 save
3622 680.75 533.09 1.000000 4n
3623 690.01 536.09 1.000000 dot
3624 0.70 setlinewidth
3625 684.43 533.84 moveto
3626 684.43 554.09 lineto stroke
3627 732.49 530.09 1.000000 4n
3628 736.17 530.84 moveto
3629 736.17 551.09 lineto stroke
3630 739.20 551.09 1.000000 dnflag
3631 773.30 533.09 1.000000 4n
3632 776.99 533.84 moveto
3633 776.99 554.09 lineto stroke
3634 680.75 512.09 1.000000 4n
3635 690.01 512.09 1.000000 dot
3636 677.07 511.34 moveto
3637 677.07 491.09 lineto stroke
3638 732.49 515.09 1.000000 4n
3639 728.81 514.34 moveto
3640 728.81 494.09 lineto stroke
3641 731.83 494.09 1.000000 upflag
3642 773.30 518.09 1.000000 4n
3643 769.62 517.34 moveto
3644 769.62 497.09 lineto stroke
3645 restore
3646 %  S_BAR
3647 142 linenum
3648 0.70 setlinewidth
3649 812.22 620.34 moveto
3650 812.22 509.09 lineto stroke
3651 %  S_FEED
3652 215.71 941.09 812.57 5 1.000000 1.000000 stf
3653 /Times-Roman findfont
3654 11 scalefont
3655 setfont
3656 76.21 463.09 moveto
3657 (15) show
3658 215.71 844.77 812.57 5 1.000000 1.000000 stf
3659 71.21 449.09 328.77 brace
3660 71.71 449.09 moveto
3661 71.71 328.77 lineto stroke
3662 %  S_CLEFSIG
3663 83.51 431.09 1.000000 gclef
3664 83.76 346.77 1.000000 fclef
3665 98.12 449.09 1.000000 sharp
3666 104.76 440.09 1.000000 sharp
3667 111.40 452.09 1.000000 sharp
3668 98.12 346.77 1.000000 sharp
3669 104.76 337.77 1.000000 sharp
3670 111.40 349.77 1.000000 sharp
3671 %  S_CHHEAD
3672 %  S_STAFF
3673 % staff 1
3674 save
3675 143 linenum
3676 /Times-Roman findfont
3677 12 scalefont
3678 setfont
3679 134.40 381.37 moveto
3680 (night) show
3681 /Times-Roman findfont
3682 12 scalefont
3683 setfont
3684 202.88 381.37 moveto
3685 (that) show
3686 /Times-Roman findfont
3687 12 scalefont
3688 setfont
3689 234.86 381.37 moveto
3690 (our) show
3691 140.54 431.09 1.000000 2n
3692 144.44 431.84 moveto
3693 144.44 452.09 lineto stroke
3694 207.36 428.09 1.000000 4n
3695 216.62 428.09 1.000000 dot
3696 211.04 428.84 moveto
3697 211.04 447.97 lineto stroke
3698 238.84 431.09 1.000000 4n
3699 242.52 431.84 moveto
3700 242.52 450.97 lineto stroke
3701 newpath
3702 210.69 449.47 moveto
3703 242.87 452.47 lineto
3704 242.87 449.47 lineto
3705 210.69 446.47 lineto
3706 closepath
3707 fill
3708 newpath
3709 242.17 447.47 moveto
3710 234.11 446.70 lineto
3711 234.11 443.70 lineto
3712 242.17 444.47 lineto
3713 closepath
3714 fill
3715 140.54 425.09 1.000000 2n
3716 136.64 424.34 moveto
3717 136.64 404.09 lineto stroke
3718 207.36 422.09 1.000000 4n
3719 216.62 422.09 1.000000 dot
3720 203.68 421.34 moveto
3721 203.68 402.59 lineto stroke
3722 238.84 422.09 1.000000 4n
3723 235.16 421.34 moveto
3724 235.16 402.59 lineto stroke
3725 newpath
3726 203.33 404.09 moveto
3727 235.51 404.09 lineto
3728 235.51 401.09 lineto
3729 203.33 401.09 lineto
3730 closepath
3731 fill
3732 newpath
3733 234.81 409.09 moveto
3734 226.74 409.09 lineto
3735 226.74 406.09 lineto
3736 234.81 406.09 lineto
3737 closepath
3738 fill
3739 restore
3740 %  S_STAFF
3741 % staff 2
3742 save
3743 140.54 355.77 1.000000 2n
3744 0.70 setlinewidth
3745 144.44 356.52 moveto
3746 144.44 376.77 lineto stroke
3747 207.36 355.77 1.000000 4n
3748 216.62 355.77 1.000000 dot
3749 211.04 356.52 moveto
3750 211.04 375.27 lineto stroke
3751 238.84 355.77 1.000000 4n
3752 242.52 356.52 moveto
3753 242.52 375.27 lineto stroke
3754 newpath
3755 210.69 376.77 moveto
3756 242.87 376.77 lineto
3757 242.87 373.77 lineto
3758 210.69 373.77 lineto
3759 closepath
3760 fill
3761 newpath
3762 242.17 371.77 moveto
3763 234.11 371.77 lineto
3764 234.11 368.77 lineto
3765 242.17 368.77 lineto
3766 closepath
3767 fill
3768 140.54 343.77 1.000000 2n
3769 136.64 343.02 moveto
3770 136.64 322.77 lineto stroke
3771 207.36 343.77 1.000000 4n
3772 216.62 343.77 1.000000 dot
3773 203.68 343.02 moveto
3774 203.68 324.27 lineto stroke
3775 238.84 343.77 1.000000 4n
3776 235.16 343.02 moveto
3777 235.16 324.27 lineto stroke
3778 newpath
3779 203.33 325.77 moveto
3780 235.51 325.77 lineto
3781 235.51 322.77 lineto
3782 203.33 322.77 lineto
3783 closepath
3784 fill
3785 newpath
3786 234.81 330.77 moveto
3787 226.74 330.77 lineto
3788 226.74 327.77 lineto
3789 234.81 327.77 lineto
3790 closepath
3791 fill
3792 restore
3793 %  S_BAR
3794 146 linenum
3795 0.70 setlinewidth
3796 255.78 449.09 moveto
3797 255.78 328.77 lineto stroke
3798 %  S_CHHEAD
3799 %  S_STAFF
3800 % staff 1
3801 save
3802 147 linenum
3803 /Times-Roman findfont
3804 12 scalefont
3805 setfont
3806 262.95 381.37 moveto
3807 (flag) show
3808 /Times-Roman findfont
3809 12 scalefont
3810 setfont
3811 303.16 381.37 moveto
3812 (was) show
3813 /Times-Roman findfont
3814 12 scalefont
3815 setfont
3816 347.89 381.37 moveto
3817 (still) show
3818 267.60 434.09 1.000000 4n
3819 271.28 434.84 moveto
3820 271.28 455.09 lineto stroke
3821 307.83 419.09 1.000000 4n
3822 301.59 419.09 moveto
3823 314.06 419.09 lineto stroke
3824 311.51 419.84 moveto
3825 311.51 440.09 lineto stroke
3826 352.38 422.09 1.000000 4n
3827 343.02 422.09 1.000000 sharp
3828 356.06 422.84 moveto
3829 356.06 443.09 lineto stroke
3830 267.60 419.09 1.000000 4n
3831 261.37 419.09 moveto
3832 273.83 419.09 lineto stroke
3833 263.92 418.34 moveto
3834 263.92 398.09 lineto stroke
3835 307.83 419.09 1.000000 4n
3836 301.59 419.09 moveto
3837 314.06 419.09 lineto stroke
3838 304.14 418.34 moveto
3839 304.14 398.09 lineto stroke
3840 352.38 416.09 1.000000 4n
3841 346.14 419.09 moveto
3842 358.61 419.09 lineto stroke
3843 348.69 415.34 moveto
3844 348.69 395.09 lineto stroke
3845 restore
3846 %  S_STAFF
3847 % staff 2
3848 save
3849 267.60 352.77 1.000000 4n
3850 0.70 setlinewidth
3851 271.28 353.52 moveto
3852 271.28 373.77 lineto stroke
3853 307.83 352.77 1.000000 4n
3854 311.51 353.52 moveto
3855 311.51 373.77 lineto stroke
3856 352.38 352.77 1.000000 4n
3857 356.06 353.52 moveto
3858 356.06 373.77 lineto stroke
3859 267.60 346.77 1.000000 4n
3860 263.92 346.02 moveto
3861 263.92 325.77 lineto stroke
3862 307.83 346.77 1.000000 4n
3863 304.14 346.02 moveto
3864 304.14 325.77 lineto stroke
3865 352.38 334.77 1.000000 4n
3866 348.69 334.02 moveto
3867 348.69 313.77 lineto stroke
3868 restore
3869 %  S_BAR
3870 150 linenum
3871 0.70 setlinewidth
3872 392.85 449.09 moveto
3873 392.85 328.77 lineto stroke
3874 %  S_CHHEAD
3875 %  S_STAFF
3876 % staff 1
3877 save
3878 151 linenum
3879 /Times-Roman findfont
3880 12 scalefont
3881 setfont
3882 400.10 381.37 moveto
3883 (there.) show
3884 /Times-Roman findfont
3885 12 scalefont
3886 setfont
3887 487.90 381.37 moveto
3888 (Oh) show
3889 406.84 425.09 1.000000 4n
3890 410.52 425.84 moveto
3891 410.52 446.09 lineto stroke
3892 450.19 449.09 1.000000 4rest
3893 491.56 425.09 1.000000 4n
3894 495.24 425.84 moveto
3895 495.24 446.09 lineto stroke
3896 406.84 416.09 1.000000 4n
3897 400.60 419.09 moveto
3898 413.07 419.09 lineto stroke
3899 403.15 415.34 moveto
3900 403.15 395.09 lineto stroke
3901 450.19 407.09 1.000000 4rest
3902 491.56 416.09 1.000000 4n
3903 485.32 419.09 moveto
3904 497.79 419.09 lineto stroke
3905 487.87 415.34 moveto
3906 487.87 395.09 lineto stroke
3907 restore
3908 %  S_STAFF
3909 % staff 2
3910 save
3911 406.84 349.77 1.000000 4n
3912 0.70 setlinewidth
3913 410.52 350.52 moveto
3914 410.52 370.77 lineto stroke
3915 450.19 358.77 1.000000 4rest
3916 491.56 349.77 1.000000 4n
3917 495.24 350.52 moveto
3918 495.24 370.77 lineto stroke
3919 406.84 343.77 1.000000 4n
3920 403.15 343.02 moveto
3921 403.15 322.77 lineto stroke
3922 450.19 328.77 1.000000 4rest
3923 491.56 343.77 1.000000 4n
3924 487.87 343.02 moveto
3925 487.87 322.77 lineto stroke
3926 restore
3927 %  S_BAR
3928 154 linenum
3929 0.70 setlinewidth
3930 531.61 449.09 moveto
3931 531.61 328.77 lineto stroke
3932 %  S_CHHEAD
3933 %  S_STAFF
3934 % staff 1
3935 save
3936 155 linenum
3937 /Times-Roman findfont
3938 12 scalefont
3939 setfont
3940 538.55 381.37 moveto
3941 (say,) show
3942 /Times-Roman findfont
3943 12 scalefont
3944 setfont
3945 579.19 381.37 moveto
3946 (does) show
3947 /Times-Roman findfont
3948 12 scalefont
3949 setfont
3950 619.89 381.37 moveto
3951 (that) show
3952 543.30 434.09 1.000000 4n
3953 546.98 434.84 moveto
3954 546.98 455.09 lineto stroke
3955 584.68 434.09 1.000000 4n
3956 588.37 434.84 moveto
3957 588.37 455.09 lineto stroke
3958 624.37 434.09 1.000000 4n
3959 628.06 434.84 moveto
3960 628.06 453.13 lineto stroke
3961 650.59 431.09 1.000000 4n
3962 654.27 431.84 moveto
3963 654.27 450.13 lineto stroke
3964 newpath
3965 627.71 454.63 moveto
3966 654.62 451.63 lineto
3967 654.62 448.63 lineto
3968 627.71 451.63 lineto
3969 closepath
3970 fill
3971 543.30 419.09 1.000000 4n
3972 537.07 419.09 moveto
3973 549.53 419.09 lineto stroke
3974 539.62 418.34 moveto
3975 539.62 398.09 lineto stroke
3976 584.68 416.09 1.000000 4n
3977 578.45 419.09 moveto
3978 590.92 419.09 lineto stroke
3979 581.00 415.34 moveto
3980 581.00 395.09 lineto stroke
3981 624.37 413.09 1.000000 4n
3982 618.14 413.09 moveto
3983 630.61 413.09 lineto stroke
3984 618.14 419.09 moveto
3985 630.61 419.09 lineto stroke
3986 620.69 412.34 moveto
3987 620.69 392.09 lineto stroke
3988 630.41 439.19 moveto
3989 630.38 439.42 lineto
3990 633.76 441.00 637.30 441.52 640.99 440.97 curveto
3991 644.68 440.42 647.91 438.90 650.68 436.40 curveto
3992 650.50 435.97 lineto
3993 647.55 437.96 644.32 439.22 640.80 439.74 curveto
3994 637.29 440.27 633.83 440.00 630.43 438.96 curveto
3995 fill
3996 restore
3997 %  S_STAFF
3998 % staff 2
3999 save
4000 543.30 343.77 1.000000 4n
4001 0.70 setlinewidth
4002 546.98 344.52 moveto
4003 546.98 364.77 lineto stroke
4004 584.68 343.77 1.000000 4n
4005 588.37 344.52 moveto
4006 588.37 364.77 lineto stroke
4007 624.37 343.77 1.000000 4n
4008 628.06 344.52 moveto
4009 628.06 364.77 lineto stroke
4010 543.30 331.77 1.000000 4n
4011 539.62 331.02 moveto
4012 539.62 310.77 lineto stroke
4013 584.68 334.77 1.000000 4n
4014 581.00 334.02 moveto
4015 581.00 313.77 lineto stroke
4016 624.37 337.77 1.000000 4n
4017 620.69 337.02 moveto
4018 620.69 316.77 lineto stroke
4019 restore
4020 %  S_BAR
4021 161 linenum
4022 0.70 setlinewidth
4023 674.88 449.09 moveto
4024 674.88 328.77 lineto stroke
4025 %  S_CHHEAD
4026 %  S_STAFF
4027 % staff 1
4028 save
4029 162 linenum
4030 /Times-Roman findfont
4031 12 scalefont
4032 setfont
4033 708.09 381.37 moveto
4034 (-) show
4035 /Times-Roman findfont
4036 12 scalefont
4037 setfont
4038 681.59 381.37 moveto
4039 (star) show
4040 /Times-Roman findfont
4041 12 scalefont
4042 setfont
4043 752.77 381.37 moveto
4044 (-) show
4045 /Times-Roman findfont
4046 12 scalefont
4047 setfont
4048 720.31 381.37 moveto
4049 (span) show
4050 /Times-Roman findfont
4051 12 scalefont
4052 setfont
4053 766.27 381.37 moveto
4054 (gled) show
4055 686.90 428.09 1.000000 4n
4056 690.58 428.84 moveto
4057 690.58 449.09 lineto stroke
4058 726.79 428.09 1.000000 4n
4059 730.48 428.84 moveto
4060 730.48 449.09 lineto stroke
4061 767.73 428.09 1.000000 4n
4062 771.42 428.84 moveto
4063 771.42 449.09 lineto stroke
4064 686.90 422.09 1.000000 4n
4065 683.22 421.34 moveto
4066 683.22 401.09 lineto stroke
4067 726.79 422.09 1.000000 4n
4068 723.11 421.34 moveto
4069 723.11 401.09 lineto stroke
4070 775.10 425.09 1.000000 4n
4071 771.42 424.34 moveto
4072 771.42 404.09 lineto stroke
4073 restore
4074 %  S_STAFF
4075 % staff 2
4076 save
4077 686.90 352.77 1.000000 4n
4078 0.70 setlinewidth
4079 690.58 353.52 moveto
4080 690.58 373.77 lineto stroke
4081 726.79 352.77 1.000000 4n
4082 730.48 353.52 moveto
4083 730.48 373.77 lineto stroke
4084 771.42 352.77 1.000000 4n
4085 762.06 352.77 1.000000 sharp
4086 775.10 353.52 moveto
4087 775.10 373.77 lineto stroke
4088 686.90 340.77 1.000000 4n
4089 683.22 340.02 moveto
4090 683.22 319.77 lineto stroke
4091 726.79 340.77 1.000000 4n
4092 723.11 340.02 moveto
4093 723.11 319.77 lineto stroke
4094 771.42 337.77 1.000000 4n
4095 767.73 337.02 moveto
4096 767.73 316.77 lineto stroke
4097 restore
4098 %  S_BAR
4099 168 linenum
4100 0.70 setlinewidth
4101 812.22 449.09 moveto
4102 812.22 328.77 lineto stroke
4103 %  S_FEED
4104 215.71 760.77 812.57 5 1.000000 1.000000 stf
4105 /Times-Roman findfont
4106 11 scalefont
4107 setfont
4108 76.21 282.77 moveto
4109 (20) show
4110 215.71 658.50 812.57 5 1.000000 1.000000 stf
4111 71.21 268.77 142.50 brace
4112 71.71 268.77 moveto
4113 71.71 142.50 lineto stroke
4114 %  S_CLEFSIG
4115 83.51 250.77 1.000000 gclef
4116 83.76 160.50 1.000000 fclef
4117 98.12 268.77 1.000000 sharp
4118 104.76 259.77 1.000000 sharp
4119 111.40 271.77 1.000000 sharp
4120 98.12 160.50 1.000000 sharp
4121 104.76 151.50 1.000000 sharp
4122 111.40 163.50 1.000000 sharp
4123 %  S_CHHEAD
4124 %  S_STAFF
4125 % staff 1
4126 save
4127 169 linenum
4128 /Times-Roman findfont
4129 12 scalefont
4130 setfont
4131 151.54 207.05 moveto
4132 (-) show
4133 /Times-Roman findfont
4134 12 scalefont
4135 setfont
4136 128.56 207.05 moveto
4137 (ban) show
4138 /Times-Roman findfont
4139 12 scalefont
4140 setfont
4141 160.23 207.05 moveto
4142 (ner) show
4143 /Times-Roman findfont
4144 12 scalefont
4145 setfont
4146 206.13 207.05 moveto
4147 (yet) show
4148 133.87 256.77 1.000000 4n
4149 137.56 257.52 moveto
4150 137.56 277.77 lineto stroke
4151 164.05 262.77 1.000000 4n
4152 167.73 263.52 moveto
4153 167.73 281.85 lineto stroke
4154 192.78 259.77 1.000000 4n
4155 196.46 260.52 moveto
4156 196.46 278.85 lineto stroke
4157 209.78 256.77 1.000000 4n
4158 213.46 257.52 moveto
4159 213.46 275.95 lineto stroke
4160 247.99 253.77 1.000000 4n
4161 251.67 254.52 moveto
4162 251.67 272.95 lineto stroke
4163 newpath
4164 167.38 283.35 moveto
4165 196.81 280.35 lineto
4166 196.81 277.35 lineto
4167 167.38 280.35 lineto
4168 closepath
4169 fill
4170 newpath
4171 213.11 277.45 moveto
4172 252.02 274.45 lineto
4173 252.02 271.45 lineto
4174 213.11 274.45 lineto
4175 closepath
4176 fill
4177 133.87 241.77 1.000000 4n
4178 130.19 241.02 moveto
4179 130.19 220.77 lineto stroke
4180 164.05 247.77 1.000000 4n
4181 160.37 247.02 moveto
4182 160.37 226.77 lineto stroke
4183 209.78 247.77 1.000000 4n
4184 206.10 247.02 moveto
4185 206.10 226.77 lineto stroke
4186 215.81 261.87 moveto
4187 215.80 262.07 lineto
4188 221.16 263.65 226.63 264.19 232.21 263.67 curveto
4189 237.78 263.15 243.06 261.61 248.04 259.06 curveto
4190 247.94 258.68 lineto
4191 242.84 260.68 237.55 261.94 232.09 262.45 curveto
4192 226.63 262.96 221.21 262.70 215.83 261.67 curveto
4193 fill
4194 170.08 267.87 moveto
4195 170.06 268.09 lineto
4196 173.85 269.68 177.79 270.20 181.86 269.66 curveto
4197 185.94 269.12 189.61 267.59 192.86 265.08 curveto
4198 192.70 264.66 lineto
4199 189.29 266.65 185.62 267.91 181.70 268.43 curveto
4200 177.78 268.95 173.92 268.69 170.10 267.64 curveto
4201 fill
4202 restore
4203 %  S_STAFF
4204 % staff 2
4205 save
4206 133.87 169.50 1.000000 4n
4207 0.70 setlinewidth
4208 137.56 170.25 moveto
4209 137.56 190.50 lineto stroke
4210 164.05 169.50 1.000000 4n
4211 167.73 170.25 moveto
4212 167.73 188.57 lineto stroke
4213 192.78 166.50 1.000000 4n
4214 183.43 166.50 1.000000 sharp
4215 196.46 167.25 moveto
4216 196.46 185.57 lineto stroke
4217 209.78 169.50 1.000000 4n
4218 213.46 170.25 moveto
4219 213.46 189.00 lineto stroke
4220 247.99 169.50 1.000000 4n
4221 238.64 169.50 1.000000 sharp
4222 251.67 170.25 moveto
4223 251.67 189.00 lineto stroke
4224 newpath
4225 167.38 190.07 moveto
4226 196.81 187.07 lineto
4227 196.81 184.07 lineto
4228 167.38 187.07 lineto
4229 closepath
4230 fill
4231 newpath
4232 213.11 190.50 moveto
4233 252.02 190.50 lineto
4234 252.02 187.50 lineto
4235 213.11 187.50 lineto
4236 closepath
4237 fill
4238 133.87 148.50 1.000000 4n
4239 130.19 147.75 moveto
4240 130.19 127.50 lineto stroke
4241 164.05 148.50 1.000000 4n
4242 160.37 147.75 moveto
4243 160.37 128.57 lineto stroke
4244 192.78 151.50 1.000000 4n
4245 189.10 150.75 moveto
4246 189.10 131.57 lineto stroke
4247 209.78 154.50 1.000000 4n
4248 206.10 153.75 moveto
4249 206.10 135.00 lineto stroke
4250 247.99 154.50 1.000000 4n
4251 230.00 154.50 1.000000 sharp
4252 244.31 153.75 moveto
4253 244.31 135.00 lineto stroke
4254 newpath
4255 160.02 130.07 moveto
4256 189.45 133.07 lineto
4257 189.45 130.07 lineto
4258 160.02 127.07 lineto
4259 closepath
4260 fill
4261 newpath
4262 205.75 136.50 moveto
4263 244.66 136.50 lineto
4264 244.66 133.50 lineto
4265 205.75 133.50 lineto
4266 closepath
4267 fill
4268 209.78 149.40 moveto
4269 209.87 149.63 lineto
4270 211.90 148.09 214.18 147.32 216.73 147.32 curveto
4271 219.27 147.32 221.56 148.09 223.59 149.63 curveto
4272 223.77 149.16 lineto
4273 221.87 147.10 219.53 146.07 216.73 146.07 curveto
4274 213.93 146.07 211.58 147.10 209.69 149.16 curveto
4275 fill
4276 164.05 143.40 moveto
4277 164.07 143.62 lineto
4278 167.72 142.58 171.42 142.32 175.18 142.84 curveto
4279 178.94 143.36 182.43 144.61 185.66 146.61 curveto
4280 185.83 146.18 lineto
4281 182.77 143.67 179.27 142.15 175.35 141.61 curveto
4282 171.43 141.07 167.65 141.59 164.02 143.17 curveto
4283 fill
4284 215.81 174.60 moveto
4285 215.78 174.79 lineto
4286 220.95 176.87 226.33 177.91 231.90 177.91 curveto
4287 237.48 177.91 242.85 176.87 248.02 174.79 curveto
4288 247.96 174.40 lineto
4289 242.71 175.92 237.36 176.68 231.90 176.68 curveto
4290 226.44 176.68 221.09 175.92 215.84 174.40 curveto
4291 fill
4292 170.08 174.60 moveto
4293 170.06 174.82 lineto
4294 173.85 176.40 177.79 176.93 181.86 176.39 curveto
4295 185.94 175.85 189.61 174.32 192.86 171.81 curveto
4296 192.70 171.38 lineto
4297 189.29 173.38 185.62 174.64 181.70 175.16 curveto
4298 177.78 175.68 173.92 175.41 170.10 174.37 curveto
4299 fill
4300 restore
4301 %  S_BAR
4302 175 linenum
4303 0.70 setlinewidth
4304 267.65 268.77 moveto
4305 267.65 142.50 lineto stroke
4306 %  S_CHHEAD
4307 %  S_STAFF
4308 % staff 1
4309 save
4310 177 linenum
4311 /Times-Roman findfont
4312 12 scalefont
4313 setfont
4314 273.37 207.05 moveto
4315 (wave) show
4316 /Times-Roman findfont
4317 12 scalefont
4318 setfont
4319 342.95 207.05 moveto
4320 (o'er) show
4321 /Times-Roman findfont
4322 12 scalefont
4323 setfont
4324 367.81 207.05 moveto
4325 (the) show
4326 281.18 253.77 1.000000 4n
4327 284.86 254.52 moveto
4328 284.86 274.77 lineto stroke
4329 311.60 250.77 1.000000 4n
4330 315.28 251.52 moveto
4331 315.28 271.77 lineto stroke
4332 318.31 271.77 1.000000 dnflag
4333 330.83 268.77 1.000000 8rest
4334 347.75 244.77 1.000000 4n
4335 351.44 245.52 moveto
4336 351.44 264.27 lineto stroke
4337 371.47 244.77 1.000000 4n
4338 375.15 245.52 moveto
4339 375.15 264.27 lineto stroke
4340 newpath
4341 351.09 265.77 moveto
4342 375.50 265.77 lineto
4343 375.50 262.77 lineto
4344 351.09 262.77 lineto
4345 closepath
4346 fill
4347 281.18 244.77 1.000000 4n
4348 290.45 241.77 1.000000 dot
4349 277.50 244.02 moveto
4350 277.50 223.77 lineto stroke
4351 330.83 226.77 1.000000 8rest
4352 347.75 244.77 1.000000 4n
4353 344.07 244.02 moveto
4354 344.07 225.27 lineto stroke
4355 371.47 244.77 1.000000 4n
4356 367.78 244.02 moveto
4357 367.78 225.27 lineto stroke
4358 newpath
4359 343.72 226.77 moveto
4360 368.13 226.77 lineto
4361 368.13 223.77 lineto
4362 343.72 223.77 lineto
4363 closepath
4364 fill
4365 287.21 258.87 moveto
4366 287.19 259.09 lineto
4367 291.27 260.67 295.47 261.19 299.81 260.66 curveto
4368 304.15 260.13 308.10 258.60 311.67 256.08 curveto
4369 311.53 255.66 lineto
4370 307.81 257.66 303.85 258.92 299.66 259.43 curveto
4371 295.47 259.95 291.33 259.69 287.23 258.65 curveto
4372 fill
4373 /Times-Roman findfont
4374 12 scalefont
4375 setfont
4376 302.57 273.78 moveto
4377 311.60 273.78 1.000000 ferm
4378 320.64 273.78 moveto
4379 restore
4380 %  S_STAFF
4381 % staff 2
4382 save
4383 281.18 172.50 1.000000 4n
4384 0.70 setlinewidth
4385 274.95 172.50 moveto
4386 287.41 172.50 lineto stroke
4387 284.86 173.25 moveto
4388 284.86 193.50 lineto stroke
4389 311.60 169.50 1.000000 4n
4390 315.28 170.25 moveto
4391 315.28 190.50 lineto stroke
4392 318.31 190.50 1.000000 dnflag
4393 330.83 172.50 1.000000 8rest
4394 347.75 163.50 1.000000 4n
4395 351.44 164.25 moveto
4396 351.44 183.00 lineto stroke
4397 371.47 163.50 1.000000 4n
4398 375.15 164.25 moveto
4399 375.15 183.00 lineto stroke
4400 newpath
4401 351.09 184.50 moveto
4402 375.50 184.50 lineto
4403 375.50 181.50 lineto
4404 351.09 181.50 lineto
4405 closepath
4406 fill
4407 281.18 157.50 1.000000 4n
4408 290.45 157.50 1.000000 dot
4409 277.50 156.75 moveto
4410 277.50 136.50 lineto stroke
4411 330.83 142.50 1.000000 8rest
4412 347.75 154.50 1.000000 4n
4413 344.07 153.75 moveto
4414 344.07 135.00 lineto stroke
4415 371.47 154.50 1.000000 4n
4416 367.78 153.75 moveto
4417 367.78 135.00 lineto stroke
4418 newpath
4419 343.72 136.50 moveto
4420 368.13 136.50 lineto
4421 368.13 133.50 lineto
4422 343.72 133.50 lineto
4423 closepath
4424 fill
4425 287.21 177.60 moveto
4426 287.19 177.82 lineto
4427 291.27 179.40 295.47 179.92 299.81 179.39 curveto
4428 304.15 178.86 308.10 177.33 311.67 174.80 curveto
4429 311.53 174.39 lineto
4430 307.81 176.39 303.85 177.65 299.66 178.16 curveto
4431 295.47 178.68 291.33 178.42 287.23 177.38 curveto
4432 fill
4433 /Times-Roman findfont
4434 12 scalefont
4435 setfont
4436 302.57 192.50 moveto
4437 311.60 192.50 1.000000 ferm
4438 320.64 192.50 moveto
4439 restore
4440 %  S_BAR
4441 183 linenum
4442 0.70 setlinewidth
4443 392.12 268.77 moveto
4444 392.12 142.50 lineto stroke
4445 %  S_CHHEAD
4446 %  S_STAFF
4447 % staff 1
4448 save
4449 184 linenum
4450 425.08 207.05 moveto
4451 451.12 207.05 lineto stroke
4452 /Times-Roman findfont
4453 12 scalefont
4454 setfont
4455 398.51 207.05 moveto
4456 (land) show
4457 /Times-Roman findfont
4458 12 scalefont
4459 setfont
4460 462.92 207.05 moveto
4461 (of) show
4462 /Times-Roman findfont
4463 12 scalefont
4464 setfont
4465 480.90 207.05 moveto
4466 (the) show
4467 405.15 253.77 1.000000 4n
4468 414.41 253.77 1.000000 dot
4469 408.83 254.52 moveto
4470 408.83 274.77 lineto stroke
4471 447.09 256.77 1.000000 4n
4472 450.77 257.52 moveto
4473 450.77 277.77 lineto stroke
4474 453.79 277.77 1.000000 dnflag
4475 465.41 259.77 1.000000 4n
4476 469.09 260.52 moveto
4477 469.09 279.90 lineto stroke
4478 484.55 262.77 1.000000 4n
4479 488.24 263.52 moveto
4480 488.24 282.90 lineto stroke
4481 newpath
4482 468.74 281.40 moveto
4483 488.59 284.40 lineto
4484 488.59 281.40 lineto
4485 468.74 278.40 lineto
4486 closepath
4487 fill
4488 405.15 244.77 1.000000 4n
4489 414.41 241.77 1.000000 dot
4490 401.47 244.02 moveto
4491 401.47 223.77 lineto stroke
4492 447.09 244.77 1.000000 4n
4493 443.40 244.02 moveto
4494 443.40 223.77 lineto stroke
4495 446.43 223.77 1.000000 upflag
4496 465.41 244.77 1.000000 4n
4497 461.73 244.02 moveto
4498 461.73 225.27 lineto stroke
4499 484.55 244.77 1.000000 4n
4500 480.87 244.02 moveto
4501 480.87 225.27 lineto stroke
4502 newpath
4503 461.38 226.77 moveto
4504 481.22 226.77 lineto
4505 481.22 223.77 lineto
4506 461.38 223.77 lineto
4507 closepath
4508 fill
4509 405.15 239.67 moveto
4510 405.18 239.86 lineto
4511 410.89 238.34 416.69 237.58 422.60 237.58 curveto
4512 428.51 237.58 434.32 238.34 440.03 239.86 curveto
4513 440.08 239.48 lineto
4514 434.44 237.40 428.61 236.36 422.60 236.36 curveto
4515 416.59 236.36 410.76 237.40 405.12 239.48 curveto
4516 fill
4517 419.41 258.87 moveto
4518 419.35 259.07 lineto
4519 423.52 261.61 428.04 263.14 432.89 263.66 curveto
4520 437.75 264.19 442.48 263.66 447.10 262.08 curveto
4521 447.07 261.66 lineto
4522 442.43 262.69 437.75 262.95 433.03 262.44 curveto
4523 428.30 261.93 423.78 260.67 419.48 258.67 curveto
4524 fill
4525 restore
4526 %  S_STAFF
4527 % staff 2
4528 save
4529 405.15 166.50 1.000000 4n
4530 414.41 169.50 1.000000 dot
4531 0.70 setlinewidth
4532 408.83 167.25 moveto
4533 408.83 187.50 lineto stroke
4534 447.09 163.50 1.000000 4n
4535 450.77 164.25 moveto
4536 450.77 184.50 lineto stroke
4537 453.79 184.50 1.000000 dnflag
4538 465.41 166.50 1.000000 4n
4539 469.09 167.25 moveto
4540 469.09 186.00 lineto stroke
4541 484.55 166.50 1.000000 4n
4542 488.24 167.25 moveto
4543 488.24 186.00 lineto stroke
4544 newpath
4545 468.74 187.50 moveto
4546 488.59 187.50 lineto
4547 488.59 184.50 lineto
4548 468.74 184.50 lineto
4549 closepath
4550 fill
4551 405.15 151.50 1.000000 4n
4552 414.41 151.50 1.000000 dot
4553 401.47 150.75 moveto
4554 401.47 130.50 lineto stroke
4555 447.09 157.50 1.000000 4n
4556 443.40 156.75 moveto
4557 443.40 136.50 lineto stroke
4558 446.43 136.50 1.000000 upflag
4559 465.41 145.50 1.000000 4n
4560 461.73 144.75 moveto
4561 461.73 125.36 lineto stroke
4562 484.55 148.50 1.000000 4n
4563 480.87 147.75 moveto
4564 480.87 128.36 lineto stroke
4565 newpath
4566 461.38 126.86 moveto
4567 481.22 129.86 lineto
4568 481.22 126.86 lineto
4569 461.38 123.86 lineto
4570 closepath
4571 fill
4572 405.15 146.40 moveto
4573 405.15 146.58 lineto
4574 411.11 146.07 417.05 146.32 422.96 147.34 curveto
4575 428.86 148.35 434.54 150.10 439.99 152.57 curveto
4576 440.11 152.22 lineto
4577 434.82 149.19 429.17 147.17 423.16 146.13 curveto
4578 417.15 145.10 411.15 145.13 405.15 146.21 curveto
4579 fill
4580 419.41 171.60 moveto
4581 419.40 171.81 lineto
4582 424.02 173.39 428.75 173.92 433.61 173.39 curveto
4583 438.46 172.87 442.98 171.33 447.15 168.80 curveto
4584 447.02 168.39 lineto
4585 442.72 170.40 438.20 171.66 433.47 172.17 curveto
4586 428.75 172.68 424.07 172.42 419.43 171.39 curveto
4587 fill
4588 restore
4589 %  S_BAR
4590 190 linenum
4591 0.70 setlinewidth
4592 505.20 268.77 moveto
4593 505.20 142.50 lineto stroke
4594 %  S_CHHEAD
4595 %  S_STAFF
4596 % staff 1
4597 save
4598 192 linenum
4599 /Times-Roman findfont
4600 12 scalefont
4601 setfont
4602 512.28 207.05 moveto
4603 (free) show
4604 /Times-Roman findfont
4605 12 scalefont
4606 setfont
4607 573.45 207.05 moveto
4608 (and) show
4609 /Times-Roman findfont
4610 12 scalefont
4611 setfont
4612 603.21 207.05 moveto
4613 (the) show
4614 516.92 265.77 1.000000 4n
4615 520.61 266.52 moveto
4616 520.61 286.77 lineto stroke
4617 549.57 268.77 1.000000 4rest
4618 577.77 253.77 1.000000 4n
4619 581.45 254.52 moveto
4620 581.45 273.68 lineto stroke
4621 606.86 256.77 1.000000 4n
4622 610.54 257.52 moveto
4623 610.54 276.68 lineto stroke
4624 newpath
4625 581.10 275.18 moveto
4626 610.89 278.18 lineto
4627 610.89 275.18 lineto
4628 581.10 272.18 lineto
4629 closepath
4630 fill
4631 516.92 244.77 1.000000 4n
4632 513.24 244.02 moveto
4633 513.24 223.77 lineto stroke
4634 549.57 238.77 1.000000 4rest
4635 577.77 241.77 1.000000 4n
4636 574.08 241.02 moveto
4637 574.08 222.27 lineto stroke
4638 606.86 241.77 1.000000 4n
4639 603.18 241.02 moveto
4640 603.18 222.27 lineto stroke
4641 newpath
4642 573.73 223.77 moveto
4643 603.53 223.77 lineto
4644 603.53 220.77 lineto
4645 573.73 220.77 lineto
4646 closepath
4647 fill
4648 /Times-Roman findfont
4649 12 scalefont
4650 setfont
4651 507.89 288.78 moveto
4652 516.92 288.78 1.000000 ferm
4653 525.96 288.78 moveto
4654 restore
4655 %  S_STAFF
4656 % staff 2
4657 save
4658 516.92 166.50 1.000000 4n
4659 0.70 setlinewidth
4660 520.61 167.25 moveto
4661 520.61 187.50 lineto stroke
4662 549.57 178.50 1.000000 4rest
4663 577.77 166.50 1.000000 4n
4664 581.45 167.25 moveto
4665 581.45 186.00 lineto stroke
4666 606.86 166.50 1.000000 4n
4667 610.54 167.25 moveto
4668 610.54 186.00 lineto stroke
4669 newpath
4670 581.10 187.50 moveto
4671 610.89 187.50 lineto
4672 610.89 184.50 lineto
4673 581.10 184.50 lineto
4674 closepath
4675 fill
4676 516.92 151.50 1.000000 4n
4677 513.24 150.75 moveto
4678 513.24 130.50 lineto stroke
4679 549.57 142.50 1.000000 4rest
4680 577.77 160.50 1.000000 4n
4681 574.08 159.75 moveto
4682 574.08 141.00 lineto stroke
4683 606.86 160.50 1.000000 4n
4684 598.41 160.50 1.000000 nat
4685 603.18 159.75 moveto
4686 603.18 141.00 lineto stroke
4687 newpath
4688 573.73 142.50 moveto
4689 603.53 142.50 lineto
4690 603.53 139.50 lineto
4691 573.73 139.50 lineto
4692 closepath
4693 fill
4694 /Times-Roman findfont
4695 12 scalefont
4696 setfont
4697 507.89 189.50 moveto
4698 516.92 189.50 1.000000 ferm
4699 525.96 189.50 moveto
4700 restore
4701 %  S_BAR
4702 198 linenum
4703 0.70 setlinewidth
4704 627.51 268.77 moveto
4705 627.51 142.50 lineto stroke
4706 %  S_CHHEAD
4707 %  S_STAFF
4708 % staff 1
4709 save
4710 199 linenum
4711 /Times-Roman findfont
4712 12 scalefont
4713 setfont
4714 633.72 207.05 moveto
4715 (home) show
4716 /Times-Roman findfont
4717 12 scalefont
4718 setfont
4719 679.95 207.05 moveto
4720 (of) show
4721 /Times-Roman findfont
4722 12 scalefont
4723 setfont
4724 700.20 207.05 moveto
4725 (the) show
4726 640.38 259.77 1.000000 4n
4727 649.64 259.77 1.000000 dot
4728 644.06 260.52 moveto
4729 644.06 280.77 lineto stroke
4730 682.43 262.77 1.000000 4n
4731 686.11 263.52 moveto
4732 686.11 283.77 lineto stroke
4733 689.14 283.77 1.000000 dnflag
4734 703.85 256.77 1.000000 4n
4735 707.53 257.52 moveto
4736 707.53 277.77 lineto stroke
4737 640.38 244.77 1.000000 4n
4738 649.64 241.77 1.000000 dot
4739 636.70 244.02 moveto
4740 636.70 223.77 lineto stroke
4741 682.43 244.77 1.000000 4n
4742 678.75 244.02 moveto
4743 678.75 223.77 lineto stroke
4744 681.77 223.77 1.000000 upflag
4745 703.85 241.77 1.000000 4n
4746 700.17 241.02 moveto
4747 700.17 220.77 lineto stroke
4748 restore
4749 %  S_STAFF
4750 % staff 2
4751 save
4752 640.38 166.50 1.000000 4n
4753 649.64 169.50 1.000000 dot
4754 0.70 setlinewidth
4755 644.06 167.25 moveto
4756 644.06 187.50 lineto stroke
4757 682.43 166.50 1.000000 4n
4758 686.11 167.25 moveto
4759 686.11 187.50 lineto stroke
4760 689.14 187.50 1.000000 dnflag
4761 703.85 163.50 1.000000 4n
4762 707.53 164.25 moveto
4763 707.53 184.50 lineto stroke
4764 640.38 157.50 1.000000 4n
4765 649.64 157.50 1.000000 dot
4766 636.70 156.75 moveto
4767 636.70 136.50 lineto stroke
4768 682.43 157.50 1.000000 4n
4769 678.75 156.75 moveto
4770 678.75 136.50 lineto stroke
4771 681.77 136.50 1.000000 upflag
4772 703.85 157.50 1.000000 4n
4773 700.17 156.75 moveto
4774 700.17 136.50 lineto stroke
4775 restore
4776 %  S_BAR
4777 205 linenum
4778 0.70 setlinewidth
4779 735.86 268.77 moveto
4780 735.86 142.50 lineto stroke
4781 %  S_CHHEAD
4782 %  S_STAFF
4783 % staff 1
4784 save
4785 206 linenum
4786 /Times-Roman findfont
4787 12 scalefont
4788 setfont
4789 744.15 207.05 moveto
4790 (brave?) show
4791 752.13 253.77 1.000000 2n
4792 756.03 254.52 moveto
4793 756.03 274.77 lineto stroke
4794 752.13 238.77 1.000000 2n
4795 745.68 238.77 moveto
4796 758.58 238.77 lineto stroke
4797 748.23 238.02 moveto
4798 748.23 217.77 lineto stroke
4799 restore
4800 %  S_STAFF
4801 % staff 2
4802 save
4803 752.13 157.50 1.000000 2n
4804 0.70 setlinewidth
4805 756.03 158.25 moveto
4806 756.03 178.50 lineto stroke
4807 752.13 145.50 1.000000 2n
4808 748.23 144.75 moveto
4809 748.23 124.50 lineto stroke
4810 restore
4811 %  S_BAR
4812 211 linenum
4813 0.70 setlinewidth
4814 807.07 268.77 moveto
4815 807.07 142.50 lineto stroke
4816 3.00 setlinewidth
4817 811.07 268.77 moveto
4818 811.07 142.50 lineto stroke
4819 0.70 setlinewidth
4820 %  Printing header/footer
4821 /Times-Roman findfont
4822 18 scalefont
4823 setfont
4824 342.53 1065.42 moveto
4825 (The Star Spangled Banner) show
4826 /Times-Italic findfont
4827 12 scalefont
4828 setfont
4829 348.37 1052.60 moveto
4830 (\(The United States National Anthem\)) show
4831 /Times-Roman findfont
4832 9 scalefont
4833 setfont
4834 61.71 1042.99 moveto
4835 (Text: Francis Scott Key) show
4836 /Times-Roman findfont
4837 9 scalefont
4838 setfont
4839 750.26 1042.99 moveto
4840 (Tune: J. S. Smith) show
4841 /Times-Roman findfont
4842 9 scalefont
4843 setfont
4844 61.71 1033.38 moveto
4845 /Times-Roman findfont
4846 9 scalefont
4847 setfont
4848 733.19 1033.38 moveto
4849 (arr: William J. Krauss) show
4850 showpage
4851 restore
4852 %%Trailer
4853 %%DocumentFonts: /Times-Roman /Times-Italic /NewCenturySchlbk-Bold
4854 %%Pages: 1