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 % To let gs load fonts from builddir, do:
  10 % export GS_LIB=$(pwd)/mf/out:/usr/share/texmf/fonts/type1/bluesky/cm
  11
  12
  13 /set-ps-scale-to-lily-scale {
  14         lily-output-units output-scale mul dup scale
  15 } bind def
  16
  17
  18 /init-paper {
  19         gsave
  20         clippath pathbbox newpath
  21         /paper-height exch def
  22         /paper-width exch def pop pop pop
  23         % FIXME
  24         /top-margin 2 def
  25         paper-width line-width sub 2 div /left-margin exch def
  26         grestore
  27 } bind def
  28
  29 /init-lilypond-parameters {
  30         staff-line-thickness setlinewidth
  31         staff-height init-paper
  32 } bind def
  33
  34
  35 % end lilyponddefs.ps