X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ps%2Fmusic-drawing-routines.ps;h=03df7c03cb7735e5f8f4746983e19384cb85ea19;hb=7687d544b60cad6a56b91440087d277db59b75c6;hp=121897a0218682dbb339f76beeb6eea6156e596a;hpb=6bf9a5a3dbcabff297d5bcdb3cf1dffd0885cbbc;p=lilypond.git

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 121897a021..03df7c03cb 100644
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -138,51 +138,58 @@ bind def
 	    0 setlinecap
 	}
 	{ % full shape
-	    currentlinewidth 2 div
-	    0 0 2 index 180 270 arc
-	    2 index 0 2 index 270 360 arc
-	    3 copy 0 90 arc
-	    0 2 index 3 -1 roll 90 180 arc
-	    closepath
-	    2 copy 2 mul gt
-	    { % horizontal
-		2 copy add currentlinewidth add 10 add % large enough
-		0 1 index neg moveto
-		2 index 1 index neg lineto
-		2 index 1 index lineto
-		0 exch lineto closepath
-		gsave clip newpath
-		0 1 index 2 div moveto
-		currentlinewidth add setlinewidth
-		0 rlineto
-		2 setlinecap
-		stroke
-		grestore
-	    }
-	    {
-		2 copy exch 2 mul gt
-		{ % vertical
+	    currentstrokeadjust {
+		currentlinewidth 2 div
+		0 0 2 index 180 270 arc
+		2 index 0 2 index 270 360 arc
+		3 copy 0 90 arc
+		0 2 index 3 -1 roll 90 180 arc
+		closepath
+		2 copy 2 mul gt
+		{ % horizontal
 		    2 copy add currentlinewidth add 10 add % large enough
-		    dup neg 0 moveto
-		    dup 0 lineto
-		    dup 2 index lineto
-		    neg 1 index lineto closepath
+		    0 1 index neg moveto
+		    2 index 1 index neg lineto
+		    2 index 1 index lineto
+		    0 exch lineto closepath
 		    gsave clip newpath
-		    1 index 2 div 0 moveto
-		    exch currentlinewidth add setlinewidth
-		    0 exch rlineto
+		    0 1 index 2 div moveto
+		    currentlinewidth add setlinewidth
+		    0 rlineto
 		    2 setlinecap
 		    stroke
 		    grestore
 		}
 		{
-		    pop pop
-		    fill
+		    2 copy exch 2 mul gt
+		    { % vertical
+			2 copy add currentlinewidth add 10 add % large enough
+			dup neg 0 moveto
+			dup 0 lineto
+			dup 2 index lineto
+			neg 1 index lineto closepath
+			gsave clip newpath
+			1 index 2 div 0 moveto
+			exch currentlinewidth add setlinewidth
+			0 exch rlineto
+			2 setlinecap
+			stroke
+			grestore
+		    }
+		    {
+			pop pop
+			fill
+		    }
+		    ifelse
 		}
 		ifelse
+		newpath
+	    }
+	    {
+		1 setlinejoin
+		0 0 4 2 roll 4 copy rectstroke rectfill
 	    }
 	    ifelse
-	    newpath
 	}
 	ifelse
     }