command.
* scm/define-grobs.scm (all-grob-descriptions): add a 'class meta
field for each grob description.
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.
\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
\relative c' {
c4
- \once \set Stem = #'()
+ \once \override Stem #'thickness = #5.0
c4
- \once \override Stem #'thickness = #5.0
c4
c4
}
(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)))
)))
(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))))))
(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