ps/lilyponddefs.ps

   1 %!PS-Adobe-1.0: lilyponddefs
   2
   3 % hmm
   4 % /setgray { 1 add } bind def
   5
   6 /stafflinethickness  lilypondpaperstafflinethickness def
   7 /staffheight lilypondpaperstaffheight def
   8
   9 /xoffset 30 def
  10 /yoffset 700 def
  11
  12 /placebox
  13 {
  14         /object exch def
  15         gsave
  16         %exch translate
  17         translate
  18         0 0 moveto
  19         object
  20         grestore
  21 } bind def
  22
  23 %
  24 % FIXME.  translate to middle of box.
  25 %
  26
  27 /draw_box % breapth width depth height
  28 {
  29         /h exch def
  30         /d exch def
  31         /w exch def
  32         /b exch def
  33         gsave
  34
  35         0 setlinewidth
  36         b neg d neg rmoveto
  37         b w add 0 rlineto
  38         0 d h add rlineto
  39         b w add neg 0 rlineto
  40         closepath % 0 d h add neg rlineto
  41         fill
  42
  43         grestore
  44 } bind def
  45
  46 /start_line
  47 {
  48         gsave
  49         xoffset yoffset translate
  50 } bind def
  51
  52 /stop_line
  53 {
  54         /object exch def
  55         0 0 moveto pathbbox exch pop sub exch pop
  56         object
  57         grestore
  58         yoffset add /yoffset exch def
  59         % urg...
  60         yoffset lilypondpaperstaffheight 8 mul sub /yoffset exch def
  61 } bind def
  62
  63 /turnOnExperimentalFeatures { } bind def
  64
  65 stafflinethickness setlinewidth
  66
  67 % see if we're there...
  68 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke