X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ps%2Fmusic-drawing-routines.ps;h=2ed8afd58351e8f2b2acb63d05c263fc69d1ebfd;hb=9d3df03734443ed214141ca8bf4b6fc32af945a5;hp=778aa81ad167650f8fadb85050f4b90da79b93da;hpb=73c3e44b4e0884a0ea7d227a7c188bc4e2c02c7f;p=lilypond.git

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 778aa81ad1..2ed8afd583 100644
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -65,14 +65,14 @@
 	tuplet_dy tuplet_dx div tuplet_gapx mul /tuplet_gapy exch def 
 
 
-	0 0 moveto 
-	0 tuplet_h dir mul lineto  
+	0 tuplet_h neg dir mul moveto 
+	0 0 lineto  
 	tuplet_dx tuplet_gapx sub 2 div  
-		tuplet_dy tuplet_gapy sub 2 div tuplet_h dir mul add lineto 
+		tuplet_dy tuplet_gapy sub 2 div  lineto 
 	tuplet_dx tuplet_gapx add 2 div  
-		tuplet_dy tuplet_gapy add 2 div tuplet_h dir mul add moveto 
-	tuplet_dx tuplet_dy tuplet_h dir mul add lineto 
+		tuplet_dy tuplet_gapy add 2 div  moveto 
 	tuplet_dx tuplet_dy lineto 
+	tuplet_dx tuplet_dy tuplet_h dir neg mul add lineto 
 	stroke 
 } bind def