Yoshinobu Ishizaki's multiple header definition patch. Thanks!

[lilypond.git] / scm / define-markup-commands.scm

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index df97c7d41c5603d3b6c712c231cc58b896f5cb94..2fe8b88336098b3b93152eaf7024122d6f263c98 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -82,10 +82,13 @@ the PDF backend."
         (half (/ thickness 2)))
 
     (ly:make-stencil
-     (list 'beam width
-          slope
-          thickness
-          (ly:output-def-lookup layout 'blotdiameter))
+     `(polygon ',(list 
+                 0 (/ thickness -2)
+                   width (+ (* width slope)  (/ thickness -2))
+                   width (+ (* width slope)  (/ thickness 2))
+                   0 (/ thickness 2))
+              ,(ly:output-def-lookup layout 'blotdiameter)
+              #t)
      (cons 0 width)
      (cons (+ (- half) (car yext))
           (+ half (cdr yext))))))