-/xoffset 30 def
-/yoffset 700 def
-/staffrulethickness 1 def
-/staffheight 20 def
-
-/placebox
-{
- /object exch def
- gsave
- %exch translate
- translate
- 0 0 moveto
- object
- grestore
-} bind def
-
-/setbold % '(' text ')'
-{
- settext
-} bind def
-
-/settext % '(' text ')'
-{
- gsave
- % urg
- /Times-Roman findfont 12 scalefont setfont
- show
- grestore
-} bind def
-
-/setfinger % '(' text ')'
-{
- gsave
- % urg
- /feta-nummer5 findfont 12 scalefont setfont
- show
- grestore
-} bind def
-
-/setitalic % '(' text ')'
-{
- gsave
- % urg
- /Times-Italic findfont 12 scalefont setfont
- show
- grestore
-} bind def
-
-/vrule % width height depth
-{
- gsave
- 3 -1 roll setlinewidth
- neg 0 exch moveto
- 0 exch lineto stroke
- grestore
-} bind def
-
-/draw_stem % kern width height depth
-{
- gsave
- 4 -1 roll neg 0 translate
- vrule
- grestore
-} bind def
-
-/extender % width
-{
- gsave
- 0 0 moveto
- stafflinethickness 0.8 mul setlinewidth
- 0 lineto stroke
- grestore
-} bind def
-
-/widthbar % height width
-{
- gsave
- setlinewidth
- 2 div dup neg 0 exch moveto
- 0 exch lineto stroke
- 2 div
- grestore
-} bind def
-
-/thickbar % height
-{
- stafflinethickness 2 mul widthbar