%!PS-Adobe-1.0: lilyponddefs
% hmm
-/setgray { 1 add } bind def
+% /setgray { 1 add } bind def
+
+/stafflinethickness lilypondpaperstafflinethickness def
+/staffheight lilypondpaperstaffheight def
/xoffset 30 def
/yoffset 700 def
-/staffrulethickness 1 def
-/staffheight 20 def
/placebox
{
grestore
} bind def
-/settext % '(' text ')'
-{
- gsave
- % urg
- /Times-Roman findfont 12 scalefont setfont
- show
- grestore
-} bind def
+%
+% FIXME. translate to middle of box.
+%
-/setfinger % '(' text ')'
+/draw_box % breapth width depth height
{
+ /h exch def
+ /d exch def
+ /w exch def
+ /b exch def
gsave
- % urg
- /feta-nummer5 findfont 12 scalefont setfont
- show
- grestore
-} bind def
-
-/setitalic % '(' text ')'
-{
- gsave
- % urg
- /Times-Italic findfont 12 scalefont setfont
- show
- grestore
-} bind def
-
-/vrule % width height depth
-{
- gsave
- 3 -1 roll setlinewidth
- neg 0 exch moveto
- 0 exch lineto stroke
- grestore
-} bind def
-/draw_stem % kern width height depth
-{
- gsave
- 4 -1 roll neg 0 translate
- vrule
- grestore
-} bind def
+ 0 setlinewidth
+ b neg d neg rmoveto
+ b w add 0 rlineto
+ 0 d h add rlineto
+ b w add neg 0 rlineto
+ closepath % 0 d h add neg rlineto
+ fill
-/widthbar % height width
-{
- gsave
- setlinewidth
- 2 div dup neg 0 exch moveto
- 0 exch lineto stroke
- 2 div
grestore
} bind def
-/thickbar % height
-{
- stafflinethickness 2 mul widthbar
-} bind def
-
-/thinbar % height
-{
- stafflinethickness 1.6 mul widthbar
-} bind def
-
-/maatstreep % height
-{
- thinbar
-} bind def
-
-/finishbar
-{
- thickbar
-} bind def
-
-/generalmeter % num den
-{
- pop pop
-} bind def
-
-/pianobrace % '(' char ')'
-{
- gsave
- /feta-braces20 findfont 12 scalefont setfont%
- show
- grestore
-} bind def
-
-/doublebar
-{
- thinbar
-} bind def
-
-/repeatbar
-{
- thickbar
-} bind def
-
-/repeatbarstartrepeat
-{
- thickbar
-} bind def
-
-/startrepeat
-{
- thickbar
-} bind def
-
-/stoprepeat
-{
- thickbar
-} bind def
-
/start_line
{
gsave
grestore
yoffset add /yoffset exch def
% urg...
- yoffset staffheight 8 mul sub /yoffset exch def
+ yoffset lilypondpaperstaffheight 8 mul sub /yoffset exch def
} bind def
-/unknown { (U) show} bind def
-/empty {(E) show} bind def
-
/turnOnExperimentalFeatures { } bind def
-/rulesym % thick length
-{
- gsave
- exch setlinewidth
- 0 lineto stroke
- grestore
-} bind def
-
-(lily.ps) findlibfile
-{
- exch pop //systemdict /run get exec
-}
-{
- /undefinedfilename signalerror
-} ifelse
-
stafflinethickness setlinewidth
% see if we're there...