ps/lilyponddefs.ps

   1 %!PS-Adobe-2.0: lilyponddefs.ps
   2 % TODO:
   3 %  * junk all magic, start-line/stop-line just: placebox @ x.y
   4 %
   5 % Functions for direct PostScript output
   6
   7 % /setgray { 1 add } bind def
   8
   9 /set-ps-scale-to-lily-scale {
  10         lily-output-units output-scale mul dup scale
  11 } bind def
  12
  13
  14 /init-paper {
  15         gsave
  16         clippath pathbbox newpath
  17         /paper-height exch def
  18         /paper-width exch def pop pop pop
  19         % FIXME
  20         /top-margin 2 def
  21         paper-width line-width sub 2 div /left-margin exch def
  22         grestore
  23 } bind def
  24
  25 /init-lilypond-parameters {
  26         staff-line-thickness setlinewidth
  27         staff-height init-paper
  28 } bind def
  29
  30
  31 % end lilyponddefs.ps