chiark / gitweb /
~mdw / mup / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Import upstream version 5.3.
[mup] / mup / mup / prolog.c
CommitLineData
69695f33
MW		 1/* Copyright 1995, 1996, 1997, 1998 by Arkkra Enterprises */
2
3#include <stdio.h>
4#include "globals.h"
5
6char *prolog_text[] = {
7 "% Copyright (c) 1995, 1996, 1997, 1998, 1999, 2000, 2003, 2004 by Arkkra Enterprises",
8 "% All rights reserved",
9 "",
10 "% Mup PostScript Prolog 5.3 for use with Mup 5.3",
11 "",
12 "% lwid is used as the width of a standard (thin) line in the music",
13 "% character definitions.",
14 "/lwid 70 def",
15 "/halflwid lwid 2 div def",
16 "",
17 "% Define the following for use in do_upshortnote, do_dnshortnote, and",
18 "% do_shortrest; it has to be done outside of the music font definition.",
19 "/utildict 10 dict def",
20 "utildict begin",
21 " /setnumflags { /numflags exch def } def",
22 " /sethooksm1 { /hooksm1 exch def } def",
23 " /setoffsets { /offsets exch def } def",
24 " /setx { /x exch def } def",
25 " /sety { /y exch def } def",
26 "end",
27 "",
28 "% Define a music character font. Each music character is defined as if it",
29 "% were a normal ASCII character in a strange font where \"A\" looks like a",
30 "% treble clef, \"B\" looks like a bass clef, etc.",
31 "",
32 "/mfont0 100 dict def",
33 "mfont0 begin",
34 " /FontType 3 def",
35 " /FontMatrix [ .001 0 0 0.001 0 0 ] def",
36 " /FontBBox [ -2000 -4030 2000 4030 ] def",
37 " /FontName (Mfont0) def",
38 "",
39 " % set up Encoding vector with standard names",
40 " /Encoding 256 array def",
41 " StandardEncoding Encoding copy",
42 " pop",
43 "",
44 " % the following definitions are used for quarter rests",
45 " /topx -170 def /topy 950 def",
46 " /cor1x 250 def /cor1y 450 def",
47 " /cor2x -300 def /cor2y 200 def",
48 " /cor3x 250 def /cor3y -400 def",
49 "",
50 " % the following definitions are used for double sharps",
51 " /limit 300 halflwid add def",
52 " /off 70 def",
53 " /inbendsmall limit 200 sub def",
54 " /inbendbig limit 20 sub def",
55 " /outbendsmall 100 def",
56 " /outbendbig outbendsmall off add def",
57 "",
58 " %%%%% define routines that will be used by multiple characters %%%%%",
59 " /do_1n {",
60 " gsave",
61 " newpath -10 rotate 1.6 1 scale",
62 " 0 0 325 0 360 arc %outer ellipse",
63 " 1 1.6 div 1 scale 10 rotate %back to original",
64 " 35 rotate 0.85 1.1 scale",
65 " 0 0 275 0 360 arc %inner ellipse",
66 " eofill",
67 " grestore",
68 " } def",
69 " /do_upflag {",
70 " -315 0 moveto",
71 " -300 100 -100 480 0 600 curveto",
72 " 300 960 350 1500 200 1700 curveto",
73 " 130 1700 lineto",
74 " 350 1200 50 650 -315 600 curveto",
75 " fill",
76 " } def",
77 " /do_flat {",
78 " -250 -400 moveto %outer edge of loop",
79 " 500 0 350 650 -250 160 curveto",
80 " -250 160 lwid sub lineto %inner edge of loop",
81 " 100 400 300 0 -250 -400 lwid add curveto",
82 " fill",
83 "",
84 " lwid setlinewidth %stem",
85 " -250 1100 moveto -250 -400 lineto stroke",
86 " } def",
87 " /do_diamond {",
88 " newpath",
89 " 420 0 moveto 0 300 lineto -420 0 lineto",
90 " 0 -300 lineto closepath",
91 " 259 -29 moveto -41 185 lineto -259 29 lineto",
92 " 41 -185 lineto closepath",
93 " eofill",
94 " } def",
95 " /do_2n {",
96 " gsave",
97 " newpath 25 rotate 1.4 1 scale",
98 " 0 0 315 0 360 arc %outer ellipse",
99 " 1 1.4 div 1 scale %back to original",
100 " 1.3 0.5 scale",
101 " 0 0 310 0 360 arc %inner ellipse",
102 " eofill",
103 " grestore",
104 " } def",
105 " /do_4n {",
106 " gsave",
107 " newpath 25 rotate 1.35 1 scale",
108 " 0 0 310 0 360 arc fill",
109 " grestore",
110 " } def",
111 " /do_com {",
112 " newpath",
113 " 330 250 150 0 360 arc fill %knob at upper right",
114 " 465 300 moveto %outer boundary",
115 " 410 500 200 635 0 635 curveto",
116 " -750 635 -750 -635 0 -635 curveto",
117 " 350 -635 480 -300 500 -100 curveto",
118 " 430 -100 lineto %inner boundary",
119 " 380 -300 250 -565 0 -565 curveto",
120 " -450 -565 -450 565 0 565 curveto",
121 " 200 565 370 350 395 300 curveto",
122 " fill",
123 " } def",
124 " /do_ferm {",
125 " 0 0 800 lwid sub 0 180 arc %inner arc",
126 " -800 0 lineto",
127 " 0 270 lwid sub 800 180 0 arcn %outer arc",
128 " 800 0 lineto fill",
129 " 0 120 120 0 360 arc fill %the dot",
130 " } def",
131 " /do_mor {",
132 " gsave",
133 " 0.7 1 scale %scrunch the following horizontally",
134 " 45 rotate %to pretend all lines horz or vertical",
135 " 0 1 1 {",
136 " pop %we don't need the loop variable",
137 " %one half of the mordent",
138 " 0 40 moveto 350 40 lineto 350 -460 lineto",
139 " 750 -460 lineto 750 -540 lineto",
140 " 150 -540 lineto 150 -40 lineto",
141 " 0 -40 lineto fill",
142 " 180 rotate %to do the other half",
143 " } for",
144 " grestore",
145 " } def",
146 " /do_turn {",
147 " gsave",
148 " 0 1 1 {",
149 " pop %we don't need the loop variable",
150 " 0 -100 moveto %outer boundary",
151 " 200 -400 625 -400 625 0 curveto",
152 " 625 200 500 325 300 325 curveto",
153 " 300 185 lineto %inner boundary",
154 " 450 255 555 150 555 0 curveto",
155 " 555 -350 250 -250 0 100 curveto",
156 " fill",
157 " 300 255 70 0 360 arc fill %knob on end",
158 " 180 rotate %to do the other half",
159 " } for",
160 " grestore",
161 " } def",
162 "",
163 " /do_upshortnote {",
164 " utildict begin",
165 " setnumflags %set numflags from the stack",
166 " gsave",
167 " -330 0 translate %half a flag width",
168 " do_4n %do a quarter note head",
169 " lwid setlinewidth",
170 " 370 0 moveto",
171 " 370 2100 numflags 2 sub flagsep mul add lineto stroke",
172 " 670 2100 numflags 2 sub flagsep mul add translate",
173 " 1 -1 scale %reflect across X axis",
174 " 0 1 numflags 1 sub {",
175 " do_upflag %do an upflag",
176 " pop %we don't need the loop variable",
177 " 0 flagsep translate",
178 " } for",
179 " grestore",
180 " end",
181 " } def",
182 "",
183 " /do_dnshortnote {",
184 " utildict begin",
185 " setnumflags %set numflags from the stack",
186 " do_4n %do a quarter note head",
187 " lwid setlinewidth",
188 " -370 0 moveto",
189 " -370 -2100 numflags 2 sub flagsep mul sub lineto stroke",
190 " gsave",
191 " -70 -2100 numflags 2 sub flagsep mul sub translate",
192 " 0 1 numflags 1 sub {",
193 " do_upflag %do an upflag",
194 " pop %we don't need the loop variable",
195 " 0 flagsep translate",
196 " } for",
197 " grestore",
198 " end",
199 " } def",
200 "",
201 " /do_shortrest {",
202 " utildict begin",
203 " sety setx setoffsets sethooksm1 %set variable from the stack",
204 " gsave",
205 " -105.8 offsets mul -600 offsets mul translate",
206 " 0 1 hooksm1 { %loop once per hook",
207 " newpath",
208 " 1 setlinewidth",
209 " gsave",
210 " 1 1.2 scale",
211 " -150 300 1.2 div 140 0 360 arc fill %the dot",
212 " grestore",
213 " lwid setlinewidth",
214 " -50 700 550 255 315 arc %rest of the hook",
215 " hooksm1 lt { stroke 105.8 600 translate } if",
216 " } for",
217 " x y lineto stroke",
218 " grestore",
219 " end",
220 " } def",
221 "",
222 "",
223 " % subsidiary dictionary of character definitions",
224 " /CharStrings 128 dict def",
225 " CharStrings begin",
226 "",
227 " /.notdef {} def",
228 "",
229 " % Here are the definitions of the characters. A stepsize here",
230 " % is 300 units (assuming the character is drawn at its default",
231 " % size).",
232 "",
233 " % gclef",
234 " /A {",
235 " newpath",
236 " %start with inner curl, inside boundary",
237 " -50 -300 moveto",
238 " -450 600 700 700 750 0 curveto",
239 " 750 -800 -700 -800 -700 200 curveto",
240 " -700 900 500 1400 520 2250 curveto",
241 " 520 2900 300 3000 200 3000 curveto",
242 " 100 3000 -400 2500 -200 1800 curveto",
243 " 350 -600 lineto",
244 " 720 -1600 0 -1650 -400 -1400 curveto",
245 "",
246 " %go back to start, drawing the other boundary",
247 " -400 -1480 lineto",
248 " 0 -1700 800 -1700 430 -600 curveto",
249 " -120 1800 lineto",
250 " -300 2400 200 2800 250 2800 curveto",
251 " 400 2800 430 2700 430 2450 curveto",
252 " 430 1800 -900 1200 -900 300 curveto",
253 " -750 -900 800 -900 850 0 curveto",
254 " 900 1100 -750 900 -120 -300 curveto fill",
255 "",
256 " %circle at the bottom",
257 " -300 -1250 250 0 360 arc fill",
258 " } def",
259 "",
260 " % fclef",
261 " /B {",
262 " newpath",
263 " %start with outside boundary, at bottom",
264 " -1000 -1700 moveto",
265 " 100 -1100 500 -600 450 0 curveto",
266 " 450 850 -1100 850 -950 0 curveto",
267 "",
268 " %go back to start, drawing the other boundary",
269 " -880 0 lineto",
270 " -920 400 -600 560 -300 560 curveto",
271 " 0 560 150 400 150 0 curveto",
272 " 150 -400 100 -900 -1000 -1620 curveto fill",
273 "",
274 " %circle at the left",
275 " newpath",
276 " -700 0 250 0 360 arc fill",
277 "",
278 " %do the two dots after the main curve",
279 " 700 -300 100 0 360 arc fill",
280 " 700 300 100 0 360 arc fill",
281 " } def",
282 "",
283 " % cclef",
284 " /C {",
285 " gsave",
286 " %do upper curved part, then scale to do mirror image",
287 " 0 1 1 {",
288 " pop %we don't need the loop variable",
289 " %outer boundary of curve",
290 " -170 0 moveto 100 300 lineto",
291 " 400 -200 750 300 750 650 curveto",
292 " 750 1100 450 1235 250 1235 curveto",
293 " 0 1235 -143 1100 -143 950 curveto",
294 "",
295 " %inner boundary of curve",
296 " 0 950 lineto",
297 " 0 1100 30 1165 250 1165 curveto",
298 " 300 1165 450 1100 450 650 curveto",
299 " 450 400 400 -100 100 400 curveto",
300 " -270 0 lineto fill",
301 " %stroke",
302 " %-270 0 moveto 100 400 lineto",
303 " %400 -100 450 400 450 650 curveto",
304 " %450 1100 300 1165 250 1165 curveto",
305 " %30 1165 0 1100 0 950 curveto",
306 " %stroke",
307 "",
308 " %elliptical ball at end of curve",
309 " gsave",
310 " 1.3 1 scale",
311 " 10 950 120 0 360 arc fill",
312 " grestore",
313 " 1 -1 scale %reflect across X axis",
314 " } for",
315 " grestore",
316 "",
317 " % two vertical lines on the left",
318 " 300 setlinewidth -600 -1200 halflwid sub moveto",
319 " -600 1200 halflwid add lineto stroke",
320 " lwid setlinewidth -300 -1200 halflwid sub moveto",
321 " -300 1200 halflwid add lineto stroke",
322 " } def",
323 "",
324 " % dblwhole",
325 " /D {",
326 " do_1n %do a whole note",
327 " lwid setlinewidth",
328 " -490 -600 moveto -490 600 lineto stroke",
329 " 490 -600 moveto 490 600 lineto stroke",
330 " } def",
331 "",
332 " % 1n",
333 " /E {",
334 " do_1n %do a whole note",
335 " } def",
336 "",
337 " % 2n",
338 " /F {",
339 " do_2n %do a half note",
340 " } def",
341 "",
342 " % 4n",
343 " /G {",
344 " do_4n %do a quarter note head",
345 " } def",
346 "",
347 " % upflag",
348 " /H {",
349 " do_upflag %do an upflag",
350 " } def",
351 "",
352 " % dnflag",
353 " /I {",
354 " gsave",
355 " 1 -1 scale %reflect across X axis",
356 " do_upflag %do an upflag",
357 " grestore",
358 " } def",
359 "",
360 " % dwhrest",
361 " /J {",
362 " 300 setlinewidth",
363 " 0 0 moveto 0 600 lineto stroke",
364 " } def",
365 "",
366 " % 1rest",
367 " /K {",
368 " lwid setlinewidth",
369 " -750 600 moveto 750 600 lineto stroke",
370 " 300 setlinewidth",
371 " -400 450 moveto 400 450 lineto stroke",
372 " } def",
373 "",
374 " % 2rest",
375 " /L {",
376 " lwid setlinewidth",
377 " -750 0 moveto 750 0 lineto stroke",
378 " 300 setlinewidth",
379 " -400 150 moveto 400 150 lineto stroke",
380 " } def",
381 "",
382 " % 4rest",
383 " /M {",
384 " newpath",
385 " cor3x cor3y halflwid add moveto",
386 " %-400 -200 -450 -650 50 -950 lwid add curveto",
387 " -450 -50 -450 -650 50 -950 lwid add curveto",
388 " -150 -650 -100 -250 cor3x cor3y halflwid sub curveto",
389 " fill",
390 "",
391 " cor1x cor1y moveto cor1x 200 sub cor1y 200 add lineto",
392 " cor2x cor2y lineto cor2x 200 add cor2y 200 sub lineto",
393 " fill",
394 "",
395 " lwid setlinewidth",
396 " topx topy moveto cor1x cor1y lineto stroke",
397 " cor2x cor2y moveto cor3x cor3y lineto stroke",
398 " } def",
399 "",
400 " % 8rest",
401 " /N {",
402 " 0 0 0 -600 do_shortrest",
403 " } def",
404 "",
405 " % 16rest",
406 " /O {",
407 " 1 1 100 -1200 do_shortrest",
408 " } def",
409 "",
410 " % 32rest",
411 " /P {",
412 " 2 1 0 -1800 do_shortrest",
413 " } def",
414 "",
415 " % 64rest",
416 " /Q {",
417 " 3 2 -80 -2100 do_shortrest",
418 " } def",
419 "",
420 " % 128rest",
421 " /R {",
422 " 4 2 -150 -2700 do_shortrest",
423 " } def",
424 "",
425 " % 256rest",
426 " /S {",
427 " 5 3 -280 -3300 do_shortrest",
428 " } def",
429 "",
430 " % dot",
431 " /T {",
432 " newpath",
433 " 0 0 120 0 360 arc fill",
434 " } def",
435 "",
436 " % nat",
437 " /U {",
438 " % fill crossbars so that we can do parallelograms",
439 " -235 -470 moveto -235 -270 lineto",
440 " 235 -130 lineto 235 -330 lineto fill",
441 " -235 130 moveto -235 330 lineto",
442 " 235 470 lineto 235 270 lineto fill",
443 "",
444 " % vertical strokes",
445 " lwid setlinewidth",
446 " -200 -380 moveto -200 850 lineto stroke",
447 " 200 -850 moveto 200 380 lineto stroke",
448 " } def",
449 "",
450 " % sharp",
451 " /V {",
452 " % fill crossbars so that we can do parallelograms",
453 " -325 -480 moveto -325 -280 lineto",
454 " 325 -120 lineto 325 -320 lineto fill",
455 " -325 120 moveto -325 320 lineto",
456 " 325 480 lineto 325 280 lineto fill",
457 "",
458 " % vertical strokes",
459 " lwid setlinewidth",
460 " -150 -930 moveto -150 880 lineto stroke",
461 " 150 -880 moveto 150 930 lineto stroke",
462 " } def",
463 "",
464 " % flat",
465 " /W {",
466 " do_flat %do a flat",
467 " } def",
468 "",
469 " % dblsharp",
470 " /X {",
471 " gsave",
472 " 0 1 3 { %loop once for each of 4 sticks",
473 " pop %we don't need the loop variable",
474 " 0 off neg moveto",
475 " outbendbig outbendsmall lineto",
476 " inbendbig inbendsmall lineto",
477 " limit limit lineto",
478 " inbendsmall inbendbig lineto",
479 " outbendsmall outbendbig lineto",
480 " off neg 0 lineto",
481 " fill",
482 " -90 rotate",
483 " } for",
484 " grestore",
485 " } def",
486 "",
487 " % dblflat",
488 " /Y {",
489 " -290 580 290 { %loop once for each flat",
490 "",
491 " gsave",
492 " 1 setlinewidth",
493 " 0 translate %translate left/right (loop var)",
494 " do_flat %do a flat",
495 " grestore",
496 "",
497 " } for",
498 " } def",
499 "",
500 " % xnote",
501 " /Z {",
502 " gsave",
503 " 1.15 1 scale 120 setlinewidth 1 setlinecap %round",
504 " -300 -300 moveto 300 300 lineto stroke",
505 " -300 300 moveto 300 -300 lineto stroke",
506 " grestore",
507 " } def",
508 "",
509 " % dwhdiamond",
510 " /a {",
511 " do_diamond %do a diamond",
512 " lwid setlinewidth",
513 " -420 -600 moveto -420 600 lineto stroke",
514 " 420 -600 moveto 420 600 lineto stroke",
515 " } def",
516 "",
517 " % diamond",
518 " /b {",
519 " do_diamond %do a diamond",
520 " } def",
521 "",
522 " % filldiamond",
523 " /c {",
524 " 420 0 moveto 0 300 lineto",
525 " -420 0 lineto 0 -300 lineto fill",
526 " } def",
527 "",
528 " % up2n",
529 " /d {",
530 " lwid setlinewidth",
531 " 380 0 moveto 380 2100 lineto stroke",
532 " do_2n %do a half note",
533 " } def",
534 "",
535 " % dn2n",
536 " /e {",
537 " lwid setlinewidth",
538 " -380 0 moveto -380 -2100 lineto stroke",
539 " do_2n %do a half note",
540 " } def",
541 "",
542 " % up4n",
543 " /f {",
544 " do_4n %do a quarter note head",
545 " lwid setlinewidth",
546 " 370 0 moveto 370 2100 lineto stroke",
547 " } def",
548 "",
549 " % dn4n",
550 " /g {",
551 " do_4n %do a quarter note head",
552 " lwid setlinewidth",
553 " -370 0 moveto -370 -2100 lineto stroke",
554 " } def",
555 "",
556 " % up8n",
557 " /h {",
558 " gsave",
559 " -330 0 translate % half a flag width",
560 " do_4n %do a quarter note head",
561 " lwid setlinewidth",
562 " 370 0 moveto 370 2100 lineto stroke",
563 " 670 2100 translate",
564 " 1 -1 scale %reflect across X axis",
565 " do_upflag %do an upflag",
566 " grestore",
567 " } def",
568 "",
569 " % dn8n",
570 " /i {",
571 " do_4n %do a quarter note head",
572 " lwid setlinewidth",
573 " -370 0 moveto -370 -2100 lineto stroke",
574 " gsave",
575 " -70 -2100 translate",
576 " do_upflag %do an upflag",
577 " grestore",
578 " } def",
579 "",
580 " % up16n",
581 " /j {",
582 " 2 do_upshortnote",
583 " } def",
584 "",
585 " % dn16n",
586 " /k {",
587 " 2 do_dnshortnote",
588 " } def",
589 "",
590 " % up32n",
591 " /l {",
592 " 3 do_upshortnote",
593 " } def",
594 "",
595 " % dn32n",
596 " /m {",
597 " 3 do_dnshortnote",
598 " } def",
599 "",
600 " % up64n",
601 " /n {",
602 " 4 do_upshortnote",
603 " } def",
604 "",
605 " % dn64n",
606 " /o {",
607 " 4 do_dnshortnote",
608 " } def",
609 "",
610 " % up128n",
611 " /p {",
612 " 5 do_upshortnote",
613 " } def",
614 "",
615 " % dn128n",
616 " /q {",
617 " 5 do_dnshortnote",
618 " } def",
619 "",
620 " % up256n",
621 " /r {",
622 " 6 do_upshortnote",
623 " } def",
624 "",
625 " % dn256n",
626 " /s {",
627 " 6 do_dnshortnote",
628 " } def",
629 "",
630 " % com",
631 " /t {",
632 " do_com %do a common time symbol",
633 " } def",
634 "",
635 " % cut",
636 " /u {",
637 " do_com %do a common time symbol",
638 " lwid setlinewidth",
639 " 0 -900 moveto 0 900 lineto stroke",
640 " } def",
641 "",
642 " % begped",
643 " /v {",
644 " lwid setlinewidth",
645 " -200 600 moveto -200 0 lineto 200 0 lineto stroke",
646 " } def",
647 "",
648 " % pedal",
649 " /w {",
650 " lwid setlinewidth",
651 " -500 0 moveto -450 0 lineto 0 600 lineto",
652 " 450 0 lineto 500 0 lineto stroke",
653 " } def",
654 "",
655 " % endped",
656 " /x {",
657 " lwid setlinewidth",
658 " 200 600 moveto 200 0 lineto -200 0 lineto stroke",
659 " } def",
660 "",
661 " % dnbow",
662 " /y {",
663 " lwid setlinewidth",
664 " -350 0 moveto -350 900 lineto stroke",
665 " 350 0 moveto 350 900 lineto stroke",
666 " 200 setlinewidth",
667 " -350 800 moveto 350 800 lineto stroke",
668 " } def",
669 "",
670 " % upbow",
671 " /z {",
672 " lwid setlinewidth",
673 " -300 900 moveto 0 0 lineto 300 900 lineto stroke",
674 " } def",
675 "",
676 " % wedge",
677 " /one {",
678 " 0 0 moveto -150 500 lineto 150 500 lineto fill",
679 " } def",
680 "",
681 " % uwedge",
682 " /two {",
683 " -150 0 moveto 150 0 lineto 0 500 lineto fill",
684 " } def",
685 "",
686 " % ferm",
687 " /three {",
688 " newpath",
689 " do_ferm %do a right side up fermata",
690 " } def",
691 "",
692 " % uferm",
693 " /four {",
694 " newpath",
695 " gsave",
696 " 0 270 lwid sub 800 add translate %baseline at bottom",
697 " 180 rotate %upside down",
698 " do_ferm %do a right side up fermata",
699 " grestore",
700 " } def",
701 "",
702 " % sign",
703 " /five {",
704 " gsave",
705 " %do upper left curved part, upper right dot;",
706 " %then rotate 180 to do other half",
707 " 0 1 1 {",
708 " pop %we don't need the loop variable",
709 " 0 100 moveto %inner boundary",
710 " -1000 300 -400 750 -200 700 curveto",
711 " -200 800 lineto %outer boundary",
712 " -550 900 -1100 100 0 -100 curveto",
713 " fill",
714 " %dot at end of curve",
715 " -200 700 100 0 360 arc fill",
716 " %dot in upper right quadrant",
717 " 500 200 70 0 360 arc fill",
718 " 180 rotate",
719 " } for",
720 " grestore",
721 "",
722 " %slash through middle",
723 " lwid setlinewidth",
724 " -400 -800 moveto 400 800 lineto stroke",
725 " } def",
726 "",
727 " % coda",
728 " /six {",
729 " newpath",
730 " gsave",
731 " 0.6 1 scale",
732 " 0 0 550 0 360 arc %outside boundary",
733 " 1 0.6 div 1 scale %back to original",
734 " 0.9 1 scale",
735 " 0 0 650 0 360 arc %inside boundary",
736 " eofill",
737 " grestore",
738 " lwid setlinewidth",
739 " 0 -850 moveto 0 850 lineto stroke",
740 " -800 0 moveto 800 0 lineto stroke",
741 " } def",
742 "",
743 " % mor",
744 " /seven {",
745 " do_mor %do a mordent",
746 " } def",
747 "",
748 " % invmor",
749 " /eight {",
750 " do_mor %do a mordent",
751 " lwid setlinewidth",
752 " 0 -450 moveto 0 450 lineto stroke",
753 " } def",
754 "",
755 " % turn",
756 " /nine {",
757 " do_turn %do a turn",
758 " } def",
759 "",
760 " % invturn",
761 " /zero {",
762 " gsave",
763 " 1 -1 scale %reflect across X axis",
764 " do_turn %do a turn",
765 " grestore",
766 " } def",
767 "",
768 " % acc_gt",
769 " /numbersign {",
770 " lwid setlinewidth",
771 " -500 300 moveto 500 0 lineto -500 -300 lineto stroke",
772 " } def",
773 "",
774 " % acc_hat",
775 " /dollar {",
776 " newpath",
777 " -365 0 moveto 0 860 lineto 365 0 lineto",
778 " 150 0 lineto -75 530 lineto -300 0 lineto fill",
779 " } def",
780 "",
781 " % acc_uhat",
782 " /quotedbl {",
783 " newpath",
784 " 365 860 moveto 0 0 lineto -365 860 lineto",
785 " -150 860 lineto 75 330 lineto 300 860 lineto fill",
786 " } def",
787 "",
788 " % tr",
789 " /asterisk {",
790 " %vertical bar of t",
791 " -350 1000 moveto -550 200 lineto",
792 " -612.5 -50 -212.5 -50 -160 200 curveto",
793 " -230 200 lineto",
794 " -300 50 -420 50 -400 200 curveto",
795 " -200 1000 lineto fill",
796 "",
797 " %crossbar of t and vertical bar of r",
798 " -700 600 moveto -160 600 lineto",
799 " 20 600 30 520 60 440 curveto",
800 " -50 0 lineto 70 0 lineto 180 440 lineto",
801 " 190 480 100 670 -150 670 curveto",
802 " -690 670 lineto fill",
803 "",
804 " %horizontal curve of r",
805 " 100 480 moveto",
806 " 300 630 450 700 650 550 curveto",
807 " 560 480 lineto",
808 " 450 630 300 560 100 390 curveto",
809 " fill",
810 "",
811 " %knob at end of r",
812 " 600 460 100 0 360 arc fill",
813 " } def",
814 "",
815 " % leg",
816 " /comma {",
817 " 100 setlinewidth",
818 " -400 0 moveto 400 0 lineto stroke",
819 " } def",
820 "",
821 " % rr",
822 " /hyphen {",
823 " 100 setlinewidth",
824 " -400 0 moveto 0 1000 lineto stroke",
825 " 0 0 moveto 400 1000 lineto stroke",
826 " } def",
827 "",
828 " % measrpt",
829 " /period {",
830 " newpath -450 400 150 0 360 arc fill",
831 " newpath 450 -400 150 0 360 arc fill",
832 " 200 setlinewidth",
833 " -550 -600 moveto 550 600 lineto stroke",
834 " } def",
835 "",
836 " % copyright",
837 " /slash {",
838 " lwid setlinewidth",
839 " newpath 0 400 400 0 360 arc stroke",
840 " newpath 0 400 200 45 315 arc stroke",
841 " } def",
842 "",
843 " % dim",
844 " /quoteleft {",
845 " 50 setlinewidth",
846 " newpath 0 640 220 0 360 arc stroke",
847 " } def",
848 "",
849 " % halfdim",
850 " /quoteright {",
851 " 50 setlinewidth",
852 " newpath 0 640 220 0 360 arc stroke",
853 " newpath -340 300 moveto 340 980 lineto stroke",
854 " } def",
855 "",
856 " % triangle",
857 " /asciicircum {",
858 " 50 setlinewidth",
859 " newpath -340 -10 moveto 0 710 lineto",
860 " 340 -10 lineto closepath stroke",
861 " } def",
862 "",
863 " % qwhrest",
864 " /ampersand {",
865 " 300 setlinewidth",
866 " 0 -600 moveto 0 600 lineto stroke",
867 " } def",
868 "",
869 " % ll1rest",
870 " /exclam {",
871 " 310 setlinewidth",
872 " -400 455 moveto 400 450 lineto stroke",
873 " } def",
874 "",
875 " % ll2rest",
876 " /at {",
877 " 310 setlinewidth",
878 " -400 145 moveto 400 150 lineto stroke",
879 " } def",
880 " end",
881 "",
882 " /BuildChar {",
883 "",
884 " exch begin",
885 " Encoding exch get",
886 "",
887 " dup",
888 " Mcbbox0 exch get",
889 " aload pop setcachedevice",
890 "",
891 " CharStrings exch get",
892 " exec",
893 " end",
894 " } def",
895 "end",
896 "",
897 "",
898 "% Define another music character font, since there are too many to fit in one",
899 "% font. It works the same way as the first one.",
900 "",
901 "/mfont1 100 dict def",
902 "mfont1 begin",
903 " /FontType 3 def",
904 " /FontMatrix [ .001 0 0 0.001 0 0 ] def",
905 " /FontBBox [ -2000 -4030 2000 4030 ] def",
906 " /FontName (Mfont1) def",
907 "",
908 " % set up Encoding vector with standard names",
909 " /Encoding 256 array def",
910 " StandardEncoding Encoding copy",
911 " pop",
912 "",
913 " %%%%% define routines that will be used by multiple characters %%%%%",
914 "",
915 " /do_dwh_bars {",
916 " % the two bars surrounding a double whole note",
917 " lwid setlinewidth",
918 " -420 -600 moveto -420 600 lineto stroke",
919 " 420 -600 moveto 420 600 lineto stroke",
920 " } def",
921 " /do_righttriangle {",
922 " newpath",
923 " 420 270 moveto -420 270 lineto 350 -300 lineto 420 -300 lineto",
924 " 350 150 moveto -140 150 lineto 350 -213 lineto",
925 " eofill",
926 " } def",
927 " /do_fillrighttriangle {",
928 " newpath",
929 " 420 270 moveto -420 270 lineto 350 -300 lineto 420 -300 lineto",
930 " fill",
931 " } def",
932 " /do_rectangle {",
933 " newpath",
934 " 420 270 moveto -420 270 lineto -420 -270 lineto 420 -270 lineto",
935 " 350 150 moveto -350 150 lineto -350 -150 lineto 350 -150 lineto",
936 " eofill",
937 " } def",
938 " /do_isostriangle {",
939 " newpath",
940 " 0 300 moveto -420 -270 lineto 420 -270 lineto",
941 " 0 182 moveto -245 -150 lineto 245 -150 lineto",
942 " eofill",
943 " } def",
944 " /do_piewedge {",
945 " newpath",
946 " 0 -300 moveto 0 -244 514 35 145 arc",
947 " 0 -209 moveto 0 -244 394 43 137 arc",
948 " eofill",
949 " } def",
950 " /do_semicircle {",
951 " newpath",
952 " gsave",
953 " 1 1.357 scale 420 199 moveto 0 199 420 180 360 arc",
954 " 1 1.09 scale 350 111 moveto 0 199 350 194.1 345.9 arc",
955 " eofill",
956 " grestore",
957 " } def",
958 " /do_slashhead {",
959 " newpath",
960 " lwid setlinewidth",
961 " -620 -530 moveto -480 -670 lineto 620 530 lineto 480 670 lineto",
962 " closepath stroke",
963 " } def",
964 "",
965 " % subsidiary dictionary of character definitions",
966 " /CharStrings 128 dict def",
967 " CharStrings begin",
968 "",
969 " /.notdef {} def",
970 "",
971 " % Here are the definitions of the characters. A stepsize here",
972 " % is 300 units (assuming the character is drawn at its default",
973 " % size).",
974 "",
975 " % dwhrighttriangle",
976 " /A {",
977 " do_righttriangle",
978 " do_dwh_bars",
979 " } def",
980 "",
981 " % righttriangle",
982 " /B {",
983 " do_righttriangle",
984 " } def",
985 "",
986 " % fillrighttriangle",
987 " /C {",
988 " newpath",
989 " 420 270 moveto -420 270 lineto 350 -300 lineto",
990 " 420 -300 lineto",
991 " fill",
992 " } def",
993 "",
994 " % udwhrighttriangle",
995 " /D {",
996 " gsave",
997 " 180 rotate",
998 " do_righttriangle",
999 " do_dwh_bars",
1000 " grestore",
1001 " } def",
1002 "",
1003 " % urighttriangle",
1004 " /E {",
1005 " gsave",
1006 " 180 rotate",
1007 " do_righttriangle",
1008 " grestore",
1009 " } def",
1010 "",
1011 " % ufillrighttriangle",
1012 " /F {",
1013 " gsave",
1014 " 180 rotate",
1015 " do_fillrighttriangle",
1016 " grestore",
1017 " } def",
1018 "",
1019 " % dwhrectangle",
1020 " /G {",
1021 " do_rectangle",
1022 " do_dwh_bars",
1023 " } def",
1024 "",
1025 " % rectangle",
1026 " /H {",
1027 " do_rectangle",
1028 " } def",
1029 "",
1030 " % fillrectangle",
1031 " /I {",
1032 " newpath",
1033 " 420 270 moveto -420 270 lineto -420 -270 lineto",
1034 " 420 -270 lineto",
1035 " fill",
1036 " } def",
1037 "",
1038 " % dwhisostriangle",
1039 " /J {",
1040 " do_isostriangle",
1041 " do_dwh_bars",
1042 " } def",
1043 "",
1044 " % isostriangle",
1045 " /K {",
1046 " do_isostriangle",
1047 " } def",
1048 "",
1049 " % fillisostriangle",
1050 " /L {",
1051 " newpath",
1052 " 0 300 moveto -420 -270 lineto 420 -270 lineto",
1053 " fill",
1054 " } def",
1055 "",
1056 " % dwhpiewedge",
1057 " /M {",
1058 " do_piewedge",
1059 " do_dwh_bars",
1060 " } def",
1061 "",
1062 " % piewedge",
1063 " /N {",
1064 " do_piewedge",
1065 " } def",
1066 "",
1067 " % fillpiewedge",
1068 " /O {",
1069 " newpath",
1070 " 0 -300 moveto 0 -244 514 35 145 arc",
1071 " fill",
1072 " } def",
1073 "",
1074 " % dwhsemicircle",
1075 " /P {",
1076 " do_semicircle",
1077 " do_dwh_bars",
1078 " } def",
1079 "",
1080 " % semicircle",
1081 " /Q {",
1082 " do_semicircle",
1083 " } def",
1084 "",
1085 " % fillsemicircle",
1086 " /R {",
1087 " newpath",
1088 " gsave",
1089 " 1 570 420 div scale",
1090 " 420 199 moveto 0 199 420 180 360 arc",
1091 " fill",
1092 " grestore",
1093 " } def",
1094 "",
1095 " % dwhslashhead",
1096 " /S {",
1097 " do_slashhead",
1098 " lwid setlinewidth",
1099 " -650 -600 moveto -650 600 lineto stroke",
1100 " 650 -600 moveto 650 600 lineto stroke",
1101 " } def",
1102 "",
1103 " % slashhead",
1104 " /T {",
1105 " do_slashhead",
1106 " } def",
1107 "",
1108 " % fillslashhead",
1109 " /U {",
1110 " newpath",
1111 " 200 setlinewidth",
1112 " -550 -600 moveto 550 600 lineto stroke",
1113 " } def",
1114 "",
1115 " % blankhead",
1116 " /V {",
1117 " %print nothing",
1118 " } def",
1119 " end",
1120 "",
1121 " /BuildChar {",
1122 "",
1123 " exch begin",
1124 " Encoding exch get",
1125 "",
1126 " dup",
1127 " Mcbbox1 exch get",
1128 " aload pop setcachedevice",
1129 "",
1130 " CharStrings exch get",
1131 " exec",
1132 " end",
1133 " } def",
1134 "end",
1135 "",
1136 "",
1137 "% General routines for printing any music character, invoked by each music",
1138 "% character's specific routine below. The scaling factor (default 1) needs",
1139 "% to be multiplied by 10 to get the actual size. These routines restore the",
1140 "% preexisting current font when they are done.",
1141 "",
1142 "/printmchar0 {",
1143 " gsave",
1144 " /musicchar exch def",
1145 " /Mfont0 findfont exch 10 mul scalefont setfont moveto ",
1146 " musicchar show",
1147 " grestore",
1148 "} def",
1149 "/printmchar1 {",
1150 " gsave",
1151 " /musicchar exch def",
1152 " /Mfont1 findfont exch 10 mul scalefont setfont moveto ",
1153 " musicchar show",
1154 " grestore",
1155 "} def",
1156 "",
1157 "% Define each music character name to be a routine that prints the character.",
1158 "% Each character is to be invoked as in this example:",
1159 "% 100 200 1 gclef % at (100, 200), scale to default size & print",
1160 "",
1161 "/gclef { (A) printmchar0 } def",
1162 "/fclef { (B) printmchar0 } def",
1163 "/cclef { (C) printmchar0 } def",
1164 "/dblwhole { (D) printmchar0 } def",
1165 "/1n { (E) printmchar0 } def",
1166 "/2n { (F) printmchar0 } def",
1167 "/4n { (G) printmchar0 } def",
1168 "/upflag { (H) printmchar0 } def",
1169 "/dnflag { (I) printmchar0 } def",
1170 "/dwhrest { (J) printmchar0 } def",
1171 "/1rest { (K) printmchar0 } def",
1172 "/2rest { (L) printmchar0 } def",
1173 "/4rest { (M) printmchar0 } def",
1174 "/8rest { (N) printmchar0 } def",
1175 "/16rest { (O) printmchar0 } def",
1176 "/32rest { (P) printmchar0 } def",
1177 "/64rest { (Q) printmchar0 } def",
1178 "/128rest { (R) printmchar0 } def",
1179 "/256rest { (S) printmchar0 } def",
1180 "/dot { (T) printmchar0 } def",
1181 "/nat { (U) printmchar0 } def",
1182 "/sharp { (V) printmchar0 } def",
1183 "/flat { (W) printmchar0 } def",
1184 "/dblsharp { (X) printmchar0 } def",
1185 "/dblflat { (Y) printmchar0 } def",
1186 "/xnote { (Z) printmchar0 } def",
1187 "/dwhdiamond { (a) printmchar0 } def",
1188 "/diamond { (b) printmchar0 } def",
1189 "/filldiamond { (c) printmchar0 } def",
1190 "/up2n { (d) printmchar0 } def",
1191 "/dn2n { (e) printmchar0 } def",
1192 "/up4n { (f) printmchar0 } def",
1193 "/dn4n { (g) printmchar0 } def",
1194 "/up8n { (h) printmchar0 } def",
1195 "/dn8n { (i) printmchar0 } def",
1196 "/up16n { (j) printmchar0 } def",
1197 "/dn16n { (k) printmchar0 } def",
1198 "/up32n { (l) printmchar0 } def",
1199 "/dn32n { (m) printmchar0 } def",
1200 "/up64n { (n) printmchar0 } def",
1201 "/dn64n { (o) printmchar0 } def",
1202 "/up128n { (p) printmchar0 } def",
1203 "/dn128n { (q) printmchar0 } def",
1204 "/up256n { (r) printmchar0 } def",
1205 "/dn256n { (s) printmchar0 } def",
1206 "/com { (t) printmchar0 } def",
1207 "/cut { (u) printmchar0 } def",
1208 "/begped { (v) printmchar0 } def",
1209 "/pedal { (w) printmchar0 } def",
1210 "/endped { (x) printmchar0 } def",
1211 "/dnbow { (y) printmchar0 } def",
1212 "/upbow { (z) printmchar0 } def",
1213 "/wedge { (1) printmchar0 } def",
1214 "/uwedge { (2) printmchar0 } def",
1215 "/ferm { (3) printmchar0 } def",
1216 "/uferm { (4) printmchar0 } def",
1217 "/sign { (5) printmchar0 } def",
1218 "/coda { (6) printmchar0 } def",
1219 "/mor { (7) printmchar0 } def",
1220 "/invmor { (8) printmchar0 } def",
1221 "/turn { (9) printmchar0 } def",
1222 "/invturn { (0) printmchar0 } def",
1223 "/acc_gt { (#) printmchar0 } def",
1224 "/acc_hat { ($) printmchar0 } def",
1225 "/acc_uhat { (\") printmchar0 } def",
1226 "/tr { (*) printmchar0 } def",
1227 "/leg { (,) printmchar0 } def",
1228 "/rr { (-) printmchar0 } def",
1229 "/measrpt { (.) printmchar0 } def",
1230 "/copyright { (/) printmchar0 } def",
1231 "/dim { (`) printmchar0 } def",
1232 "/halfdim { (') printmchar0 } def",
1233 "/triangle { (^) printmchar0 } def",
1234 "/qwhrest { (&) printmchar0 } def",
1235 "/ll1rest { (!) printmchar0 } def",
1236 "/ll2rest { (@) printmchar0 } def",
1237 "/dwhrighttriangle { (A) printmchar1 } def",
1238 "/righttriangle { (B) printmchar1 } def",
1239 "/fillrighttriangle { (C) printmchar1 } def",
1240 "/udwhrighttriangle { (D) printmchar1 } def",
1241 "/urighttriangle { (E) printmchar1 } def",
1242 "/ufillrighttriangle { (F) printmchar1 } def",
1243 "/dwhrectangle { (G) printmchar1 } def",
1244 "/rectangle { (H) printmchar1 } def",
1245 "/fillrectangle { (I) printmchar1 } def",
1246 "/dwhisostriangle { (J) printmchar1 } def",
1247 "/isostriangle { (K) printmchar1 } def",
1248 "/fillisostriangle { (L) printmchar1 } def",
1249 "/dwhpiewedge { (M) printmchar1 } def",
1250 "/piewedge { (N) printmchar1 } def",
1251 "/fillpiewedge { (O) printmchar1 } def",
1252 "/dwhsemicircle { (P) printmchar1 } def",
1253 "/semicircle { (Q) printmchar1 } def",
1254 "/fillsemicircle { (R) printmchar1 } def",
1255 "/dwhslashhead { (S) printmchar1 } def",
1256 "/slashhead { (T) printmchar1 } def",
1257 "/fillslashhead { (U) printmchar1 } def",
1258 "/blankhead { (V) printmchar1 } def",
1259 "",
1260 "",
1261 "% Define routines for Mup output other than music characters.",
1262 "",
1263 "/stepsize 3 def % define a step size as 3 points (at default magnification)",
1264 "",
1265 "% x1 y1 x2 lines dist staffscale staff",
1266 "% draw a staff starting at x1, y1 and extending to x2 with \"lines\"",
1267 "% lines, 2*dist*stepsize apart, scaled by staffscale",
1268 "/staff {",
1269 " /staffscale exch def",
1270 " /dist exch def",
1271 " /lines exch def",
1272 " /x2 exch def",
1273 " /y1 exch def",
1274 " /x1 exch def",
1275 " 0.7 staffscale mul sb setlinewidth",
1276 " 1 lines sub 2 lines 1 sub { % loop from bottom line to top line",
1277 " dup stepsize mul staffscale mul dist mul y1 add x1 exch moveto",
1278 " stepsize mul staffscale mul dist mul y1 add x2 exch lineto stroke",
1279 " } for",
1280 "} def",
1281 "",
1282 "% x y1 y2 bracket draw a bracket; y1 is the top",
1283 "/bracket {",
1284 " /y2 exch def",
1285 " /y1 exch def",
1286 " /x exch def",
1287 " gsave",
1288 " 3 setlinewidth",
1289 " x 2 sub y1 1 add moveto",
1290 " x 2 sub y2 1 sub lineto",
1291 " stroke",
1292 " x 2 sub y1 1 add moveto",
1293 " x 1 sub y1 1 add x 3 add y1 1 add x 5 add y1 6 add curveto",
1294 " x 6 add y1 5 add lineto",
1295 " x 5 add y1 2 add x 1 add y1 2 sub x 2 sub y1 2 sub curveto",
1296 " fill",
1297 " x 2 sub y2 1 sub moveto",
1298 " x 1 sub y2 1 sub x 3 add y2 1 sub x 5 add y2 6 sub curveto",
1299 " x 6 add y2 5 sub lineto",
1300 " x 5 add y2 2 sub x 1 add y2 2 add x 2 sub y2 2 add curveto",
1301 " fill",
1302 " grestore",
1303 "} def",
1304 "",
1305 "% x y1 y2 brace draw a brace; y1 is the top",
1306 "/brace {",
1307 " /y2 exch def",
1308 " /y1 exch def",
1309 " /x exch def",
1310 " gsave",
1311 " x 9 sub y1 y2 add 2 div translate",
1312 " /topy y1 y2 sub 2 div 1 sub def",
1313 " 0 1 1 {",
1314 " pop",
1315 " %0 topy moveto 0 0 lineto stroke",
1316 " 0 0 moveto",
1317 " 16 topy 0.2 mul -11 topy 0.6 mul 8 topy curveto",
1318 " 8.7 topy lineto",
1319 " -7 topy 0.7 mul 20 topy 0.3 mul 1 0 curveto",
1320 " fill",
1321 " 1 -1 scale % flip to do bottom half",
1322 " } for",
1323 " grestore",
1324 "} def",
1325 "",
1326 "% endx endy wavy staffscale draw a wavy line from current point to here,",
1327 "% scaled by staffscale",
1328 "/wavy {",
1329 " /staffscale exch def",
1330 " /endy exch def % define the end point of the line",
1331 " /endx exch def",
1332 " currentpoint % line starts at current point",
1333 " /begy exch def % define the beginning point of the line",
1334 " /begx exch def",
1335 " gsave",
1336 " /dx endx begx sub def % find delta x and delta y",
1337 " /dy endy begy sub def",
1338 " /r dx dx mul dy dy mul add sqrt def % hypotenuse",
1339 " /theta dy dx atan def % angle with positive x axis",
1340 " begx begy translate % change axes so that we can draw the line",
1341 " theta rotate % from (0, 0) to (r, 0)",
1342 " staffscale staffscale scale % scale everything by staffscale",
1343 " /scaledr r staffscale div def % but scale r in reverse to keep length",
1344 "",
1345 " % Each outer loop draws one cycle of the squiggle. It continues until",
1346 " % we are at or beyond the desired end point.",
1347 " 0 0 moveto",
1348 " 0 6 scaledr {",
1349 " gsave",
1350 " % first loop draws left half of squiggle; second draws right",
1351 " 0 1 1 {",
1352 " 0.0 0.4 moveto",
1353 " 2.0 1.9 3.4 2.3 3.9 0.0 curveto",
1354 " 2.1 0.0 lineto",
1355 " 1.9 0.8 1.4 0.7 0.0 -0.4 curveto",
1356 " fill",
1357 " pop 180 rotate -6 0 translate",
1358 " } for",
1359 " grestore",
1360 "",
1361 " pop 6 0 translate % shift axes right one squiggle",
1362 " } for",
1363 "",
1364 " grestore",
1365 "} def",
1366 "",
1367 "% x y space frets fretno numvert curvel curver [ f1 f2 f3 ... ] grid",
1368 "% print a guitar grid diagram",
1369 "/grid {",
1370 " /grid_positions exch def % 0=\"o\", -1=\"x\", -2=nothing, positive=dot",
1371 " /curver exch def % right string for curve, 0 if none",
1372 " /curvel exch def % left string for curve, 0 if none",
1373 " /numvert exch def % vertical position to print fretno, 0 if none",
1374 " /fretno exch def % fret no. to print at right, 0 if none",
1375 " /frets exch def % number of fret lines",
1376 " /space exch def % points between two neighboring lines",
1377 " /y exch def % y coord of top fret line",
1378 " /x exch def % x coord of left strings",
1379 "",
1380 " gsave",
1381 " /strings grid_positions length def % number of strings",
1382 " /lmarky 0.4 space mul y add def % lowest Y of a \"o\" or \"x\"",
1383 " space 10 div setlinewidth",
1384 " 2 setlinecap",
1385 "",
1386 " % draw the lines of the grid",
1387 " 0 1 strings 1 sub { % loop from left string to right string",
1388 " dup space mul x add y moveto",
1389 " space mul x add frets 1 sub space mul y exch sub lineto stroke",
1390 " } for",
1391 " 0 -1 1 frets sub { % loop from top fret (nut) to bottom fret",
1392 " dup space mul y add x exch moveto",
1393 " space mul y add strings 1 sub space mul x add exch lineto stroke",
1394 " } for",
1395 "",
1396 " % draw the curved line if there is one",
1397 " curvel 0 gt {",
1398 " % within strings curvel to curver, find smallest positive fret",
1399 " /minfret 1000 def",
1400 " curvel 1 curver {",
1401 " /strno exch def",
1402 " /grid_p grid_positions strno 1 sub get def",
1403 " grid_p 0 gt grid_p minfret lt and {",
1404 " /minfret grid_p def",
1405 " } if",
1406 " } for",
1407 "",
1408 " % if curve goes above top fret, other marks must be higher",
1409 " minfret 1 eq {",
1410 " /hmarky 1.2 space mul y add def",
1411 " } {",
1412 " /hmarky lmarky def",
1413 " } ifelse",
1414 "",
1415 " /strdiff curver curvel sub def",
1416 " space 8 div setlinewidth",
1417 "",
1418 " % set endpoint coords of curve; higher if curve is short",
1419 " /curvex1 curvel 1 sub space mul x add def",
1420 " /curvex2 curver 1 sub space mul x add def",
1421 " /curvey 1 minfret sub space mul y add def",
1422 " strdiff 3 lt {",
1423 " /curvey 0.2 strdiff div space mul curvey add def",
1424 " } if",
1425 "",
1426 " % move to left end, set other points, draw curve",
1427 " curvex1 curvey moveto",
1428 "",
1429 " curvex1 curvex2 curvex1 sub 3 div add",
1430 " curvey space 0.4 strdiff sqrt mul mul add",
1431 "",
1432 " curvex2 curvex2 curvex1 sub 3 div sub",
1433 " curvey space 0.4 strdiff sqrt mul mul add",
1434 "",
1435 " curvex2 curvey curveto stroke",
1436 " } if",
1437 "",
1438 " space 10 div setlinewidth",
1439 "",
1440 " % draw dots and x and o marks",
1441 " 0 1 strings 1 sub { % loop from left string to right string",
1442 " /strno exch def % first string is 0",
1443 " /grid_p grid_positions strno get def",
1444 " /strx strno space mul x add def",
1445 "",
1446 " % set Y of mark higher if curved line covers this string",
1447 " strno 1 add curvel ge strno 1 add curver le and {",
1448 " /marky hmarky def",
1449 " } {",
1450 " /marky lmarky def",
1451 " } ifelse",
1452 "",
1453 " grid_p -1 eq { % draw an X above the string",
1454 " /xhwid space 3 div def",
1455 " strx xhwid sub marky xhwid sub moveto",
1456 " strx xhwid add marky xhwid add lineto stroke",
1457 " strx xhwid sub marky xhwid add moveto",
1458 " strx xhwid add marky xhwid sub lineto stroke",
1459 " } if",
1460 " grid_p 0 eq { % draw a circle above the string",
1461 " strx marky space 0.3 mul 0 360 arc stroke",
1462 " } if",
1463 " grid_p 1 ge { % draw a dot by the proper fret",
1464 " strx y grid_p space mul sub space 3 div add",
1465 " space 3 div 0 360 arc fill",
1466 " } if",
1467 " } for",
1468 "",
1469 " % print \"X fr\" if requested",
1470 " fretno 0 gt {",
1471 " /Palatino-Roman findfont space 1.9 mul scalefont setfont",
1472 " x strings 0.5 sub space mul add",
1473 " y space numvert 0.3 add mul sub moveto",
1474 " fretno 2 string cvs show ( fr) show",
1475 " } if",
1476 " grestore",
1477 "} def",
1478 "",
1479 "% x1 y1 x2 y2 whitebox draw a white rectangle with opposite",
1480 "% corners of (x1,y1) and (x2,y2)",
1481 "/whitebox {",
1482 " /y2 exch def",
1483 " /x2 exch def",
1484 " /y1 exch def",
1485 " /x1 exch def",
1486 " 1.0 setgray",
1487 " newpath",
1488 " x1 y1 moveto",
1489 " x1 y2 lineto",
1490 " x2 y2 lineto",
1491 " x2 y1 lineto",
1492 " closepath",
1493 " fill",
1494 " stroke",
1495 " 0.0 setgray",
1496 "} def",
1497 "",
1498 "",
1499 "/LineNum 0 def",
1500 "/InputFile (unknown) def",
1501 "",
1502 "% n linenum",
1503 "/linenum {",
1504 " /LineNum exch def",
1505 "} def",
1506 "",
1507 "% (inputfilename) inputfile",
1508 "/inputfile {",
1509 " /InputFile exch def",
1510 "} def",
1511 "",
1512 "% find size of Encoding and make a dictionary",
1513 "% that size for bounding box information",
1514 "mfont0 begin",
1515 "/dictsize Encoding length def",
1516 "mfont0 /Mcbbox0 dictsize dict put",
1517 "",
1518 "% temporarily redefine printmchar0 to get code",
1519 "5 dict begin",
1520 "/printmchar0 { {} forall } def",
1521 "",
1522 "Mcbbox0 Encoding 128rest get [ 1140.0 0 -515.0 -1515.0 615.0 1685.0 ] put",
1523 "Mcbbox0 Encoding 16rest get [ 830.0 0 -415.0 -1215.0 405.0 485.0 ] put",
1524 "Mcbbox0 Encoding 1n get [ 1080.0 0 -535.0 -335.0 535.0 345.0 ] put",
1525 "Mcbbox0 Encoding 1rest get [ 1540.0 0 -765.0 -5.0 765.0 645.0 ] put",
1526 "Mcbbox0 Encoding 256rest get [ 1250.0 0 -625.0 -2115.0 615.0 1685.0 ] put",
1527 "Mcbbox0 Encoding 2n get [ 880.0 0 -435.0 -345.0 435.0 355.0 ] put",
1528 "Mcbbox0 Encoding 2rest get [ 1540.0 0 -765.0 -45.0 765.0 315.0 ] put",
1529 "Mcbbox0 Encoding 32rest get [ 940.0 0 -415.0 -1215.0 515.0 1085.0 ] put",
1530 "Mcbbox0 Encoding 4n get [ 840.0 0 -415.0 -335.0 415.0 345.0 ] put",
1531 "Mcbbox0 Encoding 4rest get [ 650.0 0 -345.0 -885.0 295.0 985.0 ] put",
1532 "Mcbbox0 Encoding 64rest get [ 1040.0 0 -515.0 -1515.0 515.0 1085.0 ] put",
1533 "Mcbbox0 Encoding 8rest get [ 750.0 0 -305.0 -615.0 435.0 485.0 ] put",
1534 "Mcbbox0 Encoding acc_gt get [ 1170.0 0 -525.0 -335.0 635.0 345.0 ] put",
1535 "Mcbbox0 Encoding acc_hat get [ 780.0 0 -385.0 -5.0 385.0 875.0 ] put",
1536 "Mcbbox0 Encoding acc_uhat get [ 780.0 0 -385.0 -5.0 385.0 875.0 ] put",
1537 "Mcbbox0 Encoding begped get [ 470.0 0 -245.0 -45.0 215.0 615.0 ] put",
1538 "Mcbbox0 Encoding cclef get [ 1540.0 0 -765.0 -1245.0 765.0 1255.0 ] put",
1539 "Mcbbox0 Encoding coda get [ 1640.0 0 -815.0 -855.0 815.0 865.0 ] put",
1540 "Mcbbox0 Encoding com get [ 1100.0 0 -575.0 -635.0 515.0 655.0 ] put",
1541 "Mcbbox0 Encoding copyright get [ 920.0 0 -455.0 -45.0 455.0 855.0 ] put",
1542 "Mcbbox0 Encoding cut get [ 1100.0 0 -575.0 -905.0 515.0 915.0 ] put",
1543 "Mcbbox0 Encoding dblflat get [ 1170.0 0 -595.0 -405.0 565.0 1115.0 ] put",
1544 "Mcbbox0 Encoding dblsharp get [ 720.0 0 -355.0 -345.0 355.0 355.0 ] put",
1545 "Mcbbox0 Encoding dblwhole get [ 1090.0 0 -535.0 -605.0 545.0 615.0 ] put",
1546 "Mcbbox0 Encoding diamond get [ 880.0 0 -435.0 -305.0 435.0 315.0 ] put",
1547 "Mcbbox0 Encoding dim get [ 540.0 0 -265.0 -5.0 265.0 905.0 ] put",
1548 "Mcbbox0 Encoding dn128n get [ 840.0 0 -415.0 -3545.0 415.0 345.0 ] put",
1549 "Mcbbox0 Encoding dn16n get [ 840.0 0 -415.0 -2105.0 415.0 345.0 ] put",
1550 "Mcbbox0 Encoding dn256n get [ 840.0 0 -415.0 -3965.0 415.0 345.0 ] put",
1551 "Mcbbox0 Encoding dn2n get [ 880.0 0 -435.0 -2105.0 435.0 355.0 ] put",
1552 "Mcbbox0 Encoding dn32n get [ 840.0 0 -415.0 -2585.0 415.0 345.0 ] put",
1553 "Mcbbox0 Encoding dn4n get [ 840.0 0 -415.0 -2105.0 415.0 345.0 ] put",
1554 "Mcbbox0 Encoding dn64n get [ 840.0 0 -415.0 -3065.0 415.0 345.0 ] put",
1555 "Mcbbox0 Encoding dn8n get [ 840.0 0 -415.0 -2105.0 415.0 345.0 ] put",
1556 "Mcbbox0 Encoding dnbow get [ 810.0 0 -395.0 -5.0 405.0 915.0 ] put",
1557 "Mcbbox0 Encoding dnflag get [ 640.0 0 -335.0 -1705.0 295.0 15.0 ] put",
1558 "Mcbbox0 Encoding dot get [ 280.0 0 -135.0 -125.0 135.0 135.0 ] put",
1559 "Mcbbox0 Encoding dwhdiamond get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put",
1560 "Mcbbox0 Encoding dwhrest get [ 340.0 0 -165.0 -5.0 165.0 615.0 ] put",
1561 "Mcbbox0 Encoding endped get [ 480.0 0 -215.0 -45.0 255.0 615.0 ] put",
1562 "Mcbbox0 Encoding fclef get [ 1840.0 0 -1015.0 -1705.0 815.0 655.0 ] put",
1563 "Mcbbox0 Encoding ferm get [ 1640.0 0 -815.0 -5.0 815.0 1015.0 ] put",
1564 "Mcbbox0 Encoding filldiamond get [ 880.0 0 -435.0 -305.0 435.0 315.0 ] put",
1565 "Mcbbox0 Encoding flat get [ 580.0 0 -295.0 -405.0 275.0 1115.0 ] put",
1566 "Mcbbox0 Encoding gclef get [ 1790.0 0 -915.0 -1605.0 865.0 3015.0 ] put",
1567 "Mcbbox0 Encoding halfdim get [ 760.0 0 -375.0 -5.0 375.0 1015.0 ] put",
1568 "Mcbbox0 Encoding invmor get [ 1320.0 0 -655.0 -455.0 655.0 465.0 ] put",
1569 "Mcbbox0 Encoding invturn get [ 1300.0 0 -645.0 -335.0 645.0 345.0 ] put",
1570 "Mcbbox0 Encoding leg get [ 840.0 0 -415.0 -55.0 415.0 65.0 ] put",
1571 "Mcbbox0 Encoding ll1rest get [ 840.0 0 -415.0 -5.0 415.0 625.0 ] put",
1572 "Mcbbox0 Encoding ll2rest get [ 840.0 0 -415.0 -15.0 415.0 315.0 ] put",
1573 "Mcbbox0 Encoding measrpt get [ 1300.0 0 -645.0 -675.0 645.0 685.0 ] put",
1574 "Mcbbox0 Encoding mor get [ 1320.0 0 -655.0 -285.0 655.0 295.0 ] put",
1575 "Mcbbox0 Encoding nat get [ 520.0 0 -255.0 -855.0 255.0 865.0 ] put",
1576 "Mcbbox0 Encoding pedal get [ 1040.0 0 -515.0 -45.0 515.0 675.0 ] put",
1577 "Mcbbox0 Encoding qwhrest get [ 340.0 0 -165.0 -605.0 165.0 615.0 ] put",
1578 "Mcbbox0 Encoding rr get [ 940.0 0 -465.0 -25.0 465.0 1035.0 ] put",
1579 "Mcbbox0 Encoding sharp get [ 700.0 0 -345.0 -935.0 345.0 945.0 ] put",
1580 "Mcbbox0 Encoding sign get [ 1340.0 0 -665.0 -825.0 665.0 835.0 ] put",
1581 "Mcbbox0 Encoding tr get [ 1440.0 0 -715.0 -5.0 715.0 1015.0 ] put",
1582 "Mcbbox0 Encoding triangle get [ 800.0 0 -395.0 -45.0 395.0 785.0 ] put",
1583 "Mcbbox0 Encoding turn get [ 1300.0 0 -645.0 -325.0 645.0 345.0 ] put",
1584 "Mcbbox0 Encoding uferm get [ 1640.0 0 -815.0 -5.0 815.0 1015.0 ] put",
1585 "Mcbbox0 Encoding up128n get [ 1390.0 0 -745.0 -335.0 635.0 3555.0 ] put",
1586 "Mcbbox0 Encoding up16n get [ 1390.0 0 -745.0 -335.0 635.0 2115.0 ] put",
1587 "Mcbbox0 Encoding up256n get [ 1390.0 0 -745.0 -335.0 635.0 3975.0 ] put",
1588 "Mcbbox0 Encoding up2n get [ 880.0 0 -435.0 -345.0 435.0 2115.0 ] put",
1589 "Mcbbox0 Encoding up32n get [ 1390.0 0 -745.0 -335.0 635.0 2595.0 ] put",
1590 "Mcbbox0 Encoding up4n get [ 850.0 0 -415.0 -335.0 425.0 2115.0 ] put",
1591 "Mcbbox0 Encoding up64n get [ 1390.0 0 -745.0 -335.0 635.0 3075.0 ] put",
1592 "Mcbbox0 Encoding up8n get [ 1390.0 0 -745.0 -335.0 635.0 2115.0 ] put",
1593 "Mcbbox0 Encoding upbow get [ 720.0 0 -355.0 -115.0 355.0 925.0 ] put",
1594 "Mcbbox0 Encoding upflag get [ 640.0 0 -335.0 -5.0 295.0 1715.0 ] put",
1595 "Mcbbox0 Encoding uwedge get [ 340.0 0 -165.0 -5.0 165.0 505.0 ] put",
1596 "Mcbbox0 Encoding wedge get [ 340.0 0 -165.0 5.0 165.0 515.0 ] put",
1597 "Mcbbox0 Encoding xnote get [ 880.0 0 -435.0 -365.0 435.0 375.0 ] put",
1598 "",
1599 "end",
1600 "end",
1601 "",
1602 "/Mfont0 mfont0 definefont",
1603 "",
1604 "",
1605 "% find size of Encoding and make a dictionary",
1606 "% that size for bounding box information",
1607 "mfont1 begin",
1608 "/dictsize Encoding length def",
1609 "mfont1 /Mcbbox1 dictsize dict put",
1610 "",
1611 "% temporarily redefine printmchar1 to get code",
1612 "5 dict begin",
1613 "/printmchar1 { {} forall } def",
1614 "",
1615 "Mcbbox1 Encoding blankhead get [ 880.0 0 -435.0 -275.0 435.0 285.0 ] put",
1616 "Mcbbox1 Encoding dwhisostriangle get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put",
1617 "Mcbbox1 Encoding dwhpiewedge get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put",
1618 "Mcbbox1 Encoding dwhrectangle get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put",
1619 "Mcbbox1 Encoding dwhrighttriangle get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put",
1620 "Mcbbox1 Encoding dwhsemicircle get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put",
1621 "Mcbbox1 Encoding dwhslashhead get [ 1410.0 0 -695.0 -725.0 705.0 735.0 ] put",
1622 "Mcbbox1 Encoding fillisostriangle get [ 880.0 0 -435.0 -275.0 435.0 315.0 ] put",
1623 "Mcbbox1 Encoding fillpiewedge get [ 880.0 0 -435.0 -305.0 435.0 285.0 ] put",
1624 "Mcbbox1 Encoding fillrectangle get [ 880.0 0 -435.0 -275.0 435.0 285.0 ] put",
1625 "Mcbbox1 Encoding fillrighttriangle get [ 880.0 0 -435.0 -305.0 435.0 285.0 ] put",
1626 "Mcbbox1 Encoding fillsemicircle get [ 880.0 0 -435.0 -305.0 435.0 285.0 ] put",
1627 "Mcbbox1 Encoding fillslashhead get [ 1300.0 0 -645.0 -675.0 645.0 685.0 ] put",
1628 "Mcbbox1 Encoding isostriangle get [ 880.0 0 -435.0 -275.0 435.0 315.0 ] put",
1629 "Mcbbox1 Encoding piewedge get [ 880.0 0 -435.0 -305.0 435.0 285.0 ] put",
1630 "Mcbbox1 Encoding rectangle get [ 880.0 0 -435.0 -275.0 435.0 285.0 ] put",
1631 "Mcbbox1 Encoding righttriangle get [ 880.0 0 -435.0 -305.0 435.0 285.0 ] put",
1632 "Mcbbox1 Encoding semicircle get [ 880.0 0 -435.0 -305.0 435.0 285.0 ] put",
1633 "Mcbbox1 Encoding slashhead get [ 1380.0 0 -685.0 -725.0 685.0 735.0 ] put",
1634 "Mcbbox1 Encoding udwhrighttriangle get [ 950.0 0 -465.0 -605.0 475.0 615.0 ] put",
1635 "Mcbbox1 Encoding ufillrighttriangle get [ 880.0 0 -435.0 -275.0 435.0 315.0 ] put",
1636 "Mcbbox1 Encoding urighttriangle get [ 880.0 0 -435.0 -275.0 435.0 315.0 ] put",
1637 "",
1638 "end",
1639 "end",
1640 "",
1641 "/Mfont1 mfont1 definefont",
1642 "",
1643 "/makeExtEncoding {",
1644 " /extendedencoding 256 array def",
1645 " StandardEncoding extendedencoding copy",
1646 " extendedencoding 32 /exclamdown put",
1647 " extendedencoding 33 /cent put",
1648 " extendedencoding 34 /sterling put",
1649 " extendedencoding 35 /yen put",
1650 " extendedencoding 36 /quotedblleft put",
1651 " extendedencoding 37 /guillemotleft put",
1652 " extendedencoding 38 /guillemotright put",
1653 " extendedencoding 39 /guilsinglleft put",
1654 " extendedencoding 40 /guilsinglright put",
1655 " extendedencoding 41 /dagger put",
1656 " extendedencoding 42 /daggerdbl put",
1657 " extendedencoding 43 /bullet put",
1658 " extendedencoding 44 /quotedblbase put",
1659 " extendedencoding 45 /quotedblright put",
1660 " extendedencoding 46 /questiondown put",
1661 " extendedencoding 47 /grave put",
1662 " extendedencoding 48 /acute put",
1663 " extendedencoding 49 /macron put",
1664 " extendedencoding 50 /breve put",
1665 " extendedencoding 51 /dotaccent put",
1666 " extendedencoding 52 /dieresis put",
1667 " extendedencoding 53 /ring put",
1668 " extendedencoding 54 /cedilla put",
1669 " extendedencoding 55 /hungarumlaut put",
1670 " extendedencoding 56 /ogonek put",
1671 " extendedencoding 57 /caron put",
1672 " extendedencoding 58 /emdash put",
1673 " extendedencoding 59 /AE put",
1674 " extendedencoding 60 /ae put",
1675 " extendedencoding 61 /ordfeminine put",
1676 " extendedencoding 62 /ordmasculine put",
1677 " extendedencoding 63 /Lslash put",
1678 " extendedencoding 64 /lslash put",
1679 " extendedencoding 65 /Oslash put",
1680 " extendedencoding 66 /oslash put",
1681 " extendedencoding 67 /OE put",
1682 " extendedencoding 68 /oe put",
1683 " extendedencoding 69 /dotlessi put",
1684 " extendedencoding 70 /germandbls put",
1685 " extendedencoding 71 /Aacute put",
1686 " extendedencoding 72 /aacute put",
1687 " extendedencoding 73 /Acircumflex put",
1688 " extendedencoding 74 /acircumflex put",
1689 " extendedencoding 75 /Adieresis put",
1690 " extendedencoding 76 /adieresis put",
1691 " extendedencoding 77 /Agrave put",
1692 " extendedencoding 78 /agrave put",
1693 " extendedencoding 79 /Aring put",
1694 " extendedencoding 80 /aring put",
1695 " extendedencoding 81 /Atilde put",
1696 " extendedencoding 82 /atilde put",
1697 " extendedencoding 83 /Ccedilla put",
1698 " extendedencoding 84 /ccedilla put",
1699 " extendedencoding 85 /Eacute put",
1700 " extendedencoding 86 /eacute put",
1701 " extendedencoding 87 /Ecircumflex put",
1702 " extendedencoding 88 /ecircumflex put",
1703 " extendedencoding 89 /Edieresis put",
1704 " extendedencoding 90 /edieresis put",
1705 " extendedencoding 91 /Egrave put",
1706 " extendedencoding 92 /egrave put",
1707 " extendedencoding 93 /Iacute put",
1708 " extendedencoding 94 /iacute put",
1709 " extendedencoding 95 /Icircumflex put",
1710 " extendedencoding 96 /icircumflex put",
1711 " extendedencoding 97 /Idieresis put",
1712 " extendedencoding 98 /idieresis put",
1713 " extendedencoding 99 /Igrave put",
1714 " extendedencoding 100 /igrave put",
1715 " extendedencoding 101 /Ntilde put",
1716 " extendedencoding 102 /ntilde put",
1717 " extendedencoding 103 /Oacute put",
1718 " extendedencoding 104 /oacute put",
1719 " extendedencoding 105 /Ocircumflex put",
1720 " extendedencoding 106 /ocircumflex put",
1721 " extendedencoding 107 /Odieresis put",
1722 " extendedencoding 108 /odieresis put",
1723 " extendedencoding 109 /Ograve put",
1724 " extendedencoding 110 /ograve put",
1725 " extendedencoding 111 /Otilde put",
1726 " extendedencoding 112 /otilde put",
1727 " extendedencoding 113 /Scaron put",
1728 " extendedencoding 114 /scaron put",
1729 " extendedencoding 115 /Uacute put",
1730 " extendedencoding 116 /uacute put",
1731 " extendedencoding 117 /Ucircumflex put",
1732 " extendedencoding 118 /ucircumflex put",
1733 " extendedencoding 119 /Udieresis put",
1734 " extendedencoding 120 /udieresis put",
1735 " extendedencoding 121 /Ugrave put",
1736 " extendedencoding 122 /ugrave put",
1737 " extendedencoding 123 /Ydieresis put",
1738 " extendedencoding 124 /ydieresis put",
1739 " extendedencoding 125 /Zcaron put",
1740 " extendedencoding 126 /zcaron put",
1741 " extendedencoding 127 /space put",
1742 "} def",
1743 "",
1744 "/makeExtendedFont {",
1745 " findfont",
1746 " dup length dict /newdict exch def",
1747 " { 1 index /FID ne",
1748 " { newdict 3 1 roll put }",
1749 " { pop pop }",
1750 " ifelse",
1751 " } forall",
1752 " newdict /Encoding extendedencoding put",
1753 " newdict /UniqueID newdict /UniqueID get 1 add put",
1754 " newdict definefont pop",
1755 "} def",
1756(char *) 0
1757};
1758
1759/* generate the PostScript prolog */
1760
1761void
1762ps_prolog()
1763{
1764 int line;
1765
1766 for (line = 0; prolog_text[line] != (char *) 0; line++) {
1767 (void) printf("%s\n", prolog_text[line]);
1768 }
1769}
Music publishing software, including Debian packaging.