-%!PS-Adobe-1.0: music-drawing-routines.ps
+%!PS-Adobe-2.0
%
% Functions for direct and embedded PostScript
0 setgray 0 setlinecap % Prepare graphics state
1 setlinewidth 0 setlinejoin
10 setmiterlimit [ ] 0 setdash newpath
- /languagelevel where % If level not equal to 1 then
- {pop languagelevel % set strokeadjust and
- 1 ne % overprint to their defaults.
- {false setstrokeadjust false setoverprint
- } if
- } if
+ false setstrokeadjust false setoverprint
} bind def
/EndEPSF { %def
dup
0.0 gt {
setlinewidth % w h x y
- 0 setlinecap
- 1 setlinejoin
-
rmoveto % w h
- currentpoint % w h x1 y1
- 4 2 roll % x1 y1 w h
- 4 copy
- rectfill
- rectstroke
+ 2 copy 0 ne exch 0 ne and
+ {
+ 0 setlinecap
+ 1 setlinejoin
+ currentpoint % w h x1 y1
+ 4 2 roll % x1 y1 w h
+ 4 copy
+ rectfill
+ rectstroke
+ } {
+ 1 setlinecap
+ rlineto stroke
+ } ifelse
} {
pop % w h x y
rmoveto % w h