ps/lilyponddefs.ps

   1 %!PS-Adobe-2.0: lilyponddefs.ps
   2 %
   3 % Functions for direct PostScript output
   4
   5 % /setgray { 1 add } bind def
   6
   7 /set-ps-scale-to-lily-scale {
   8         lily-output-units output-scale mul dup scale
   9 } bind def
  10
  11
  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
  22
  23 /init-lilypond-parameters {
  24         staff-line-thickness setlinewidth
  25         staff-height init-paper
  26 } bind def
  27
  28
  29 % end lilyponddefs.ps