/set-ps-scale-to-lily-scale {
- lily-output-units output-scale mul
- lily-output-units output-scale mul scale
+ lily-output-units output-scale mul dup scale
} bind def
/init-paper {
gsave
clippath pathbbox newpath
- /vsize exch def
- /hsize exch def pop pop pop
+ /paper-height exch def
+ /paper-width exch def pop pop pop
% FIXME
/top-margin 2 def
- hsize line-width sub 2 div /left-margin exch def
+ paper-width line-width sub 2 div /left-margin exch def
grestore
} bind def
-
-/place-box {
- /object exch def
- gsave
- % exch translate
- translate
- 0 0 moveto
- object
- grestore
-} bind def
-
-
-% start-system
-/start-system {
- gsave
-} bind def
-
-/start-page {
- gsave
- 0
- vsize translate
-} bind def
-
-
-/stop-system {
- /the-line exch def
- the-line stroke grestore
-} bind def
-
-
-/end-lilypond-output {
-% showpage
-} bind def
-
-
/init-lilypond-parameters {
staff-line-thickness setlinewidth
staff-height init-paper