From 687ef756530d46f2225beaa44b7e8ba371023100 Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Tue, 19 Jul 2005 15:42:40 +0000
Subject: [PATCH] * 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.
---
 ChangeLog                         |  3 +++
 input/regression/pedal-bracket.ly |  2 +-
 input/regression/property-once.ly |  3 +--
 scm/define-grobs.scm              |  2 +-
 scm/define-markup-commands.scm    | 11 +++++++----
 scm/define-music-types.scm        |  6 +++---
 6 files changed, 16 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 13d2c474db..4086025291 100644
--- 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 610e9b0f34..b000fdbc4b 100644
--- 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 ec1185a859..f350c0714d 100644
--- 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 48829773c9..b8024dddcb 100644
--- 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 df97c7d41c..2fe8b88336 100644
--- 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 f7918aaa58..43e1d74a34 100644
--- 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
-- 
2.39.5