X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ps%2Fmusic-drawing-routines.ps;h=06c13648738254d3b5f60438eed59655a1c92a94;hb=9ff88d127acb371435a96e04cba7f0e3f525496d;hp=09ac055f46cfd216624c33ae825337353db4e7c9;hpb=3d571d9c80b7855422c96ecc6966bcbfa4dfb9ff;p=lilypond.git

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