-/start_line
-{
- gsave
- xoffset yoffset translate
-} bind def
-
-/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
+/init-lilypond-parameters {
+ staff-line-thickness setlinewidth
+ staff-height init-paper