- \special{ps: @beginspecial @setspecial ##1 @endspecial}
-}
-
-%
-% width, slope, height
-%
-\special{! % round cappings
-1 setlinecap
-/draw_beam
-{
- /beam_thick exch def
- /beam_slope exch def
- /beam_wd exch def
- beam_slope beam_wd mul /beam_ht exch def
- 0 0 moveto
- beam_wd beam_ht rlineto
- 0 beam_thick rlineto
- 0 beam_thick lineto
- closepath fill
-} bind def
-% PS helper: convert (0.2pt) to the token 0.2
-/settexdimen { /thestring exch def
- thestring 0 thestring length 2 sub
- getinterval
- token
- pop exch pop }
-def
-%
-/deftexdimen {
- settexdimen
- def
-} def
-}
-
-
-\PSsetTeXdimen{staffrulethickness}
-\PSsetTeXdimen{staffheight}
-\special{! %
-/draw_decresc
- {
- staffrulethickness setlinewidth
- /cresc_cont exch def
- /cresc_ht exch def
- /cresc_wd exch def
-%
- cresc_wd cresc_cont moveto
- 0 cresc_ht lineto
- stroke
- cresc_wd cresc_cont neg moveto
- 0 cresc_ht neg lineto
- stroke
- }
- bind def
- /draw_cresc
- {
- /cresc_cont exch def
- /cresc_ht exch def
- /cresc_wd exch def
-%
- 0 cresc_cont moveto
- cresc_wd cresc_ht lineto
- stroke
- 0 cresc_cont neg moveto
- cresc_wd cresc_ht neg lineto
- stroke
+ \def\embeddedps##1{%
+ \special{ps\string: @beginspecial @setspecial
+ \lilypondpaperoutputscale\lilySpace\scaletounit
+ \lilypondpaperoutputscale\lilySpace\scaletounit
+ % FUCKING REDHAT XDVI -- ARG!
+ skeel ##1 @endspecial}%