]> git.donarmstrong.com Git - lilypond.git/blobdiff - tex/lily-ps-defs.tex
release: 0.1.57
[lilypond.git] / tex / lily-ps-defs.tex
index d8b40c22fe0ecf168d65b5d987a124e669bbe682..2610706399a01815ef0b028cf06d015a9342266c 100644 (file)
@@ -156,9 +156,19 @@ def
                 fill
         grestore
         stroke
- } bind def}}
-
-
+ } bind def
+ /draw_control_slur
+ {
+        staffrulethickness setlinewidth
+        0 0 moveto
+        rcurveto        
+        rcurveto
+        gsave
+       fill
+        grestore
+        stroke
+ } bind def
+}}
 
 
 \def\turnOnExperimentalFeatures{%