Példák
Kottalap:
/MainFont
/Helvetica-Bold findfont 20 scalefont def
/TextFont
/Helvetica-Bold findfont 10 scalefont def
/BFont
/Helvetica-Bold findfont 13 scalefont def
/x 0 def
/y 70 def
/gkulcs
{gsave
translate 0.2 0.2 scale
30 0 moveto
0 0 30 0 180 arc
30 0 moveto
-10 0 40 0 180 arcn
-50 0 moveto
-50 0 -50 25 -25 50 curveto
-25 50 20 85 20 120 curveto
20 120 10 140 0 120 curveto
0 120 moveto
0 -200 rlineto
-10 -80 10 0 90 arcn
5 setlinewidth
stroke
grestore} def
/kotta
{
30 0 moveto
560 0 lineto
30 10 moveto
560 10 lineto
30 20 moveto
560 20 lineto
30 30 moveto
560 30 lineto
30 40 moveto
560 40 lineto
30 0 moveto
30 40 lineto
560 0 moveto
560 40 lineto
60 17 moveto
BFont setfont
(b) show
}def
/vonal
{
155 700 moveto
155 740 lineto
stroke } def
/cim
{ 230 770 moveto
MainFont setfont
(All My Loving) show
} def
/szoveg1
{80 685 moveto
TextFont setfont
(Close Your eyes and I'll kiss You, To - mor - row I'll miss You Re - ) show
} def
szoveg1
/szoveg2
{85 615 moveto
TextFont setfont
(mem - ber I'll al - ways be true... And then while I'm a -) show
} def
szoveg2
/szoveg3
{85 545 moveto
TextFont setfont
(way, I'll write home ev - 'ry day And I'll send all my lov - ing to) show
} def
szoveg3
/szoveg4
{90 475 moveto
TextFont setfont
(You...) show
} def
szoveg4
/utem
{newpath
gsave
0 0 moveto
0 40 lineto
stroke
grestore
}def
/titi
{newpath
gsave
3 setlinewidth
0 0 moveto
15 0 lineto
stroke
grestore
}def
/hangjegy1
{
newpath
gsave
1 0.7 scale
0 0 moveto
0 0 5 0 360 arc
fill
5 0 moveto
5 29 lineto
stroke
grestore
} def
/hangjegy2
{
newpath
gsave
1 0.7 scale
0 0 moveto
0 0 5 0 360 arc
5 0 moveto
5 30 lineto
stroke
grestore
} def
/hangjegy3
{
newpath
gsave
1 0.7 scale
0 0 moveto
0 0 5 0 360 arc
stroke
grestore
} def
/vonal
{
gsave
translate utem
grestore} def
/ti
{
gsave
translate titi
grestore}def
/hang1
{
gsave
translate hangjegy1
grestore} def
/hang2
{
gsave
translate 180 rotate hangjegy1
grestore} def
/hang3
{
gsave
translate hangjegy2
grestore} def
/hang4
{
gsave
translate 180 rotate hangjegy2
grestore} def
/hang5
{
gsave
translate hangjegy3
grestore} def
cim
100 720 hang2
130 715 hang1
160 700 vonal
180 710 hang3
210 720 hang1
240 725 hang2
255 700 vonal
270 730 hang2
300 730 hang4
350 735 hang2
365 700 vonal
380 740 hang4
410 740 hang2
440 735 hang2
455 700 vonal
470 730 hang2
500 715 hang3
530 730 hang2
100 660 hang4
130 660 hang2
160 655 hang2
175 630 vonal
190 650 hang4
220 635 hang1
250 640 hang3
265 630 vonal
280 640 hang5
355 630 vonal
370 640 hang3
400 650 hang2
430 645 hang1
445 630 vonal
475 640 hang3
505 645 hang1
535 650 hang2
100 585 hang4
130 590 hang2
160 595 hang2
175 560 vonal
190 600 hang4
220 600 hang2
250 595 hang2
265 560 vonal
280 590 hang2
310 575 hang3
340 590 hang2
355 590 hang2
370 560 vonal
385 590 hang4
415 590 hang2
445 585 hang2
460 560 vonal
475 580 hang2
505 575 hang3
535 570 hang1
100 495 hang5
130 490 vonal
160 495 hang3
newpath
0 800 moveto
600 800 lineto
stroke
324 695 70 240 300 arc
stroke
130 555 70 250 290 arc
stroke
335 570 ti
newpath
1 1 10 {x y translate
0 0 moveto kotta
50 10 gkulcs
}for
stroke
showpage
a lap teteje