/init-paper {
gsave
- .1 setlinewidth
clippath pathbbox newpath
/vsize exch def
/hsize exch def pop pop pop
} bind def
-% <x> <y> start-system
+% start-system
/start-system {
- gsave
- 0
- vsize translate
+ gsave
+} bind def
+
+/start-page {
+ gsave
+ 0
+ vsize translate
} bind def
/init-lilypond-parameters {
staff-line-thickness setlinewidth
staff-height init-paper
- pstack
} bind def