]> git.donarmstrong.com Git - lilypond.git/blobdiff - ps/lily.ps
release: 1.1.56
[lilypond.git] / ps / lily.ps
index 3eeb87484a6b04f79eeb0f79bf929968416c360c..f2d5c1a058093286fa13f40b3ea35d06fde31331 100644 (file)
        stroke
 } bind def
 
-/draw_volta % h w thick last
+/draw_volta % h w thick vert_start vert_end
 {
-       /last exch def
+       /vert_end exch def
+       /vert_start exch def
        setlinewidth
        /volta_w exch def
        /volta_h exch def
 %      true setstrokeadjust
        1 setlinecap
        1 setlinejoin
-       0 0 moveto
-       0 volta_h lineto
+       vert_start 0 eq {
+               0 0 moveto
+               0 volta_h lineto
+       } if
+       0 volta_h moveto
        volta_w volta_h lineto
-       last 0 eq {
+       vert_end 0 eq {
                volta_w 0 lineto
        } if
        stroke