-/stop_line
-{
- /object exch def
- 0 0 moveto pathbbox exch pop sub exch pop
- object
- grestore
- yoffset add /yoffset exch def
- % urg...
- yoffset mudelapaperstaffheight 8 mul sub /yoffset exch def
-} bind def
-
-/turnOnExperimentalFeatures { } bind def
-
-stafflinethickness setlinewidth