* scm/define-markup-commands.scm (beam): use polygon in beam

command.

* scm/define-grobs.scm (all-grob-descriptions): add a 'class meta
field for each grob description.

diff --git a/ChangeLog b/ChangeLog
index 13d2c474dbf7399c5a2401d985c04bb76dda1d12..40860252911e48a96976d8f454fd1261fadf3da8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-07-19  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * scm/define-markup-commands.scm (beam): use polygon in beam
+       command.
+
        * lily/grob-pq-engraver.cc (stop_translation_timestep): save up
        all acknowledged grobs, and do potentially expensive merge and
        write in one go.

diff --git a/input/regression/pedal-bracket.ly b/input/regression/pedal-bracket.ly
index 610e9b0f348cd41f2ef96a2dd7f3f5bb8669d157..b000fdbc4b30f59a6c320028351416f64b289d44 100644 (file)
--- a/input/regression/pedal-bracket.ly
+++ b/input/regression/pedal-bracket.ly
@@ -13,7 +13,7 @@ At a line-break, there are no vertical endings.  " }
         \set Staff.pedalSustainStyle = #'bracket
 
         c4 d e \sustainDown b c c, \sustainUp \sustainDown  d8[ c]  e8[ 
-           e \sustainUp \sustainDown] f4 d
+           e \sustainUp \sustainDown]  f4 d
         \sustainUp g \sustainDown b b, \sustainUp c'
 
         \set Staff.pedalUnaCordaStyle = #'mixed

diff --git a/input/regression/property-once.ly b/input/regression/property-once.ly
index ec1185a859d0ed15c3930e81a5f907ba061fcab4..f350c0714d04c0c07ae219d73da2d366d8d1e2d2 100644 (file)
--- a/input/regression/property-once.ly
+++ b/input/regression/property-once.ly
@@ -8,9 +8,8 @@
 
 \relative c' {
     c4
-    \once \set Stem = #'()
+    \once \override Stem #'thickness = #5.0
     c4
-    \once \override Stem  #'thickness = #5.0
     c4
     c4
 }

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 48829773c9a6ac3f788957465ad06de26957f79c..b8024dddcbe3020fd551272701000d3473492b28 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -525,7 +525,7 @@
        (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
                               ,Self_alignment_interface::centered_on_parent))
        (layer . 0)
-       (meta . ((class . Spanner)
+       (meta . ((class . Item)
                 (interfaces . (self-alignment-interface grid-line-interface)))
              )))
     

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))))))

diff --git a/scm/define-music-types.scm b/scm/define-music-types.scm
index f7918aaa5853444eb8cc943afe408e3d36338a46..43e1d74a34c7f30c312b85232b169fbdb4851588 100644 (file)
--- a/scm/define-music-types.scm
+++ b/scm/define-music-types.scm
@@ -595,19 +595,19 @@ Syntax: @code{s}@var{duration}")
     (SustainEvent
      . (
        (description . "Depress or release sustain pedal. ")
-       (types . (general-music pedal-event sustain-pedal-event))
+       (types . (general-music event pedal-event sustain-pedal-event))
        ))
     
     (SostenutoEvent
      . (
        (description . "Depress or release sostenuto pedal. ")
-       (types . (general-music pedal-event sostenuto-pedal-event))
+       (types . (general-music event pedal-event sostenuto-pedal-event))
        ))
     
     (UnaCordaEvent
      . (
        (description . "Depress or release una-corda pedal.")
-       (types . (general-music pedal-event una-corda-pedal-event))
+       (types . (general-music event pedal-event una-corda-pedal-event))
        ))
     
     (StringNumberEvent