release: 1.3.153

[lilypond.git] / ps / music-drawing-routines.ps

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 778aa81ad167650f8fadb85050f4b90da79b93da..2ed8afd58351e8f2b2acb63d05c263fc69d1ebfd 100644 (file)
--- 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