LSR: Update.
[lilypond.git] / ps / lilyponddefs.ps
blobf7974111c6008853de7b0bd483130a650393e2de
1 %!PS-Adobe-2.0: lilyponddefs.ps
3 % Functions for direct PostScript output
5 % /setgray { 1 add } bind def
7 /set-ps-scale-to-lily-scale {
8         lily-output-units output-scale mul dup scale
9 } bind def
12 /init-paper {
13         gsave
14         clippath pathbbox newpath
15         /paper-height exch def
16         /paper-width exch def pop pop pop
17         % FIXME
18         /top-margin 2 def
19         paper-width line-width sub 2 div /left-margin exch def
20         grestore
21 } bind def
23 /init-lilypond-parameters {
24         staff-line-thickness setlinewidth
25         staff-height init-paper
26 } bind def
29 % end lilyponddefs.ps