From: Han-Wen Nienhuys <hanwen@lilypond.org>
Date: Thu, 21 Jul 2011 03:31:14 +0000 (-0300)
Subject: Do not issue rectstroke if blot diameter is 0.0.
X-Git-Tag: release/2.15.6-1~2^2~15
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5291daf785cd215145473781612732de94890ba0;p=lilypond.git

Do not issue rectstroke if blot diameter is 0.0.

This prevents some PostScript printers from thickening barlines.
---

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