1 %!PS-Adobe-1.0: lilyponddefs
4 /setgray { 1 add } bind def
6 /stafflinethickness mudelapaperstaffline def
7 /staffheight mudelapaperstaffheight def
24 % FIXME. translate to middle of box.
27 /draw_box % breapth width depth height
40 closepath % 0 d h add neg rlineto
49 xoffset yoffset translate
55 0 0 moveto pathbbox exch pop sub exch pop
58 yoffset add /yoffset exch def
60 yoffset mudelapaperstaffheight 8 mul sub /yoffset exch def
63 /unknown { (U) setbold } bind def
64 /empty { (E) setbold } bind def
66 /turnOnExperimentalFeatures { } bind def
68 /rulesym % thick length
78 exch pop //systemdict /run get exec
81 /undefinedfilename signalerror
84 stafflinethickness setlinewidth
86 % see if we're there...
87 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke