diff options
| author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2011-07-21 00:31:14 -0300 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2011-07-21 23:24:50 -0300 |
| commit | 5291daf785cd215145473781612732de94890ba0 (patch) | |
| tree | 9cfc35cede05a75901c0038cd9a1198fd7bc01fd /ps | |
| parent | 14632519690052980d19fc75e4dbc759c480aac2 (diff) | |
Do not issue rectstroke if blot diameter is 0.0.
This prevents some PostScript printers from thickening barlines.
Diffstat (limited to 'ps')
| -rw-r--r-- | ps/music-drawing-routines.ps | 27 |
1 files changed, 18 insertions, 9 deletions
diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps index 09ac055f46..06c1364873 100644 --- a/ps/music-drawing-routines.ps +++ b/ps/music-drawing-routines.ps @@ -95,16 +95,25 @@ bind def /draw_round_box % width height x y blot { - setlinewidth % w h x y - 0 setlinecap - 1 setlinejoin + 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 + rmoveto % w h + currentpoint % w h x1 y1 + 4 2 roll % x1 y1 w h + 4 copy + rectfill + rectstroke + } { + pop % w h x y + rmoveto % w h + currentpoint % w h x1 y1 + 4 2 roll % x1 y1 w h + rectfill + } ifelse } bind def /draw_polygon % fill? x(n) y(n) x(n-1) y(n-1) ... x(0) y(0) n blot |